[Win32forth-cvs] win32forth-stc/src/kernel gkernel.f,1.8,1.9

[George H. <geo...@us...>]

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