[Win32forth-cvs] win32forth/src/old optv1.F,1.1,1.2

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/src/old
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv6830/src/old

Modified Files:
	optv1.F 
Log Message:
- Renamed ?LOADING into LOADING?
- Replaced DEFER@ with ACTION-OF
- and some other minor changes

Index: optv1.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/old/optv1.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** optv1.F	21 Dec 2004 00:19:11 -0000	1.1
--- optv1.F	3 Oct 2006 07:44:22 -0000	1.2
***************
*** 8,12 ****
  ---------------------
  
! Words of the form 
   : x ... 1 2 3 ... ;
  would normally compile
--- 8,12 ----
  ---------------------
  
! Words of the form
   : x ... 1 2 3 ... ;
  would normally compile
***************
*** 19,23 ****
  ------------------
  
! Words of the form 
   10 CONSTANT Y
   : X Y ;
--- 19,23 ----
  ------------------
  
! Words of the form
   10 CONSTANT Y
   : X Y ;
***************
*** 83,87 ****
                  mov     ecx, 0 [esi]              \ get count
                  lea     eax, 4 [esi]              \ point at first entry
!                 lea     esi, 0 [ecx*4] [esi]      \ point at entry n 
                  push    ebx                       \ save ebx
  @@1:            push    0 [eax]                   \ next constant
--- 83,87 ----
                  mov     ecx, 0 [esi]              \ get count
                  lea     eax, 4 [esi]              \ point at first entry
!                 lea     esi, 0 [ecx*4] [esi]      \ point at entry n
                  push    ebx                       \ save ebx
  @@1:            push    0 [eax]                   \ next constant
***************
*** 98,102 ****
                  mov     ecx, 0 [esi]              \ get count
                  lea     ebx, [ecx*4]              \ save it in ebx as cells
!                 sub     esp, ebx                  \ adjust stack 
                  mov     ebx, 0 [esi]              \ last value
                  add     esi, # 4                  \ first entry
--- 98,102 ----
                  mov     ecx, 0 [esi]              \ get count
                  lea     ebx, [ecx*4]              \ save it in ebx as cells
!                 sub     esp, ebx                  \ adjust stack
                  mov     ebx, 0 [esi]              \ last value
                  add     esi, # 4                  \ first entry
***************
*** 134,138 ****
                  0 opt-lasthere !
                  ;
!                 
  opt-chain-term chain-add opt-lastreset           \ add to term chain
  
--- 134,138 ----
                  0 opt-lasthere !
                  ;
! 
  opt-chain-term chain-add opt-lastreset           \ add to term chain
  
***************
*** 153,157 ****
                  then
                  ;
!                 
  opt-chain-term chain-add opt-genlit,              \ add to cleanup
  
--- 153,157 ----
                  then
                  ;
! 
  opt-chain-term chain-add opt-genlit,              \ add to cleanup
  
***************
*** 190,194 ****
                  dup
                  case
!                 
                    dup @ docon of                 \ n CONSTANT y to LIT N
                      opt-lastreset                \ reset last
--- 190,194 ----
                  dup
                  case
! 
                    dup @ docon of                 \ n CONSTANT y to LIT N
                      opt-lastreset                \ reset last
***************
*** 224,228 ****
              BEGIN   opt-scan                     \ read a word
              WHILE   SAVE-SRC FIND ?DUP
!               IF 
                  STATE @ =
                  IF opt-COMPILE,                  \ COMPILE TIME
--- 224,228 ----
              BEGIN   opt-scan                     \ read a word
              WHILE   SAVE-SRC FIND ?DUP
!               IF
                  STATE @ =
                  IF opt-COMPILE,                  \ COMPILE TIME
***************
*** 239,243 ****
              REPEAT DROP
              ;
!                 
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \               Optimizer Control definitions
--- 239,243 ----
              REPEAT DROP
              ;
! 
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \               Optimizer Control definitions
***************
*** 249,253 ****
                  TRUE  to optimising?
                  FALSE to opt-state
!                 defer@ interpret to prev-interpret
                  ['] opt-interpret is interpret ;
  
--- 249,253 ----
                  TRUE  to optimising?
                  FALSE to opt-state
!                 action-of interpret to prev-interpret
                  ['] opt-interpret is interpret ;