[gforth] / gforth / prim  

gforth: gforth/prim

Diff for /gforth/prim between version 1.173 and 1.174

version 1.173, Sun Jul 31 20:27:41 2005 UTC version 1.174, Tue Aug 2 12:00:51 2005 UTC
Line 417 
Line 417 
 JUMP(a_target);  JUMP(a_target);
 #else  #else
 SET_IP((Xt *)a_target);  SET_IP((Xt *)a_target);
   INST_TAIL; NEXT_P2;  
 #endif  #endif
 }  } else {
 sp--;  sp--;
 sp[0]=f;  sp[0]=f;
 SUPER_CONTINUE;  }
   
 ?dup-0=-?branch ( #a_target f -- S:... ) new    question_dupe_zero_equals_question_branch  ?dup-0=-?branch ( #a_target f -- S:... ) new    question_dupe_zero_equals_question_branch
 ""The run-time procedure compiled by @code{?DUP-0=-IF}.""  ""The run-time procedure compiled by @code{?DUP-0=-IF}.""
Line 433 
Line 432 
   JUMP(a_target);    JUMP(a_target);
 #else  #else
   SET_IP((Xt *)a_target);    SET_IP((Xt *)a_target);
   NEXT;  
 #endif  #endif
 }  }
 SUPER_CONTINUE;  
   
 \+  \+
 \fhas? skiploopprims 0= [IF]  \fhas? skiploopprims 0= [IF]

Generate output suitable for use with a patch program
Legend:
Removed from v.1.173  
changed lines
  Added in v.1.174
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help