>> While trying to validate my new ANS Forth implemention of StrongForth on
>> Win32Forth, I stumbled over an issue with (LOCAL). The generated code
>> didn't
>> work, and I finally found out that even the sample definition of LOCALS|
>> from appendix A15 of the ANS Forth spec doesn't work correctly:
>>
>> Win32Forth: a Forth for Windows 95/98/ME/NT/2K/XP
>> Version: 6.12.00 Build: 2
>> Compiled: Samstag, August 23 2008, 4:18
>> Platform: Windows XP, 821k bytes free
>> 2,885 Words in Application dictionary
>> 2,332 Words in System dictionary
>> 5,217 Words total in dictionaries
>> 20,312 Windows Constants available
>> Current directory: C:\Programme\Win32Forth\extsrc\wincon\winconcpp
>> Loading Win32For.CFG
>> Loading Win32ForUser.CFG
>>
>> Program path is: C:\Programme\Win32Forth\Win32For.EXE
>> Forth path is: C:\Programme\Win32Forth\
>> Application path is:
>>
>> System Editor is: Win32Forth IDE
>>
>> WARNING OFF SYS-WARNING-OFF ok
>> : EXAMPLE ( n -- n n**2 n**3 )
>> LOCALS| N | N DUP N * DUP N * ; ok
>> 5 EXAMPLE . . . 125 25 5 ok
>> : LOCALS| ( "
name...name |" -- )
>> BEGIN
>> BL WORD COUNT OVER C@
>> [CHAR] | - OVER 1 - OR
>> WHILE
>> (LOCAL)
>> REPEAT 2DROP 0 0 (LOCAL)
>> ; ok
>> IMMEDIATE ok
>> : EXAMPLE ( n -- n n**2 n**3 )
>> LOCALS| N | N DUP N * DUP N * ; ok
>> 5 EXAMPLE . . . 0 0 0
>> ^
>> Error(-4): . stack underflow
>> 4 5 EXAMPLE . . . 64 16 4 ok
>> .S empty ok
>>
>> It seems the runtime code of this redefined version of LOCALS| swallows
>> one
>> cell from the stack. Is this a known defect?
>>
>> Regards,
>> Stephan
> ...
