Diff for /gforth/kernel/int.fs between versions 1.156 and 1.157

version 1.156, 2007/03/18 21:46:17 version 1.157, 2007/03/18 22:35:52
Line 141  const Create bases   0A , 10 ,   2 ,   0 Line 141  const Create bases   0A , 10 ,   2 ,   0
     THEN      THEN
     r> ;      r> ;
   
   has? os 0= [IF]
   : x@+/string ( addr u -- addr' u' c )
       over c@ >r 1 /string r> ;
   [THEN]
   
 : s'>unumber? ( addr u -- ud flag )  : s'>unumber? ( addr u -- ud flag )
     \ convert string "C" or "C'" to character code      \ convert string "C" or "C'" to character code
     dup 0= if      dup 0= if
Line 476  const Create ???  0 , 3 , char ? c, char Line 481  const Create ???  0 , 3 , char ? c, char
   
 : >head-noprim ( cfa -- nt ) \ gforth  to-head-noprim  : >head-noprim ( cfa -- nt ) \ gforth  to-head-noprim
     \ also heuristic      \ also heuristic
     dup forthstart - max-name-length @ float+ cell+ min cell max cell ?do ( cfa )      dup forthstart - max-name-length @
       [ has? float [IF] ] float+ [ [ELSE] ] cell+ [ [THEN] ] cell+ min
       cell max cell ?do ( cfa )
         dup i - dup @ [ alias-mask lcount-mask or ] literal          dup i - dup @ [ alias-mask lcount-mask or ] literal
         [ 1 bits/char 3 - lshift 1 - 1 bits/char 1 - lshift or          [ 1 bits/char 3 - lshift 1 - 1 bits/char 1 - lshift or
         -1 cells allot bigendian [IF]   c, -1 1 cells 1- times          -1 cells allot bigendian [IF]   c, -1 1 cells 1- times
Line 533  has? standardthreading has? compiler and Line 540  has? standardthreading has? compiler and
         drop 0          drop 0
     endif ;      endif ;
   
   has? prims [IF]
       : flash! ! ;
       : flashc! c! ;
   [THEN]
   
 has? flash [IF] ' flash! [ELSE] ' ! [THEN]  has? flash [IF] ' flash! [ELSE] ' ! [THEN]
 alias code-address! ( c_addr xt -- ) \ gforth  alias code-address! ( c_addr xt -- ) \ gforth
 \G Create a code field with code address @i{c-addr} at @i{xt}.  \G Create a code field with code address @i{c-addr} at @i{xt}.
Line 818  has? new-input 0= [IF] Line 830  has? new-input 0= [IF]
 Defer 'quit  Defer 'quit
   
 has? os [IF]  has? os [IF]
 Defer .status      Defer .status
   [ELSE]
   : (bye)     ( 0 -- ) \ back to DOS
       drop 5 emit ;
   
   : bye ( -- )  0 (bye) ;
 [THEN]  [THEN]
   
 : prompt        state @ IF ."  compiled" EXIT THEN ."  ok" ;  : prompt        state @ IF ."  compiled" EXIT THEN ."  ok" ;

Removed from v.1.156  
changed lines
  Added in v.1.157


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