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

max string length no longer hard coded

Browse source 
FossilOrigin-Name: 8967ed0307b01da24f83efc1396a6ec724de01c8de54e7bcf99a676a84740cf2
This commit is contained in:
crc 2017-10-23 19:14:41 +00:00
parent 3becf4d899
commit 022ff9060c
3 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
interfaces/image.c
View file

File diff suppressed because one or more lines are too long

5
literate/RetroForth.md
View file

@ -519,15 +519,14 @@ workable approach.
Temporary strings are allocated in a circular pool (at STRINGS).
~~~
:TempStrings ; &class:data reclass #12 !TempStrings
:TempStrings ; &class:data reclass #32 !TempStrings
:TempStringMax ; &class:data reclass #512 !TempStringMax
:STRINGS EOM @TempStrings @TempStringMax * - ;
{{
:MAX-LENGTH #512 ;
:s:Current `0 ; data
:s:pointer (-p) @s:Current MAX-LENGTH * STRINGS + ;
:s:pointer (-p) @s:Current @TempStringMax * STRINGS + ;
:s:next (-)
&s:Current v:inc
@s:Current @TempStrings eq? [ #0 !s:Current ] if ;

BIN
ngaImage
View file

Binary file not shown.