Diff for /gforth/prim between versions 1.65 and 1.66

version 1.65, 2000/11/12 18:14:09 version 1.66, 2000/11/14 10:36:02
Line 150  SET_IP((Xt *)(((Cell)IP)+(Cell)NEXT_INST Line 150  SET_IP((Xt *)(((Cell)IP)+(Cell)NEXT_INST
 define(condbranch,  define(condbranch,
 $1      $2  $1      $2
 $3      SET_IP((Xt *)(((Cell)IP)+(Cell)NEXT_INST));  $3      SET_IP((Xt *)(((Cell)IP)+(Cell)NEXT_INST));
   TAIL;
 }  }
 else  else
     INC_IP(1);      INC_IP(1);
Line 160  $4 Line 161  $4
 $1-lp+!#        $2_lp_plus_store_number  $1-lp+!#        $2_lp_plus_store_number
 $3    lp += (Cell)(IP[1]);  $3    lp += (Cell)(IP[1]);
 SET_IP((Xt *)(((Cell)IP)+(Cell)NEXT_INST));  SET_IP((Xt *)(((Cell)IP)+(Cell)NEXT_INST));
   TAIL;
 }  }
 else  else
     INC_IP(2);      INC_IP(2);
Line 169  else Line 171  else
   
 condbranch(?branch,( f -- )             f83     question_branch,  condbranch(?branch,( f -- )             f83     question_branch,
 if (f==0) {  if (f==0) {
     IF_spTOS(spTOS = sp[0]);  
 ,:  ,:
  0= dup     \ !f !f   0= dup     \ !f !f
  r> dup @   \ !f !f IP branchoffset   r> dup @   \ !f !f IP branchoffset

Removed from v.1.65  
changed lines
  Added in v.1.66


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