I know there must be a way for me to do these patches automatically. I just have never done it yet. Any hints? ;)
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]
