Author: blueswirl Date: 2009-05-22 19:15:48 +0200 (Fri, 22 May 2009) New Revision: 494
Modified: trunk/openbios-devel/forth/bootstrap/bootstrap.fs Log: forth: add more pockets
This changes pocket index calculation to support more than two pockets. As an example default number of pockets is set to 4. This should ease nesting more than two levels using pockets as temporary storage.
Signed-off-by: Igor Kovalenko igor.v.kovalenko@gmail.com
Modified: trunk/openbios-devel/forth/bootstrap/bootstrap.fs =================================================================== --- trunk/openbios-devel/forth/bootstrap/bootstrap.fs 2009-05-22 17:14:10 UTC (rev 493) +++ trunk/openbios-devel/forth/bootstrap/bootstrap.fs 2009-05-22 17:15:48 UTC (rev 494) @@ -622,18 +622,19 @@ \ pockets implementation for 7.3.4.1
100 constant pocketsize +4 constant numpockets variable pockets 0 pockets ! variable whichpocket 0 whichpocket !
-\ allocate 2 pockets to begin with +\ allocate 4 pockets to begin with : init-pockets ( -- ) - pocketsize 2* alloc-mem pockets ! + pocketsize numpockets * alloc-mem pockets ! ;
: pocket ( ?? -- ?? ) pocketsize whichpocket @ * pockets @ + - 1 whichpocket @ - + whichpocket @ 1 + numpockets mod whichpocket ! ;