home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume3 / g-format / part3 / gfloat / f77 / src / f77pass1 / expr.c.diff < prev   
Encoding:
Text File  |  1986-11-30  |  14.0 KB  |  677 lines
  1. *** ../f77/src/f77pass1/expr.c.orig    Tue Oct 29 15:15:54 1985
  2. --- ../f77/src/f77pass1/expr.c    Tue Oct 29 15:22:42 1985
  3. ***************
  4. *** 151,157
  5.   register Constp p;
  6.   
  7.   p = mkconst(t);
  8. ! p->const.cd[0] = d;
  9.   return( (expptr) p );
  10.   }
  11.   
  12.  
  13. --- 151,162 -----
  14.   register Constp p;
  15.   
  16.   p = mkconst(t);
  17. ! #ifdef GFLOAT
  18. ! if (t==TYREAL)
  19. !     p->const.cr[0] = d;
  20. ! else
  21. ! #endif GFLOAT
  22. !     p->const.cd[0] = d;
  23.   return( (expptr) p );
  24.   }
  25.   
  26. ***************
  27. *** 241,246
  28.       p = mkconst( (rtype==TYDREAL||itype==TYDREAL) ? TYDCOMPLEX : TYCOMPLEX);
  29.       if( ISINT(rtype) )
  30.           p->const.cd[0] = realp->constblock.const.ci;
  31.       else    p->const.cd[0] = realp->constblock.const.cd[0];
  32.       if( ISINT(itype) )
  33.           p->const.cd[1] = imagp->constblock.const.ci;
  34.  
  35. --- 246,255 -----
  36.       p = mkconst( (rtype==TYDREAL||itype==TYDREAL) ? TYDCOMPLEX : TYCOMPLEX);
  37.       if( ISINT(rtype) )
  38.           p->const.cd[0] = realp->constblock.const.ci;
  39. + #ifdef GFLOAT
  40. +     else if (rtype==TYREAL || itype==TYREAL) 
  41. +         p->const.cr[0] = realp->constblock.const.cr[0];
  42. + #endif GFLOAT
  43.       else    p->const.cd[0] = realp->constblock.const.cd[0];
  44.       if( ISINT(itype) )
  45.           p->const.cd[1] = imagp->constblock.const.ci;
  46. ***************
  47. *** 244,249
  48.       else    p->const.cd[0] = realp->constblock.const.cd[0];
  49.       if( ISINT(itype) )
  50.           p->const.cd[1] = imagp->constblock.const.ci;
  51.       else    p->const.cd[1] = imagp->constblock.const.cd[0];
  52.       }
  53.   else
  54.  
  55. --- 253,262 -----
  56.       else    p->const.cd[0] = realp->constblock.const.cd[0];
  57.       if( ISINT(itype) )
  58.           p->const.cd[1] = imagp->constblock.const.ci;
  59. + #ifdef GFLOAT
  60. +     else if (rtype==TYREAL || itype==TYREAL) 
  61. +         p->const.cr[1] = imagp->constblock.const.cr[0];
  62. + #endif GFLOAT
  63.       else    p->const.cd[1] = imagp->constblock.const.cd[0];
  64.       }
  65.   else
  66. ***************
  67. *** 2255,2261
  68.               lv->ci = rv->ccp[0];
  69.           else if( ISINT(rt) )
  70.               lv->ci = rv->ci;
  71. !         else    lv->ci = rv->cd[0];
  72.           break;
  73.   
  74.       case TYCOMPLEX:
  75.  
  76. --- 2268,2278 -----
  77.               lv->ci = rv->ccp[0];
  78.           else if( ISINT(rt) )
  79.               lv->ci = rv->ci;
  80. ! #ifdef GFLOAT
  81. !         else if (rt==TYREAL || rt==TYCOMPLEX)
  82. !                    lv->ci = rv->cr[0]; /* should test */
  83. ! #endif GFLOAT
  84. !           else    lv->ci = rv->cd[0];
  85.           break;
  86.   
  87.       case TYCOMPLEX: 
  88. ***************
  89. *** 2258,2264
  90.           else    lv->ci = rv->cd[0];
  91.           break;
  92.   
  93. !     case TYCOMPLEX:
  94.       case TYDCOMPLEX:
  95.           switch(rt)
  96.               {
  97.  
  98. --- 2275,2305 -----
  99.             else    lv->ci = rv->cd[0];
  100.           break;
  101.   
  102. !     case TYCOMPLEX: 
  103. ! #ifdef GFLOAT
  104. !         switch(rt)
  105. !             {
  106. !             case TYSHORT:
  107. !             case TYLONG:
  108. !                 /* fall through and do real assignment of
  109. !                    first element */
  110. !             case TYREAL:
  111. !             case TYDREAL:
  112. !                 lv->cr[1] = 0; break;
  113. !             case TYCOMPLEX:
  114. !                 lv->cr[1] = rv->cr[1]; break;
  115. !             case TYDCOMPLEX: /* should check range here */
  116. !                 lv->cr[1] = rv->cd[1]; break;
  117. !             }
  118. !     case TYREAL:
  119. !         if( ISINT(rt) )
  120. !             lv->cr[0] = rv->ci;
  121. !         else if (rt==TYREAL || rt==TYCOMPLEX) 
  122. !             lv->cr[0] = rv->cr[0];
  123. !         else    lv->cr[0] = rv->cd[0]; /* should test range */
  124. !         break;
  125. ! 
  126. ! #endif GFLOAT
  127.       case TYDCOMPLEX:
  128.           switch(rt)
  129.               {
  130. ***************
  131. *** 2270,2276
  132.               case TYREAL:
  133.               case TYDREAL:
  134.                   lv->cd[1] = 0; break;
  135. !             case TYCOMPLEX:
  136.               case TYDCOMPLEX:
  137.                   lv->cd[1] = rv->cd[1]; break;
  138.               }
  139.  
  140. --- 2311,2320 -----
  141.               case TYREAL:
  142.               case TYDREAL:
  143.                   lv->cd[1] = 0; break;
  144. !             case TYCOMPLEX: 
  145. ! #ifdef GFLOAT
  146. !                 lv->cd[1] = rv->cr[1]; break;
  147. ! #endif GFLOAT
  148.               case TYDCOMPLEX:
  149.                   lv->cd[1] = rv->cd[1]; break;
  150.               }
  151. ***************
  152. *** 2274,2280
  153.               case TYDCOMPLEX:
  154.                   lv->cd[1] = rv->cd[1]; break;
  155.               }
  156. ! 
  157.       case TYREAL:
  158.       case TYDREAL:
  159.           if( ISINT(rt) )
  160.  
  161. --- 2318,2324 -----
  162.               case TYDCOMPLEX:
  163.                   lv->cd[1] = rv->cd[1]; break;
  164.               }
  165. ! #ifndef GFLOAT
  166.       case TYREAL:
  167.   #endif GFLOAT
  168.       case TYDREAL:
  169. ***************
  170. *** 2276,2281
  171.               }
  172.   
  173.       case TYREAL:
  174.       case TYDREAL:
  175.           if( ISINT(rt) )
  176.               lv->cd[0] = rv->ci;
  177.  
  178. --- 2320,2326 -----
  179.               }
  180.   #ifndef GFLOAT
  181.       case TYREAL:
  182. + #endif GFLOAT
  183.       case TYDREAL:
  184.           if( ISINT(rt) )
  185.               lv->cd[0] = rv->ci;
  186. ***************
  187. *** 2279,2284
  188.       case TYDREAL:
  189.           if( ISINT(rt) )
  190.               lv->cd[0] = rv->ci;
  191.           else    lv->cd[0] = rv->cd[0];
  192.           break;
  193.   
  194.  
  195. --- 2324,2333 -----
  196.       case TYDREAL:
  197.           if( ISINT(rt) )
  198.               lv->cd[0] = rv->ci;
  199. + #ifdef GFLOAT
  200. +         else if (rt==TYREAL || rt==TYCOMPLEX) 
  201. +             lv->cd[0] = rv->cr[0];
  202. + #endif GFLOAT
  203.           else    lv->cd[0] = rv->cd[0];
  204.           break;
  205.   
  206. ***************
  207. *** 2300,2306
  208.           p->const.ci = - p->const.ci;
  209.           break;
  210.   
  211. !     case TYCOMPLEX:
  212.       case TYDCOMPLEX:
  213.           p->const.cd[1] = - p->const.cd[1];
  214.           /* fall through and do the real parts */
  215.  
  216. --- 2349,2362 -----
  217.           p->const.ci = - p->const.ci;
  218.           break;
  219.   
  220. !     case TYCOMPLEX: 
  221. ! #ifdef GFLOAT
  222. !         p->const.cr[1] = - p->const.cr[1];
  223. !         /* fall through and do the real parts */
  224. !     case TYREAL:
  225. !         p->const.cr[0] = - p->const.cr[0];
  226. !         break;
  227. ! #endif GFLOAT
  228.       case TYDCOMPLEX:
  229.           p->const.cd[1] = - p->const.cd[1];
  230.           /* fall through and do the real parts */
  231. ***************
  232. *** 2304,2309
  233.       case TYDCOMPLEX:
  234.           p->const.cd[1] = - p->const.cd[1];
  235.           /* fall through and do the real parts */
  236.       case TYREAL:
  237.       case TYDREAL:
  238.           p->const.cd[0] = - p->const.cd[0];
  239.  
  240. --- 2360,2366 -----
  241.       case TYDCOMPLEX:
  242.           p->const.cd[1] = - p->const.cd[1];
  243.           /* fall through and do the real parts */
  244. + #ifndef GFLOAT
  245.       case TYREAL:
  246.   #endif GFLOAT
  247.       case TYDREAL:
  248. ***************
  249. *** 2305,2310
  250.           p->const.cd[1] = - p->const.cd[1];
  251.           /* fall through and do the real parts */
  252.       case TYREAL:
  253.       case TYDREAL:
  254.           p->const.cd[0] = - p->const.cd[0];
  255.           break;
  256.  
  257. --- 2362,2368 -----
  258.           /* fall through and do the real parts */
  259.   #ifndef GFLOAT
  260.       case TYREAL:
  261. + #endif GFLOAT
  262.       case TYDREAL:
  263.           p->const.cd[0] = - p->const.cd[0];
  264.           break;
  265. ***************
  266. *** 2329,2335
  267.       case TYLONG:
  268.           powp->ci = 1;
  269.           break;
  270. !     case TYCOMPLEX:
  271.       case TYDCOMPLEX:
  272.           powp->cd[1] = 0;
  273.       case TYREAL:
  274.  
  275. --- 2387,2399 -----
  276.       case TYLONG:
  277.           powp->ci = 1;
  278.           break;
  279. !     case TYCOMPLEX: 
  280. ! #ifdef GFLOAT
  281. !         powp->cr[1] = 0;
  282. !     case TYREAL:
  283. !         powp->cr[0] = 1;
  284. !         break;
  285. ! #endif GFLOAT
  286.       case TYDCOMPLEX:
  287.           powp->cd[1] = 0;
  288.   #ifndef GFLOAT
  289. ***************
  290. *** 2332,2337
  291.       case TYCOMPLEX:
  292.       case TYDCOMPLEX:
  293.           powp->cd[1] = 0;
  294.       case TYREAL:
  295.       case TYDREAL:
  296.           powp->cd[0] = 1;
  297.  
  298. --- 2396,2402 -----
  299.   #endif GFLOAT
  300.       case TYDCOMPLEX:
  301.           powp->cd[1] = 0;
  302. + #ifndef GFLOAT
  303.       case TYREAL:
  304.   #endif GFLOAT
  305.       case TYDREAL:
  306. ***************
  307. *** 2333,2338
  308.       case TYDCOMPLEX:
  309.           powp->cd[1] = 0;
  310.       case TYREAL:
  311.       case TYDREAL:
  312.           powp->cd[0] = 1;
  313.           break;
  314.  
  315. --- 2398,2404 -----
  316.           powp->cd[1] = 0;
  317.   #ifndef GFLOAT
  318.       case TYREAL:
  319. + #endif GFLOAT
  320.       case TYDREAL:
  321.           powp->cd[0] = 1;
  322.           break;
  323. ***************
  324. *** 2383,2388
  325.   
  326.   /* do constant operation cp = a op b */
  327.   
  328.   
  329.   LOCAL consbinop(opcode, type, cp, ap, bp)
  330.   int opcode, type;
  331.  
  332. --- 2449,2457 -----
  333.   
  334.   /* do constant operation cp = a op b */
  335.   
  336. + #ifdef GFLOAT
  337. + struct rcomplex { double real, imag; };
  338. + #endif GFLOAT
  339.   
  340.   LOCAL consbinop(opcode, type, cp, ap, bp)
  341.   int opcode, type;
  342. ***************
  343. *** 2390,2395
  344.   {
  345.   int k;
  346.   double temp;
  347.   
  348.   switch(opcode)
  349.       {
  350.  
  351. --- 2459,2467 -----
  352.   {
  353.   int k;
  354.   double temp;
  355. + #ifdef GFLOAT
  356. + struct rcomplex fr, ar, br;
  357. + #endif GFLOAT
  358.   
  359.   switch(opcode)
  360.       {
  361. ***************
  362. *** 2401,2406
  363.                   cp->ci = ap->ci + bp->ci;
  364.                   break;
  365.               case TYCOMPLEX:
  366.               case TYDCOMPLEX:
  367.                   cp->cd[1] = ap->cd[1] + bp->cd[1];
  368.               case TYREAL:
  369.  
  370. --- 2473,2484 -----
  371.                   cp->ci = ap->ci + bp->ci;
  372.                   break;
  373.               case TYCOMPLEX:
  374. + #ifdef GFLOAT
  375. +                 cp->cr[1] = ap->cr[1] + bp->cr[1];
  376. +             case TYREAL:
  377. +                 cp->cr[0] = ap->cr[0] + bp->cr[0];
  378. +                 break;
  379. + #endif GFLOAT
  380.               case TYDCOMPLEX:
  381.                   cp->cd[1] = ap->cd[1] + bp->cd[1];
  382.   #ifndef GFLOAT
  383. ***************
  384. *** 2403,2408
  385.               case TYCOMPLEX:
  386.               case TYDCOMPLEX:
  387.                   cp->cd[1] = ap->cd[1] + bp->cd[1];
  388.               case TYREAL:
  389.               case TYDREAL:
  390.                   cp->cd[0] = ap->cd[0] + bp->cd[0];
  391.  
  392. --- 2481,2487 -----
  393.   #endif GFLOAT
  394.               case TYDCOMPLEX:
  395.                   cp->cd[1] = ap->cd[1] + bp->cd[1];
  396. + #ifndef GFLOAT
  397.               case TYREAL:
  398.   #endif GFLOAT
  399.               case TYDREAL:
  400. ***************
  401. *** 2404,2409
  402.               case TYDCOMPLEX:
  403.                   cp->cd[1] = ap->cd[1] + bp->cd[1];
  404.               case TYREAL:
  405.               case TYDREAL:
  406.                   cp->cd[0] = ap->cd[0] + bp->cd[0];
  407.                   break;
  408.  
  409. --- 2483,2489 -----
  410.                   cp->cd[1] = ap->cd[1] + bp->cd[1];
  411.   #ifndef GFLOAT
  412.               case TYREAL:
  413. + #endif GFLOAT
  414.               case TYDREAL:
  415.                   cp->cd[0] = ap->cd[0] + bp->cd[0];
  416.                   break;
  417. ***************
  418. *** 2417,2423
  419.               case TYLONG:
  420.                   cp->ci = ap->ci - bp->ci;
  421.                   break;
  422. !             case TYCOMPLEX:
  423.               case TYDCOMPLEX:
  424.                   cp->cd[1] = ap->cd[1] - bp->cd[1];
  425.               case TYREAL:
  426.  
  427. --- 2497,2509 -----
  428.               case TYLONG:
  429.                   cp->ci = ap->ci - bp->ci;
  430.                   break;
  431. !             case TYCOMPLEX: 
  432. ! #ifdef GFLOAT
  433. !                 cp->cr[1] = ap->cr[1] - bp->cr[1];
  434. !             case TYREAL:
  435. !                 cp->cr[0] = ap->cr[0] - bp->cr[0];
  436. !                 break;
  437. ! #endif GFLOAT
  438.               case TYDCOMPLEX:
  439.                   cp->cd[1] = ap->cd[1] - bp->cd[1];
  440.   #ifndef GFLOAT
  441. ***************
  442. *** 2420,2425
  443.               case TYCOMPLEX:
  444.               case TYDCOMPLEX:
  445.                   cp->cd[1] = ap->cd[1] - bp->cd[1];
  446.               case TYREAL:
  447.               case TYDREAL:
  448.                   cp->cd[0] = ap->cd[0] - bp->cd[0];
  449.  
  450. --- 2506,2512 -----
  451.   #endif GFLOAT
  452.               case TYDCOMPLEX:
  453.                   cp->cd[1] = ap->cd[1] - bp->cd[1];
  454. + #ifndef GFLOAT
  455.               case TYREAL:
  456.   #endif GFLOAT
  457.               case TYDREAL:
  458. ***************
  459. *** 2421,2426
  460.               case TYDCOMPLEX:
  461.                   cp->cd[1] = ap->cd[1] - bp->cd[1];
  462.               case TYREAL:
  463.               case TYDREAL:
  464.                   cp->cd[0] = ap->cd[0] - bp->cd[0];
  465.                   break;
  466.  
  467. --- 2508,2514 -----
  468.                   cp->cd[1] = ap->cd[1] - bp->cd[1];
  469.   #ifndef GFLOAT
  470.               case TYREAL:
  471. + #endif GFLOAT
  472.               case TYDREAL:
  473.                   cp->cd[0] = ap->cd[0] - bp->cd[0];
  474.                   break;
  475. ***************
  476. *** 2434,2440
  477.               case TYLONG:
  478.                   cp->ci = ap->ci * bp->ci;
  479.                   break;
  480. !             case TYREAL:
  481.               case TYDREAL:
  482.                   cp->cd[0] = ap->cd[0] * bp->cd[0];
  483.                   break;
  484.  
  485. --- 2522,2532 -----
  486.               case TYLONG:
  487.                   cp->ci = ap->ci * bp->ci;
  488.                   break;
  489. !             case TYREAL: 
  490. ! #ifdef GFLOAT
  491. !                 cp->cr[0] = ap->cr[0] * bp->cr[0];
  492. !                 break;
  493. ! #endif GFLOAT
  494.               case TYDREAL:
  495.                   cp->cd[0] = ap->cd[0] * bp->cd[0];
  496.                   break;
  497. ***************
  498. *** 2439,2444
  499.                   cp->cd[0] = ap->cd[0] * bp->cd[0];
  500.                   break;
  501.               case TYCOMPLEX:
  502.               case TYDCOMPLEX:
  503.                   temp = ap->cd[0] * bp->cd[0] -
  504.                           ap->cd[1] * bp->cd[1] ;
  505.  
  506. --- 2531,2544 -----
  507.                   cp->cd[0] = ap->cd[0] * bp->cd[0];
  508.                   break;
  509.               case TYCOMPLEX:
  510. + #ifdef GFLOAT
  511. +                 temp = ap->cr[0] * bp->cr[0] -
  512. +                         ap->cr[1] * bp->cr[1] ;
  513. +                 cp->cr[1] = ap->cr[0] * bp->cr[1] +
  514. +                         ap->cr[1] * bp->cr[0] ;
  515. +                 cp->cr[0] = temp;
  516. +                 break;
  517. + #endif GFLOAT
  518.               case TYDCOMPLEX:
  519.                   temp = ap->cd[0] * bp->cd[0] -
  520.                           ap->cd[1] * bp->cd[1] ;
  521. ***************
  522. *** 2455,2461
  523.               case TYLONG:
  524.                   cp->ci = ap->ci / bp->ci;
  525.                   break;
  526. !             case TYREAL:
  527.               case TYDREAL:
  528.                   cp->cd[0] = ap->cd[0] / bp->cd[0];
  529.                   break;
  530.  
  531. --- 2555,2565 -----
  532.               case TYLONG:
  533.                   cp->ci = ap->ci / bp->ci;
  534.                   break;
  535. !             case TYREAL: 
  536. ! #ifdef GFLOAT
  537. !                 cp->cr[0] = ap->cr[0] / bp->cr[0];
  538. !                 break;
  539. ! #endif GFLOAT
  540.               case TYDREAL:
  541.                   cp->cd[0] = ap->cd[0] / bp->cd[0];
  542.                   break;
  543. ***************
  544. *** 2460,2465
  545.                   cp->cd[0] = ap->cd[0] / bp->cd[0];
  546.                   break;
  547.               case TYCOMPLEX:
  548.               case TYDCOMPLEX:
  549.                   zdiv(cp,ap,bp);
  550.                   break;
  551.  
  552. --- 2564,2579 -----
  553.                   cp->cd[0] = ap->cd[0] / bp->cd[0];
  554.                   break;
  555.               case TYCOMPLEX:
  556. + #ifdef GFLOAT
  557. +                 ar.real = ap->cr[0];
  558. +                  ar.imag = ap->cr[1];
  559. +                 br.real = bp->cr[0];
  560. +                 br.imag = bp->cr[1];
  561. +                 zdiv(fr,ar,br);
  562. +                 cp->cr[0] = fr.real; /* should test */
  563. +                 cp->cr[1] = fr.imag;
  564. +                 break;
  565. + #endif GFLOAT
  566.               case TYDCOMPLEX:
  567.                   zdiv(cp,ap,bp);
  568.                   break;
  569. ***************
  570. *** 2486,2492
  571.                       k = 0;
  572.                   else    k = 1;
  573.                   break;
  574. !             case TYREAL:
  575.               case TYDREAL:
  576.                   if(ap->cd[0] < bp->cd[0])
  577.                       k = -1;
  578.  
  579. --- 2600,2606 -----
  580.                       k = 0;
  581.                   else    k = 1;
  582.                   break;
  583. !             case TYREAL: /*assume this works for G format floats */
  584.               case TYDREAL:
  585.                   if(ap->cd[0] < bp->cd[0])
  586.                       k = -1;
  587. ***************
  588. *** 2494,2500
  589.                       k = 0;
  590.                   else    k = 1;
  591.                   break;
  592. !             case TYCOMPLEX:
  593.               case TYDCOMPLEX:
  594.                   if(ap->cd[0] == bp->cd[0] &&
  595.                      ap->cd[1] == bp->cd[1] )
  596.  
  597. --- 2608,2621 -----
  598.                       k = 0;
  599.                   else    k = 1;
  600.                   break;
  601. !             case TYCOMPLEX: 
  602. ! #ifdef GFLOAT
  603. !                 if(ap->cr[0] == bp->cr[0] &&
  604. !                    ap->cr[1] == bp->cr[1] )
  605. !                     k = 0;
  606. !                 else    k = 1;
  607. !                 break;
  608. ! #endif GFLOAT
  609.               case TYDCOMPLEX:
  610.                   if(ap->cd[0] == bp->cd[0] &&
  611.                      ap->cd[1] == bp->cd[1] )
  612. ***************
  613. *** 2547,2553
  614.           if(p->constblock.const.ci < 0) return(-1);
  615.           return(0);
  616.   
  617. !     case TYREAL:
  618.       case TYDREAL:
  619.           if(p->constblock.const.cd[0] > 0) return(1);
  620.           if(p->constblock.const.cd[0] < 0) return(-1);
  621.  
  622. --- 2668,2679 -----
  623.           if(p->constblock.const.ci < 0) return(-1);
  624.           return(0);
  625.   
  626. !     case TYREAL: 
  627. ! #ifdef GFLOAT
  628. !         if(p->constblock.const.cr[0] > 0) return(1);
  629. !         if(p->constblock.const.cr[0] < 0) return(-1);
  630. !         return(0);
  631. ! #endif GFLOAT
  632.       case TYDREAL:
  633.           if(p->constblock.const.cd[0] > 0) return(1);
  634.           if(p->constblock.const.cd[0] < 0) return(-1);
  635. ***************
  636. *** 2553,2559
  637.           if(p->constblock.const.cd[0] < 0) return(-1);
  638.           return(0);
  639.   
  640. !     case TYCOMPLEX:
  641.       case TYDCOMPLEX:
  642.           return(p->constblock.const.cd[0]!=0 || p->constblock.const.cd[1]!=0);
  643.   
  644.  
  645. --- 2679,2687 -----
  646.           if(p->constblock.const.cd[0] < 0) return(-1);
  647.           return(0);
  648.   
  649. !     case TYCOMPLEX: 
  650. ! #ifdef GFLOAT
  651. !     return(p->constblock.const.cr[0]!=0 || p->constblock.const.cr[1]!=0);
  652.       case TYDCOMPLEX:
  653.       return(p->constblock.const.cd[0]!=0 || p->constblock.const.cd[1]!=0);
  654.   #else GFLOAT
  655. ***************
  656. *** 2555,2561
  657.   
  658.       case TYCOMPLEX:
  659.       case TYDCOMPLEX:
  660. !         return(p->constblock.const.cd[0]!=0 || p->constblock.const.cd[1]!=0);
  661.   
  662.       default:
  663.           badtype( "conssgn", p->constblock.vtype);
  664.  
  665. --- 2683,2693 -----
  666.   #ifdef GFLOAT
  667.       return(p->constblock.const.cr[0]!=0 || p->constblock.const.cr[1]!=0);
  668.       case TYDCOMPLEX:
  669. !     return(p->constblock.const.cd[0]!=0 || p->constblock.const.cd[1]!=0);
  670. ! #else GFLOAT
  671. !     case TYDCOMPLEX:
  672. !     return(p->constblock.const.cd[0]!=0 || p->constblock.const.cd[1]!=0);
  673. ! #endif GFLOAT
  674.   
  675.       default:
  676.           badtype( "conssgn", p->constblock.vtype);
  677.