Hello all.

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 ;

Rick, if there is no downside to this, could it be included in the next
release?

Best Regards, Mike Ghan mikeghan_at_logix-controls.com

Logix Industrial Control Systems http://www.logix-controls.com
10518 NE 68th St
Kirkland, WA 98033 USA
(425)828-4149 (425)828-9682 Fax

----------------------------------------------------------------------
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 Fri May 18 2001 - 16:05:36 PDT