Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23291/src
Modified Files:
Class.f
Log Message:
arm: correct locals type
Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/Class.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Class.f 8 May 2007 08:34:39 -0000 1.6
--- Class.f 13 May 2007 22:13:26 -0000 1.7
***************
*** 252,269 ****
in-system
- \ Temporary fix for ?isLocal to work
- tloc ' local0 >name n>tfa c!
- tloc ' local1 >name n>tfa c!
- tloc ' local2 >name n>tfa c!
- tloc ' local3 >name n>tfa c!
- tloc ' local4 >name n>tfa c!
- tloc ' local5 >name n>tfa c!
- tloc ' local6 >name n>tfa c!
- tloc ' local7 >name n>tfa c!
- tloc ' local8 >name n>tfa c!
- tloc ' local9 >name n>tfa c!
- tloc ' local10 >name n>tfa c!
- tloc ' local11 >name n>tfa c!
-
: [self] ( -- )
true abort" Use only for self-reference to object" ; immediate
--- 252,255 ----
|
