|
|
 Up |
|
|
  |
Author: Stephan BecherStephan Becher Date: Aug 23, 2008 07:52
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
|
| Show full article (1.52Kb) |
|
| | 4 Comments |
|
|
Author: Alex McDonaldAlex McDonald Date: Sep 1, 2008 13:57
On Aug 23, 3:52 pm, "Stephan Becher"
online.de> wrote:
> 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 ...
|
| Show full article (2.44Kb) |
|
| | no comments |
|
|
Author: Stephan BecherStephan Becher Date: Sep 1, 2008 23:46
> On Aug 23, 3:52 pm, "Stephan Becher"
> online.de> wrote:
>> While trying to validate my new ANS Forth implemention of StrongForth on
>> Win32Forth, I stumbled over an...
|
| Show full article (3.03Kb) |
| no comments |
|
|
Author: George HubertGeorge Hubert Date: Sep 2, 2008 00:30
On Sep 1, 9:57 pm, Alex McDonald rivadpm.com> wrote:> On Aug 23, 3:52 pm, "Stephan Becher"
>
>
>
> Yes, it looks like a bug. However, it's probably not going to get
> fixed for some time I suspect, as (LOCALS) isn't used in user code.
>
Actually it's already been fixed in the win32forth CVS.
|
| Show full article (1.25Kb) |
| no comments |
|
|
|
|
|
Author: CelimeCelime Date: Sep 2, 2008 05:18
The next definition is LOCALS|...| based :
: reverse-params| ( -- )
0
BEGIN
>IN @ TOKEN S" )" COMPARE
WHILE
SWAP 1+
REPEAT
DROP >IN @ >R
0 ?DO
>IN !
TOKEN PAD APPEND
S" " PAD APPEND
LOOP
S" |" PAD APPEND
R>>IN ! ;
: LOCALS( ( -- )
S" LOCALS| " PAD PLACE reverse-params|
PAD COUNT EVALUATE ; immediate
|
| Show full article (0.47Kb) |
| no comments |
|
|
