Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12877/src/lib
Modified Files:
RESOURCES.F
Log Message:
Rod: made external - SourceFile - needed for copying resources
Index: RESOURCES.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/RESOURCES.F,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** RESOURCES.F 7 Aug 2005 09:34:57 -0000 1.5
--- RESOURCES.F 10 Oct 2005 22:26:20 -0000 1.6
***************
*** 200,209 ****
: CloseSourceFile ( -- ) hExe call FreeLibrary drop 0 to hExe ;
: SourceFile ( s" Filename" -- )
2dup SourceFileName place asciiz call LoadLibrary to hExe
hExe 0= IF SourceFileName SourceFileError abort THEN ;
- external
-
: ListResources ( s" Filename" -- )
SourceFile
--- 200,209 ----
: CloseSourceFile ( -- ) hExe call FreeLibrary drop 0 to hExe ;
+ external
+
: SourceFile ( s" Filename" -- )
2dup SourceFileName place asciiz call LoadLibrary to hExe
hExe 0= IF SourceFileName SourceFileError abort THEN ;
: ListResources ( s" Filename" -- )
SourceFile
|
