Quick Search:

Mode

Context

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

Other Diffs

Ignore

Blank Lines Whitespace: Expand:

Diff

1.357
 
1.358
 
MAIN:ragge:20120915160622
 
pftn.c
_>30583058 
 30593059 #define comop(x,y) buildtree(COMOP, x, y)
 30603060 
<> 3061+/*
  3062+ * Convert node p to complex type dt.
  3063+ */
30613064 static NODE *
 30623065 mkcmplx(NODE *p, TWORD dt)
 30633066 {
     
 !
33493352                 cerror("cxred failing type");
 33503353         return p;
 33513354 }
<> 3355+
  3356+/*
  3357+ * either p1 or p2 is complex, so fixup the remaining type accordingly.
  3358+ */
  3359+NODE *
  3360+cxcast(NODE *p1, NODE *p2)
  3361+{
  3362+        if (ANYCX(p1) && ANYCX(p2)) {
  3363+                if (p1->n_type != p2->n_type)
  3364+                        p2 = mkcmplx(p2, p1->n_type);
  3365+        } else if (ANYCX(p1)) {
  3366+                p2 = mkcmplx(p2, p1->n_type);
  3367+        } else /* if (ANYCX(p2)) */ {
  3368+                p2 = cast(structref(p2, DOT, real), p1->n_type, 0);
  3369+        }
  3370+        nfree(p1);
  3371+        return p2;
  3372+}
<_33523373 #endif
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-10-31 10:12 +0100