[BACK]Return to environ.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/environ.fs between versions 1.18 and 1.19

version 1.18, 1999/02/03 00:10:19 version 1.19, 1999/03/23 20:24:17
Line 49  get-order environment-wordlist swap 1+ s Line 49  get-order environment-wordlist swap 1+ s
 \ this should be computed in C as CHAR_BITS/sizeof(char),  \ this should be computed in C as CHAR_BITS/sizeof(char),
 \ but I don't know any machine with gcc where an au does not have 8 bits.  \ but I don't know any machine with gcc where an au does not have 8 bits.
 8 constant ADDRESS-UNIT-BITS ( -- n ) \ environment  8 constant ADDRESS-UNIT-BITS ( -- n ) \ environment
 \G Size of one address unit, it bits.  \G Size of one address unit, in bits.
   
 1 ADDRESS-UNIT-BITS chars lshift 1- constant MAX-CHAR ( -- u ) \ environment  1 ADDRESS-UNIT-BITS chars lshift 1- constant MAX-CHAR ( -- u ) \ environment
 \G Maximum value of any character in the character set  \G Maximum value of any character in the character set
Line 99  version-string 2constant gforth ( -- c-a Line 99  version-string 2constant gforth ( -- c-a
     [ forthstart 4 cells + ] literal @ cell / ;      [ forthstart 4 cells + ] literal @ cell / ;
   
 : floating-stack ( -- n ) \ environment  : floating-stack ( -- n ) \ environment
     \G n is non-zero, showing that Gforth maintains a separate      \G @var{n} is non-zero, showing that Gforth maintains a separate
     \G floating-point stack of depth n.      \G floating-point stack of depth @var{n}.
     [ forthstart 5 cells + ] literal @      [ forthstart 5 cells + ] literal @
     [IFDEF] float  float  [ELSE]  [ 1 floats ] Literal [THEN] / ;      [IFDEF] float  float  [ELSE]  [ 1 floats ] Literal [THEN] / ;
   
Removed from v.1.18  
changed lines
  Added in v.1.19

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