Mike,

There is no reason for U, to limit the text to 255 characters. :(
The real fix might be to allow any size of string at all, but
that seems a bit arbitrary too, because a simple blunder can
cause the system to go belly-up. For instance

        PAD -1 U,

would be a bad thing!

But I do think that 4096 characters is not unreasonable. The next
SwiftForth release will have this limit for string lengths for
both Z, and U, .

Thanks,
Rick

>
>I was unable to compile static text in a dialog that was longer than 255
>bytes.
>The dialog compiler eventually calls U, to compile the control's text.
>The following small change to SRC\KERNEL\STRINGS2.F allows text up to an
>arbitrary length of 2047. While I try to avoid making any changes to
>FORTH Inc supplied code, there was not any other clean solution I could
>find.
>
>
>: U, ( addr n -- ) 2047 MIN 2048 R-ALLOC >R R@ ZPLACE
> \ Old 255 MIN R-BUF R@ PLACE
> R> ZCOUNT 0 ?DO COUNT C, 0 C, LOOP DROP 0 C, 0 C, ALIGN ;
i

----------------------------------------------------------------------
sftalk_at_forth.com The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe sftalk" to listar_at_forth.com
For help with listar commands, send subject "help" to listar_at_forth.com
Archives are located at http://www.forth.com/sftalk -- check them out!
Search the archives! Visit http://www.forth.com/search for details.
Received on Sat May 19 2001 - 10:28:29 PDT