Diff for /gforth/prim between versions 1.65 and 1.67

version 1.65, 2000/11/12 18:14:09 version 1.67, 2000/12/13 10:15:26
Line 74 Line 74
 \ xt.*          XT  \ xt.*          XT
 \ wid.*         WID  \ wid.*         WID
 \ f83name.*     F83Name *  \ f83name.*     F83Name *
   
   \E get-current prefixes set-current
   \E 
   \E s" Bool"             single data-stack type-prefix f
   \E s" Char"             single data-stack type-prefix c
   \E s" Cell"             single data-stack type-prefix n
   \E s" Cell"             single data-stack type-prefix w
   \E s" UCell"            single data-stack type-prefix u
   \E s" DCell"            double data-stack type-prefix d
   \E s" UDCell"           double data-stack type-prefix ud
   \E s" Float"            single fp-stack   type-prefix r
   \E s" Cell *"           single data-stack type-prefix a_
   \E s" Char *"           single data-stack type-prefix c_
   \E s" Float *"          single data-stack type-prefix f_
   \E s" DFloat *"         single data-stack type-prefix df_
   \E s" SFloat *"         single data-stack type-prefix sf_
   \E s" Xt"               single data-stack type-prefix xt
   \E s" WID"              single data-stack type-prefix wid
   \E s" struct F83Name *" single data-stack type-prefix f83name
   \E 
   \E return-stack stack-prefix R:
   \E inst-stream  stack-prefix #
   \E 
   \E set-current
   
 \   \ 
 \   \ 
 \   \ 
Line 150  SET_IP((Xt *)(((Cell)IP)+(Cell)NEXT_INST Line 175  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 186  $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 196  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.67


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