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 |
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 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
locals-types:64^ dummy-64^
: 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! ;
|
| |
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.
6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
@ IF ['] noop assert-canary
ELSE postpone ( THEN ;
: )else( ]] ) ( [[ ; immediate \ )
[THEN]
: nodebug: ['] ( Alias immediate ;
action-of .s. ' . = [IF]
:noname ( ... -- ... )
depth IF ... THEN
fdepth IF cr "F:" type f.s THEN ; is printdebugdata
[THEN]
require xtype.fs
require base64.fs
require base85.fs
: .nnb ( addr n -- ) 85type ;
: .64b ( addr -- ) 64 .nnb ;
|
< < < < < < |
6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
@ 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 ;
|