Quick Search:

Mode

Context

Displaying 3 lines of context. None | Less | More | Full

Other Diffs

Ignore

Blank Lines Whitespace: Expand:

Diff

1.247
 
1.248
 
MAIN:ragge:20090127171203
 
pftn.c
_>15571557  *      DOUBLE, STRTY, UNIONTY.
 15581558  */
 15591559 struct typctx {
<>1560 -        int class, qual, sig, uns, cmplx, err;
  1560+        int class, qual, sig, uns, cmplx, imag, err;
15611561         TWORD type;
 15621562         NODE *saved, *prea, *posta;
 15631563 };
     
 !
16661666                 case COMPLEX:
 16671667                         tc->cmplx = 1;
 16681668                         break;
<> 1669+                case IMAG:
  1670+                        tc->imag = 1;
  1671+                        break;
16691672                 default:
 16701673                         cerror("typenode");
 16711674                 }
     
 !
16871690         if (tc.err)
 16881691                 goto bad;
 16891692 
<>1690 -        if (tc.cmplx) {
 1691 -                if (tc.sig || tc.uns)
  1693+        if (tc.cmplx || tc.imag) {
  1694+                if (tc.type == 0)
  1695+                        tc.type = DOUBLE;
  1696+                if ((tc.cmplx && tc.imag) || tc.sig || tc.uns ||
  1697+                    !ISFTY(tc.type))
16921698                         goto bad;
<>1693 -                switch (tc.type) {
 1694 -                case FLOAT:
 1695 -                        tc.type = FCOMPLEX;
 1696 -                        break;
 1697 -                case DOUBLE:
 1698 -                        tc.type = COMPLEX;
 1699 -                        break;
 1700 -                case LDOUBLE:
 1701 -                        tc.type = LCOMPLEX;
 1702 -                        break;
 1703 -                default:
 1704 -                        goto bad;
 1705 -                }
  1699+                if (tc.cmplx)
  1700+                        tc.type += (FCOMPLEX-FLOAT);
  1701+                else
  1702+                        tc.type += (FIMAG-FLOAT);
<_17061703         }
 17071704 
 17081705         if (tc.saved && tc.type)
FishEye: Open Source License registered to PCC.
Your maintenance has expired. You can renew your license at http://www.atlassian.com/fisheye/renew
Atlassian FishEye, CVS analysis. (Version:1.6.3 Build:build-336 2008-11-04) - Administration - Page generated 2014-09-02 06:24 +0200