Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17155/src
Modified Files:
editor_io.f
Log Message:
- Some cleanup
Index: editor_io.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/editor_io.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** editor_io.f 29 Aug 2005 15:56:28 -0000 1.1
--- editor_io.f 23 Jul 2006 09:39:39 -0000 1.2
***************
*** 88,93 ****
then ;
! defer init-shared-type \ set the sharing type for current program
! defer uninit-shared-type \ set the sharing type for current program
INTERNAL
--- 88,93 ----
then ;
! defer init-shared-type ' noop is init-shared-type \ set the sharing type for current program
! defer uninit-shared-type ' noop is uninit-shared-type \ set the sharing type for current program
INTERNAL
***************
*** 102,110 ****
0 to ed-hndl
z" SharedEditMemory" ed-size open-share
! -IF to ed-hndl
! to ed-ptr
! init-shared-type \ bump count of Forths currently running
! ELSE 2drop
! THEN ;
init-shared-memory \ init it now per smb March 6th, 1996
--- 102,110 ----
0 to ed-hndl
z" SharedEditMemory" ed-size open-share
! -IF to ed-hndl
! to ed-ptr
! init-shared-type \ bump count of Forths currently running
! ELSE 2drop
! THEN ;
init-shared-memory \ init it now per smb March 6th, 1996
***************
*** 114,119 ****
: uninit-shared-forth ( -- )
second-forth? 0= \ and I'm the editors copy of Forth
! IF 0 ed-result ! \ then tell console to close the console
! 0 ED_SHUTDOWN editor-message
THEN
-1 ed-forth-count +! ; \ bump count of Forths currently running
--- 114,119 ----
: uninit-shared-forth ( -- )
second-forth? 0= \ and I'm the editors copy of Forth
! IF 0 ed-result ! \ then tell console to close the console
! 0 ED_SHUTDOWN editor-message
THEN
-1 ed-forth-count +! ; \ bump count of Forths currently running
***************
*** 126,134 ****
ed-ptr 0<> \ if shared memory was inited
ed-hndl 0<> and
! IF uninit-shared-type
! ed-ptr ed-hndl close-share
! 0 to ed-ptr
! 0 to ed-hndl
! THEN ;
unload-chain chain-add-before uninit-shared-memory
--- 126,134 ----
ed-ptr 0<> \ if shared memory was inited
ed-hndl 0<> and
! IF uninit-shared-type
! ed-ptr ed-hndl close-share
! 0 to ed-ptr
! 0 to ed-hndl
! THEN ;
unload-chain chain-add-before uninit-shared-memory
|
