Mercurial Mercurial > hg > stx-libcomp / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
.
authorclaus
Thu, 17 Aug 1995 18:10:39 +0200
changeset 109 2bbde4ba43db
parent 108 dc930059fbc9
child 110 96fc5c3540f1
.
BCompiler.st file | annotate | diff | comparison | revisions
ByteCodeCompiler.st file | annotate | diff | comparison | revisions
Make.proto file | annotate | diff | comparison | revisions 
--- a/BCompiler.st	Wed Aug 16 01:47:52 1995 +0200
+++ b/BCompiler.st	Thu Aug 17 18:10:39 1995 +0200
@@ -26,7 +26,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.34 1995-08-15 23:47:30 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.35 1995-08-17 16:10:07 claus Exp $
 '!
 
 !ByteCodeCompiler class methodsFor:'documentation'!
@@ -47,7 +47,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.34 1995-08-15 23:47:30 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.35 1995-08-17 16:10:07 claus Exp $
 "
 !
 
@@ -494,7 +494,11 @@
      This can be set from your private.rc file or from a workspace
      for selective compilation to machine code."
 
-    STCCompilation := how
+    |ret|
+
+    ret := STCCompilation.
+    STCCompilation := how.
+    ^ ret
 
     "
      Compiler stcCompilation:#always
@@ -1636,7 +1640,7 @@
     "
      load the objectfile
     "
-    handle := ObjectFileLoader openDynamicObject:oFileName.
+    handle := ObjectFileLoader loadDynamicObject:oFileName.
     handle isNil ifTrue:[
 	self parseError:'dynamic load failed - cannot compile primitive code' position:1.
 	^ #Error
@@ -1659,7 +1663,8 @@
 	specialInit:true
 	forceOld:true 
 	interruptable:false
-	argument:2.
+	argument:2
+	identifyAs:handle.
 
     "
      did it work ?
--- a/ByteCodeCompiler.st	Wed Aug 16 01:47:52 1995 +0200
+++ b/ByteCodeCompiler.st	Thu Aug 17 18:10:39 1995 +0200
@@ -26,7 +26,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.34 1995-08-15 23:47:30 claus Exp $
+$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.35 1995-08-17 16:10:07 claus Exp $
 '!
 
 !ByteCodeCompiler class methodsFor:'documentation'!
@@ -47,7 +47,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.34 1995-08-15 23:47:30 claus Exp $
+$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.35 1995-08-17 16:10:07 claus Exp $
 "
 !
 
@@ -494,7 +494,11 @@
      This can be set from your private.rc file or from a workspace
      for selective compilation to machine code."
 
-    STCCompilation := how
+    |ret|
+
+    ret := STCCompilation.
+    STCCompilation := how.
+    ^ ret
 
     "
      Compiler stcCompilation:#always
@@ -1636,7 +1640,7 @@
     "
      load the objectfile
     "
-    handle := ObjectFileLoader openDynamicObject:oFileName.
+    handle := ObjectFileLoader loadDynamicObject:oFileName.
     handle isNil ifTrue:[
 	self parseError:'dynamic load failed - cannot compile primitive code' position:1.
 	^ #Error
@@ -1659,7 +1663,8 @@
 	specialInit:true
 	forceOld:true 
 	interruptable:false
-	argument:2.
+	argument:2
+	identifyAs:handle.
 
     "
      did it work ?
--- a/Make.proto	Wed Aug 16 01:47:52 1995 +0200
+++ b/Make.proto	Thu Aug 17 18:10:39 1995 +0200
@@ -1,4 +1,4 @@
-# $Header: /cvs/stx/stx/libcomp/Make.proto,v 1.26 1995-08-10 18:13:01 claus Exp $
+# $Header: /cvs/stx/stx/libcomp/Make.proto,v 1.27 1995-08-17 16:10:39 claus Exp $
 #
 # -------------- no need to change anything below ----------
 
@@ -102,6 +102,9 @@
 clobber::
 	    -rm -f *.c *.H abbrev.stc classList.stc
 
+AIX:
+	$(MAKE) OPT=-O2
+
 tar:
 	(cd $(TOP); tar cvfh DISTRIB/libcomp.tar \
 				libcomp/.dir.info \
hg/stx-libcomp