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 ;
|
