Diff for /gforth/environ.fs between versions 1.4 and 1.7

version 1.4, 1994/12/21 14:26:23 version 1.7, 1995/10/16 18:33:06
Line 18  get-order environment-wordlist swap 1+ s Line 18  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  8 constant ADDRESS-UNIT-BITS ( -- n ) \ environment
 1 ADDRESS-UNIT-BITS chars lshift 1- constant MAX-CHAR  1 ADDRESS-UNIT-BITS chars lshift 1- constant MAX-CHAR
 MAX-CHAR constant /COUNTED-STRING  MAX-CHAR constant /COUNTED-STRING
 ADDRESS-UNIT-BITS cells 2* 2 + constant /HOLD  ADDRESS-UNIT-BITS cells 2* 2 + constant /HOLD
 &84 constant /PAD  &84 constant /PAD
 true constant CORE  true constant CORE
 \ CORE-EXT?  true constant CORE-EXT?
 1 -3 mod 0< constant FLOORED  1 -3 mod 0< constant FLOORED
   
 1 ADDRESS-UNIT-BITS cells 1- lshift 1- constant MAX-N  1 ADDRESS-UNIT-BITS cells 1- lshift 1- constant MAX-N
Line 33  true constant CORE Line 33  true constant CORE
 -1 MAX-N 2constant MAX-D  -1 MAX-N 2constant MAX-D
 -1. 2constant MAX-UD  -1. 2constant MAX-UD
   
 0 1 2constant gforth \ minor mayor version  0 1 2constant gforth \ minor major version
   
 \ !! RETURN-STACK-CELLS  \ !! RETURN-STACK-CELLS
 \ !! STACK-CELLS  \ !! STACK-CELLS
   \ !! floating-stack
   \ !! max-float
   15 constant #locals \ 1000 64 /
       \ One local can take up to 64 bytes, the size of locals-buffer is 1000
   maxvp constant wordlists
   
 forth definitions  forth definitions
 previous  previous

Removed from v.1.4  
changed lines
  Added in v.1.7


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