Update of /cvsroot/win32forth/win32forth-stc/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24528/win32forth-stc/src/kernel
Modified Files:
gkernel.f
Log Message:
gah:Added Pointer.f and updated Task.f to match newest ITC version
Index: gkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/kernel/gkernel.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** gkernel.f 4 Oct 2006 10:27:37 -0000 1.8
--- gkernel.f 4 Oct 2006 12:00:04 -0000 1.9
***************
*** 2292,2296 ****
: move-code ( addr -- ) count (move-code) ; \ routine to move the code
!
\ -------------------- Vocabulary/header support -----------------------
--- 2292,2296 ----
: move-code ( addr -- ) count (move-code) ; \ routine to move the code
!
\ -------------------- Vocabulary/header support -----------------------
***************
*** 2386,2390 ****
: xt-jmp, ( xt -- ) $e9 xt-rel, ; \ generate jump to xt on the stack
!
0 | value tail-call \ see exit for use
--- 2386,2390 ----
: xt-jmp, ( xt -- ) $e9 xt-rel, ; \ generate jump to xt on the stack
!
0 | value tail-call \ see exit for use
***************
*** 2406,2410 ****
: >body ( xt -- body ) body-off + @ ; \ get body of created word
!
gcode _lit
mov -4 [ebp], eax
--- 2406,2410 ----
: >body ( xt -- body ) body-off + @ ; \ get body of created word
!
gcode _lit
mov -4 [ebp], eax
***************
*** 2432,2436 ****
: (x-cons) ( xt -- ) execute postpone literal ; \ execute & compile a literal
!
0 1 in/out : constant ( n "name" ) \ compile time
( -- n ) \ run time
--- 2432,2436 ----
: (x-cons) ( xt -- ) execute postpone literal ; \ execute & compile a literal
!
0 1 in/out : constant ( n "name" ) \ compile time
( -- n ) \ run time
***************
*** 2670,2676 ****
: char ( -- char ) parse-word drop c@ ;
!
: [char] ( -- char ) char postpone literal ; immediate
!
: /parse ( -- addr u )
>in @ char swap >in ! dup '"' = over ''' =
--- 2670,2676 ----
: char ( -- char ) parse-word drop c@ ;
!
: [char] ( -- char ) char postpone literal ; immediate
!
: /parse ( -- addr u )
>in @ char swap >in ! dup '"' = over ''' =
***************
*** 2725,2729 ****
: "parse ( -- addr len ) [char] " parse ;
!
: ", ( a1 n1 -- ) \ compile a1,n1 at here (counted)
here over c, over allot 1+ swap cmove ;
--- 2725,2729 ----
: "parse ( -- addr len ) [char] " parse ;
!
: ", ( a1 n1 -- ) \ compile a1,n1 at here (counted)
here over c, over allot 1+ swap cmove ;
***************
*** 5586,5589 ****
--- 5586,5590 ----
spcs spcs-max blank \ fill spaces buffer
+ ['] temp$ is new$ \ must be set until pointers inited
&cb-msg off \ zero out pointers first time through
&cb-winmsg off
|
