alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Avoid w@ and w! collision.

Browse Source
This commit is contained in:
Brad Nelson
2022-06-10 22:23:43 -07:00
parent 139797bdf7
commit 33f5db3209
3 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/hashing/hashing.fs
View File

@ -21,8 +21,8 @@ internals vocabulary hashing hashing definitions
0 VALUE temp1 0 VALUE temp2
CREATE w 80 4* ALLOT
: w@ ( n -- n ) 4* w + UL@ ;
: w! ( n n -- ) 4* w + L! ;
: @w ( n -- n ) 4* w + UL@ ;
: !w ( n n -- ) 4* w + L! ;
: 32-bit ( n -- n ) $ffffffff AND ;
: L+ ( n n -- n ) + 32-bit ;