Diff for /gforth/prim between versions 1.255 and 1.256

version 1.255, 2010/08/31 20:10:59 version 1.256, 2010/09/01 16:52:12
Line 618  f_fp = fp; Line 618  f_fp = fp;
 c_lp = lp;  c_lp = lp;
 a_newhandler = rp-5;  a_newhandler = rp-5;
   
   (throw1) ( ... wball a_handler -- ... wball ) gforth paren_throw1
   rp = a_handler;
   lp = (Address)rp[1];
   fp = (Float *)rp[2];
   sp = (Cell *)rp[3];
   #ifndef NO_IP
   ip=IP;
   #endif
   SUPER_END;
   VM_JUMP(EXEC1(*(Xt *)rp[4]));
     
   
 \+  \+
   
 \ don't make any assumptions where the return stack is!!  \ don't make any assumptions where the return stack is!!

Removed from v.1.255  
changed lines
  Added in v.1.256


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