crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

retro.forth: use inline assembly in s:hash

Browse source 
FossilOrigin-Name: 68dda770df24b4ba17eb3cac375027c526d10865876afd3d804da7fe4ba37be4
This commit is contained in:
crc 2020-02-12 15:35:58 +00:00
parent 829d4d5daa
commit c7411cd4f8
3 changed files with 518 additions and 518 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
image/retro.forth
View file

@ -960,7 +960,7 @@ pretty simple and works well for my needs. This was based
on an implementation at http://www.cse.yorku.ca/~oz/hash.html on an implementation at http://www.cse.yorku.ca/~oz/hash.html
~~~ ~~~
:s:hash (s-n) #5381 swap [ swap #33 * + ] s:for-each ; :s:hash (s-n) #5381 swap [ \swlimuad `33 ] s:for-each ;
~~~ ~~~
Copy a string, including the terminator. Copy a string, including the terminator.

BIN
ngaImage
View file

Binary file not shown.

1034
vm/nga-c/retro-image.c
View file

File diff suppressed because it is too large Load diff