Diff for /gforth/prim between versions 1.173 and 1.174

version 1.173, 2005/07/31 20:27:41 version 1.174, 2005/08/02 12:00:51
Line 417  INST_TAIL; Line 417  INST_TAIL;
 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  if (f!=0) { Line 432  if (f!=0) {
   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]

Removed from v.1.173  
changed lines
  Added in v.1.174


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>