Diff for /gforth/kernel/comp.fs between versions 1.104 and 1.105

version 1.104, 2010/05/02 16:21:32 version 1.105, 2010/05/02 18:15:14
Line 294  has? primcentric [IF] Line 294  has? primcentric [IF]
         do;abicode: OF ['] ;abi-code-exec peephole-compile, , EXIT ENDOF          do;abicode: OF ['] ;abi-code-exec peephole-compile, , EXIT ENDOF
         \ code words and ;code-defined words (code words could be          \ code words and ;code-defined words (code words could be
         \ optimized, if we could identify them):          \ optimized, if we could identify them):
         dup in-dictionary? IF          dup in-dictionary? IF ( xt code-address )
             drop ['] lit-execute peephole-compile, , EXIT              over >body = if ( xt )
                   \ definitely a CODE word
                   peephole-compile, EXIT THEN
               \ not sure, might be a ;CODE word
               ['] lit-execute peephole-compile, , EXIT
             \ drop POSTPONE literal ['] execute peephole-compile, EXIT              \ drop POSTPONE literal ['] execute peephole-compile, EXIT
         THEN          THEN
     ENDCASE      ENDCASE

Removed from v.1.104  
changed lines
  Added in v.1.105


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