Diff for /gforth/arch/misc/prim.fs between versions 1.10 and 1.11

version 1.10, 2002/10/02 15:54:36 version 1.11, 2003/01/03 17:28:12
Line 53  End-Label Line 53  End-Label
 \ The virtual machine registers an data (stacks) go  \ The virtual machine registers an data (stacks) go
 \ to a seperate memory region (hopefully ram)  \ to a seperate memory region (hopefully ram)
   
 UNLOCK  \ UNLOCK
 current-region vm-memory activate ( saved-region )  \ current-region vm-memory activate ( saved-region )
 LOCK  \ LOCK
   
 Label RP        0 ,  Label RP        0 ,
 Label SP        0 ,  Label SP        0 ,
Line 304  Code ?branch Line 304  Code ?branch
                 "Next" , jmp ,                  "Next" , jmp ,
                 '~ dout                  '~ dout
                 t0 , accu ,                  t0 , accu ,
                 *accu , accu ,                  *accu , IP ,
 Label >branch  
                 IP , add ,  
                 #2 , sub ,  
                 accu , IP ,  
                 "Next" , jmp ,                  "Next" , jmp ,
 Label "branch"  >branch ,  
 end-code  end-code
   
 Code branch  Code branch
                 'b dout                  'b dout
                 #0 , add ,                  #0 , add ,
                 IP , shr ,                  IP , shr ,
                 *accu , accu ,                  *accu , IP ,
                 IP , add ,  
                 accu , IP ,  
                 "Next" , jmp ,                  "Next" , jmp ,
 end-code  end-code
   
Line 344  Code (loop) Line 337  Code (loop)
                 t3 , sub ,                  t3 , sub ,
                 "Next" , jz ,                  "Next" , jz ,
                 t0 , accu ,                  t0 , accu ,
                 "branch" , jmp ,                  *accu , IP ,
                   "Next" , jmp ,
 end-code  end-code
                                   
 Code xor  Code xor

Removed from v.1.10  
changed lines
  Added in v.1.11


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