Check-in [b9cb7d1176]
Not logged in

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: b9cb7d1176d96f1cc015083427b92ae28284f5fb
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to 64bit.fs.

   190    190       ' d: alias 64:
   191    191       : 64^ ( "name" -- a-addr xt ) \ net2o 64-caret
   192    192   	create-local
   193    193   	['] compile-pushlocal-64
   194    194         does> ( Compilation: -- ) ( Run-time: -- w )
   195    195   	postpone laddr# @ lp-offset, ;
   196    196       previous definitions
   197         -    locals-types:64^ dummy-64^
          197  +    ' dummy-dict ' dict-execute ' locals-types:64^ wrap-xt dummy-64^ 2drop
   198    198       : dumin ( ud1 ud2 -- ud3 )  2over 2over du> IF  2swap  THEN  2drop ;
   199    199       : dumax ( ud1 ud2 -- ud3 )  2over 2over du< IF  2swap  THEN  2drop ;
   200    200       : 64!@ ( value addr -- old-value )   >r r@ 64@ 64swap r> 64! ;
   201    201       : 64min! ( d addr -- )  >r r@ 64@ dmin r> 64! ;
   202    202       : 64max! ( d addr -- )  >r r@ 64@ dmax r> 64! ;
   203    203       : 64umin! ( n addr -- )   >r r@ 64@ dumin r> 64! ;
   204    204       : 64umax! ( n addr -- )   >r r@ 64@ dumin r> 64! ;

Changes to debugging.fs.

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