[OpenBIOS] r494 - trunk/openbios-devel/forth/bootstrap

[svn at openbios.org]

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 at 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 !
   ;