retro.forth: use inline assembly in s:hash

FossilOrigin-Name: 68dda770df24b4ba17eb3cac375027c526d10865876afd3d804da7fe4ba37be4
2020-02-12 15:35:58 +00:00 · 2020-02-12 15:35:58 +00:00 · c7411cd4f8
commit c7411cd4f8
parent 829d4d5daa
3 changed files with 518 additions and 518 deletions
--- a/image/retro.forth
+++ b/image/retro.forth
@ -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

 ~~~
-: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.
--- a/BIN
+++ b/BIN
--- a/vm/nga-c/retro-image.c
+++ b/vm/nga-c/retro-image.c