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
^^
Backtrace:
$E1BA4 throw
$34FBCC c(abort")
$3551D8 g>xt
$355220 '
$34F1BC execute
$3559E8 execute-exec-compile
$355C20 tcom
$355C9C ]
$355D10 (:)
make: *** [kernl16b.fi-] Error 1
DaR
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 ;
>
> Now the reason why this did always work in little endian is that the
> "loadfilename" descriptor stored in the heap before the input string never
> can end with $20 in little endian, but may end with this byte in big
> endian.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
