Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25895/src
Modified Files:
POINTER.F dis486.f imageman.f optliterals.f primutil.f
Log Message:
arm: correct problems with turnkey; not yet fixed entirely (see optliterals)
Index: POINTER.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/POINTER.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** POINTER.F 30 Oct 2006 09:15:13 -0000 1.4
--- POINTER.F 15 Mar 2007 17:55:15 -0000 1.5
***************
*** 24,33 ****
: Pointer ( bytes -<name>- ) \ make a pointer "name"
! in-previous in-application \ always in app space
128 max \ at least 160 bytes
create 0 , \ initialize to unallocated
PHEAD link, \ link into chain
, \ lay in size in bytes
! in-previous does> \ back to where we came from
dup @ if @ exit then \ ok, straight fetch
dup (pointerlock)
--- 24,33 ----
: Pointer ( bytes -<name>- ) \ make a pointer "name"
! in-application in-application \ always in app space
128 max \ at least 160 bytes
create 0 , \ initialize to unallocated
PHEAD link, \ link into chain
, \ lay in size in bytes
! in-application does> \ back to where we came from
dup @ if @ exit then \ ok, straight fetch
dup (pointerlock)
***************
*** 92,96 ****
external
! in-previous
: %UnPointer ( cfa -- ) \ deallocate pointer given the cfa
--- 92,96 ----
external
! in-application
: %UnPointer ( cfa -- ) \ deallocate pointer given the cfa
***************
*** 161,165 ****
MAXSTRING Pointer ;
! in-previous
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
--- 161,165 ----
MAXSTRING Pointer ;
! in-application
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Index: primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/primutil.f,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** primutil.f 12 Mar 2007 21:34:57 -0000 1.22
--- primutil.f 15 Mar 2007 17:55:15 -0000 1.23
***************
*** 98,102 ****
\ ------------------------------------------------------------------------
! in-previous
: 2constant ( n m "name" )
--- 98,102 ----
\ ------------------------------------------------------------------------
! in-application
: 2constant ( n m "name" )
***************
*** 136,140 ****
: ctrl char 31 and compilation> execute postpone literal ;
! in-previous
\ Moved to user area to make asciiz thread safe gah 28jun04
--- 136,140 ----
: ctrl char 31 and compilation> execute postpone literal ;
! in-application
\ Moved to user area to make asciiz thread safe gah 28jun04
***************
*** 165,169 ****
\ new-sys-chain post-forget-chain \ chain of types of things to forget
! in-previous
:noname ( -- ) \ chain for cleanup
--- 165,169 ----
\ new-sys-chain post-forget-chain \ chain of types of things to forget
! in-application
:noname ( -- ) \ chain for cleanup
Index: dis486.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/dis486.f,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** dis486.f 13 Mar 2007 23:49:34 -0000 1.14
--- dis486.f 15 Mar 2007 17:55:15 -0000 1.15
***************
*** 1084,1091 ****
also forth definitions
: describe ( xt -- )
dup>r >name cr
! \ do the header piece
dup dup n>tfa c@
case
--- 1084,1092 ----
also forth definitions
+ \ *bug needs to check for :noname type xts
: describe ( xt -- )
dup>r >name cr
! \ do the header piece;
dup dup n>tfa c@
case
Index: optliterals.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/optliterals.f,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** optliterals.f 2 Mar 2007 15:16:54 -0000 1.12
--- optliterals.f 15 Mar 2007 17:55:15 -0000 1.13
***************
*** 68,71 ****
--- 68,72 ----
100 stack lits
+ \ *bug this is in-system, but the chain is in-application; turnkeys fail to run
: reset-lits ( -- ) \ clear the stack
lits -stack ;
Index: imageman.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/imageman.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** imageman.f 6 Oct 2006 12:17:17 -0000 1.5
--- imageman.f 15 Mar 2007 17:55:15 -0000 1.6
***************
*** 963,970 ****
true to ignore-missing-procs? \ WHEN TURNKEYING, IGNORE MISSING PROCEDURE WARNINGS !
action-of INIT-CONSOLE
['] x_INIT-CONSOLE is INIT-CONSOLE \ no statusbar for the console
\ FALSE to with-source? \ no source level debugging
0 0 r> application \ calls default application after init
! ['] SYS-SIZE >BODY !
is INIT-CONSOLE
to ignore-missing-procs?
--- 963,971 ----
true to ignore-missing-procs? \ WHEN TURNKEYING, IGNORE MISSING PROCEDURE WARNINGS !
action-of INIT-CONSOLE
+ sys-size 0 to sys-size
['] x_INIT-CONSOLE is INIT-CONSOLE \ no statusbar for the console
\ FALSE to with-source? \ no source level debugging
0 0 r> application \ calls default application after init
! to sys-size
is INIT-CONSOLE
to ignore-missing-procs?
|
