Quick Search:

Mode

Context

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

Other Diffs

Ignore

Blank Lines Whitespace: Expand:

Diff

1.120
 
1.121
 
MAIN:ragge:20041220182709
 
trees.c
_>16251625 
 16261626         if( o == FCON ){
 16271627                 loc = lastloc;
<>1628 -                send_passt(IP_LOCCTR, DATA);
  1628+                send_passt(IP_LOCCTR, RDATA);
16291629                 defalign( p->n_type == DOUBLE ? ALDOUBLE : ALFLOAT );
 16301630 
<>1631 -                send_passt(IP_DEFLAB, i = getlab());
  1631+                dlabel( i = getlab());
16321632                 finval(p);
 16331633                 p->n_op = NAME;
 16341634                 p->n_lval = 0;
     
 !
17891789                 andorbr(p->n_left, -1, lab);
 17901790                 andorbr(p->n_right, true, false);
 17911791                 if (false < 0)
<>1792 -                        send_passt(IP_DEFLAB, lab);
  1792+                        plabel( lab);
17931793                 nfree(p);
 17941794                 break;
 17951795 
     
 !
17981798                 andorbr(p->n_left, lab, -1);
 17991799                 andorbr(p->n_right, true, false);
 18001800                 if (true < 0)
<>1801 -                        send_passt(IP_DEFLAB, lab);
  1801+                        plabel( lab);
18021802                 nfree(p);
 18031803                 break;
 18041804 
     
 !
18571857                 rmcops(q);
 18581858                 ecode(q); /* Done with assign */
 18591859                 branch(lbl2 = getlab());
<>1860 -                send_passt(IP_DEFLAB, lbl);
  1860+                plabel( lbl);
18611861 
 18621862                 q = p->n_right->n_right;
 18631863                 if (type != VOID) {
     
 !
18671867                 rmcops(q);
 18681868                 ecode(q); /* Done with assign */
 18691869 
<>1870 -                send_passt(IP_DEFLAB, lbl2);
  1870+                plabel( lbl2);
18711871 
 18721872                 nfree(p->n_right);
 18731873                 if (p->n_type != VOID) {
     
 !
19011901                 r = tempnode(&tval, p->n_type, p->n_df, p->n_sue);
 19021902                 ecode(buildtree(ASSIGN, q, bcon(1)));
 19031903                 branch(lbl2 = getlab());
<>1904 -                send_passt(IP_DEFLAB, lbl);
  1904+                plabel( lbl);
19051905                 ecode(buildtree(ASSIGN, r, bcon(0)));
<>1906 -                send_passt(IP_DEFLAB, lbl2);
  1906+                plabel( lbl2);
19071907                 r = tempnode(&tval, p->n_type, p->n_df, p->n_sue);
 19081908                 *p = *r;
 19091909                 nfree(r);
     
 !
22242224         ip->lineno = lineno;
 22252225         switch (type) {
 22262226         case IP_NODE:
<> 2227+                if (lastloc != PROG)
  2228+                        send_passt(IP_LOCCTR, PROG);
22272229                 ip->ip_node = va_arg(ap, NODE *);
 22282230                 break;
 22292231         case IP_PROLOG:
     
 !
22402242         case IP_DEFLAB:
 22412243                 ip->ip_lbl = va_arg(ap, int);
 22422244                 break;
<>2243 -        case IP_DEFNAM:
 2244 -                ip->ip_name = va_arg(ap, char *);
 2245 -                ip->ip_vis = va_arg(ap, int);
 2246 -                break;
22472245         case IP_ASM:
 22482246                 ip->ip_asm = va_arg(ap, char *);
 22492247                 break;
     
 !
23612359         return(q);
 23622360 }
 23632361 
<_ 2362+void
  2363+xlabel(int seg, int label)
  2364+{
  2365+        if (seg >= 0)
  2366+                send_passt(IP_LOCCTR, seg);
  2367+        send_passt(IP_DEFLAB);
  2368+}
  2369+
  2370+static void
  2371+xprint(int seg, char *fmt, va_list ap)
  2372+{
  2373+        if (seg >= 0)
  2374+                send_passt(IP_LOCCTR, seg);
  2375+#ifdef MULTIPASS
  2376+        printf("> ");
  2377+#endif
  2378+        vprintf(fmt, ap);
  2379+}
  2380+
  2381+void
  2382+cprint(char *fmt, ...)
  2383+{
  2384+        va_list ap;
  2385+
  2386+        va_start(ap, fmt);
  2387+        xprint(-1, fmt, ap);
  2388+        va_end(ap);
  2389+}
FishEye: Open Source License registered to PCC.
Atlassian FishEye, CVS analysis. (Version:1.6.3 Build:build-336 2008-11-04) - Administration - Page generated 2014-12-29 04:53 +0100