Patch turned out to be easy to use. Got it and it works great! It sure is great to be able to use my tokenizer on cygwin without waiting an eternity for it to finish. Great Job!
Thanks! ;) DaR > -----Original Message----- > From: Anton Ertl [mailto:[EMAIL PROTECTED]] > Sent: Thursday, February 06, 2003 8:45 AM > To: [EMAIL PROTECTED] > Subject: Re: [gforth] New snapshot available > > > Dennis Ruffer wrote: > > > > I'll wait (;anxiously;) for a fix then. DaR > > Index: savesys.fs > =================================================================== > RCS file: /usr/local/lib/cvs-repository/src-master/gforth/savesys.fs,v > retrieving revision 1.4 > diff -u -r1.4 savesys.fs > --- savesys.fs 2002/09/14 08:20:20 1.4 > +++ savesys.fs 2003/02/06 16:43:33 > @@ -41,6 +41,7 @@ > : dump-fi ( addr u -- ) > w/o bin create-file throw >r > update-image-included-files > + update-image-order > here forthstart - forthstart 2 cells + ! > forthstart > begin \ search for start of file ("#! " at a multiple of 8) > Index: search.fs > =================================================================== > RCS file: /usr/local/lib/cvs-repository/src-master/gforth/search.fs,v > retrieving revision 1.22 > diff -u -r1.22 search.fs > --- search.fs 2003/01/20 17:07:38 1.22 > +++ search.fs 2003/02/06 16:43:34 > @@ -149,16 +149,25 @@ > \G order (for Gforth, this is the word list @code{Root}). > 1 vp! Root also ; > > +: update-image-order ( -- ) > + \ save search order here, let vp point there > + here vp over vp @ 1+ cells > + dup allot move > + to vp ; > + > : init-vp ( -- ) > - $10 TO maxvp > - maxvp 1+ cells allocate throw TO vp > - Only Forth also definitions ; > + vp @ $10 max to maxvp > + maxvp 1+ cells allocate throw > + vp over vp @ 1+ cells move > + TO vp ; > > :noname > init-vp DEFERS 'cold ; > IS 'cold > + > +here 0 , to vp > > -init-vp > +init-vp Only Forth also definitions > > \ set initial search order 14may93py > > > --------------------------------------------------------------------- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
