Dennis Ruffer wrote:
>
> Bernd,
>
> Perhaps there was something more? I'm still failing at:
>
> ./gforth -i ./kernl32b.fi -m4M -e 3 exboot.fs -e 'fpath= .|~+|.' -e 's"
> mach16b.fs"' ./kernel/main.fs -e "save-cross kernl16b.fi-
> /usr/local/bin/gforth-0.6.0 bye"
> redefined NIL
> in file included from *the terminal*:0
> in file included from kernel/main.fs:92
> in file included from kernel/kernel.fs:24
> kernel/int.fs:733: CROSS: forward
> ['] cr catch if
> ^^
...
> On 3/11/03 8:13 AM, "Bernd Paysan" <[EMAIL PROTECTED]> wrote:
>
> > On Tuesday 11 March 2003 15:30, Anton Ertl wrote:
> >> Hopefully Bernd will squash the bug soon, and then we will have 0.6.1.
> >
> > Found it. It was not related to any cross.fs features, but -trailing didn't
> > work with empty strings, if there was a blank before - and cross uses
> > -trailing to detect empty source lines. Test it with
> >
> > s" " + 0 -trailing . drop
> >
> > This should not give a negative number for the count. Fixed -trailing:
> >
> > : -trailing ( c_addr u1 -- c_addr u2 ) \ string dash-trailing
> > \G Adjust the string specified by @i{c-addr, u1} to remove all
> > \G trailing spaces. @i{u2} is the length of the modified string.
> > BEGIN
> > dup
> > WHILE
> > 1- 2dup + c@ bl <>
> > UNTIL 1+ THEN ;
Ok, this seems to work (on Linux-PPC it works preceded by any allocate
I tried). I have packed up a 0.6.1 release, will test it tomorrow,
and, if successful, release it.
- anton
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
