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

retro.forth: more use of inline assembly

Browse source 
FossilOrigin-Name: 257bbb942cd20c79f9f25a41c5187a8ba34859f0a888ca07cfb60fb64147468b
This commit is contained in:
crc 2020-02-12 15:10:23 +00:00
parent 5e2f3c5416
commit 8772a16130
3 changed files with 590 additions and 590 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
image/retro.forth
View file

@ -600,7 +600,7 @@ a bit clearer.
~~~ ~~~
:v:preserve (aq-) :v:preserve (aq-)
swap dup fetch [ &call dip ] dip swap store ; \swdufe.. [ &call dip ] dip \swst.... ;
~~~ ~~~
If you need to update a stored variable there are two typical If you need to update a stored variable there are two typical
@ -638,7 +638,7 @@ to improve performance.
~~~ ~~~
:copy (aan-) :copy (aan-)
[ \puduliad `1 \swfepodu \liadpust `1 \po...... ] times [ \puduliad `1 \swfepodu \liadpust `1 \po...... ] times
drop drop ; drop-pair ;
~~~ ~~~
## Lexical Scope ## Lexical Scope
@ -676,7 +676,7 @@ hidden), so use `v:preserve` if you need reentrancy.
[ @ScopeList !Dictionary ] [ @ScopeList !Dictionary ]
[ @ScopeList [ @ScopeList
[ &Dictionary repeat [ &Dictionary repeat
fetch dup fetch &ScopeList n:inc fetch -eq? 0; drop \fedufe.. &ScopeList n:inc \fenezr.. drop
again ] call store ] choose ; again ] call store ] choose ;
~~~ ~~~

BIN
ngaImage
View file

Binary file not shown.

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

File diff suppressed because it is too large Load diff