Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Use dummy-dict to create dummy local |
---|---|
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
b9cb7d1176d96f1cc015083427b92ae2 |
User & Date: | bernd 2019-05-04 10:11:33.153 |
Context
2019-05-04
| ||
12:06 | Use synonym instead of alias check-in: 740b68635e user: bernd tags: trunk | |
10:11 | Use dummy-dict to create dummy local check-in: b9cb7d1176 user: bernd tags: trunk | |
2019-05-02
| ||
19:36 | More night mode stuff check-in: 894baa5fc9 user: bernd tags: trunk | |
Changes
Changes to 64bit.fs.
︙ | ︙ | |||
190 191 192 193 194 195 196 | ' d: alias 64: : 64^ ( "name" -- a-addr xt ) \ net2o 64-caret create-local ['] compile-pushlocal-64 does> ( Compilation: -- ) ( Run-time: -- w ) postpone laddr# @ lp-offset, ; previous definitions | | | 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 | ' d: alias 64: : 64^ ( "name" -- a-addr xt ) \ net2o 64-caret create-local ['] compile-pushlocal-64 does> ( Compilation: -- ) ( Run-time: -- w ) postpone laddr# @ lp-offset, ; previous definitions ' dummy-dict ' dict-execute ' locals-types:64^ wrap-xt dummy-64^ 2drop : dumin ( ud1 ud2 -- ud3 ) 2over 2over du> IF 2swap THEN 2drop ; : dumax ( ud1 ud2 -- ud3 ) 2over 2over du< IF 2swap THEN 2drop ; : 64!@ ( value addr -- old-value ) >r r@ 64@ 64swap r> 64! ; : 64min! ( d addr -- ) >r r@ 64@ dmin r> 64! ; : 64max! ( d addr -- ) >r r@ 64@ dmax r> 64! ; : 64umin! ( n addr -- ) >r r@ 64@ dumin r> 64! ; : 64umax! ( n addr -- ) >r r@ 64@ dumin r> 64! ; |
︙ | ︙ |
Changes to debugging.fs.
1 2 3 4 5 6 7 8 9 10 11 12 | \ debugging aids false [IF] : debug: ( -- ) Create immediate false , DOES> @ IF ['] noop assert-canary ELSE postpone ( THEN ; : )else( ]] ) ( [[ ; immediate \ ) [THEN] : nodebug: ['] ( Alias immediate ; | < < < < < < | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | \ debugging aids false [IF] : debug: ( -- ) Create immediate false , DOES> @ IF ['] noop assert-canary ELSE postpone ( THEN ; : )else( ]] ) ( [[ ; immediate \ ) [THEN] : nodebug: ['] ( Alias immediate ; require xtype.fs require base64.fs require base85.fs : .nnb ( addr n -- ) 85type ; : .64b ( addr -- ) 64 .nnb ; |
︙ | ︙ |