![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to vars.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to vars.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.40, 2006/02/26 17:23:47 | version 1.41, 2006/03/05 14:10:52 |
|---|---|
| Line 202 AUser dpp normal-dp dpp ! | Line 202 AUser dpp normal-dp dpp ! |
| AUser LastCFA | AUser LastCFA |
| AUser Last | AUser Last |
| has? flash [IF] | |
| AUser flash-dp | |
| : rom flash-dp dpp ! ; | |
| : ram normal-dp dpp ! ; | |
| [THEN] | |
| User max-name-length \ maximum length of all names defined yet | User max-name-length \ maximum length of all names defined yet |
| 32 max-name-length ! | 32 max-name-length ! |