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.
*** empty log message ***
authorclaus
Wed, 12 Jan 1994 21:20:41 +0100
changeset 12 80f627afdd4e
parent 11 60691e5007e3
child 13 30e69e21d1d1
*** empty log message ***
BCompiler.st file | annotate | diff | comparison | revisions
ByteCodeCompiler.st file | annotate | diff | comparison | revisions
MessageNd.st file | annotate | diff | comparison | revisions
MessageNode.st file | annotate | diff | comparison | revisions 
--- a/BCompiler.st	Sun Jan 09 22:30:29 1994 +0100
+++ b/BCompiler.st	Wed Jan 12 21:20:41 1994 +0100
@@ -26,7 +26,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.6 1993-12-11 01:05:30 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.7 1994-01-12 20:20:30 claus Exp $
 '!
 
 !ByteCodeCompiler class methodsFor:'documentation'!
@@ -191,25 +191,27 @@
         ^ #Error
     ].
 
-    "check for primitive code"
-    compiler primitiveNumber notNil ifTrue:[
-        machineCode := compiler checkForPrimitiveCode:compiler primitiveNumber.
-        machineCode isNil ifTrue:[
-            Transcript showCr:'primitive ', compiler primitiveNumber printString , ' is not supported'.
-            ^ #Error
-        ]
-    ].
+    (OperatingSystem getSystemType = 'hpux') ifFalse:[
+        "check for primitive code"
+        compiler primitiveNumber notNil ifTrue:[
+            machineCode := compiler checkForPrimitiveCode:compiler primitiveNumber.
+            machineCode isNil ifTrue:[
+                Transcript showCr:'primitive ', compiler primitiveNumber printString , ' is not supported'.
+                ^ #Error
+            ]
+        ].
 
-    machineCode isNil ifTrue:[
-        "check for shared-code (only trivial methods)"
+        machineCode isNil ifTrue:[
+            "check for shared-code (only trivial methods)"
 
-        sharedCodeSymbol := compiler checkForSharedCode:symbolicCodeArray.
-        sharedCodeSymbol notNil ifTrue:[
-            sharedCode := self sharedCodeFunctionFor:sharedCodeSymbol
+            sharedCodeSymbol := compiler checkForSharedCode:symbolicCodeArray.
+            sharedCodeSymbol notNil ifTrue:[
+                sharedCode := self sharedCodeFunctionFor:sharedCodeSymbol
+            ].
+            "try to make it machine code"
+
+            machineCode := compiler checkForMachineCode:symbolicCodeArray
         ].
-        "try to make it machine code"
-
-        machineCode := compiler checkForMachineCode:symbolicCodeArray
     ].
 
     "finally create the new method-object"
@@ -227,7 +229,7 @@
     ] ifFalse:[
         machineCode notNil ifTrue:[
             newMethod code:machineCode.
-	    newMethod dynamic:true
+            newMethod dynamic:true
         ]
     ].
     newMethod source:aString.
@@ -1672,6 +1674,7 @@
     |code1 code2 code3 name|
 
     symbolicCodeArray isNil ifTrue:[^ nil].
+
     code1 := symbolicCodeArray at:1.
     (code1 == #retNum) ifTrue:[
         ^ self codeForRetNum:(symbolicCodeArray at:2)
--- a/ByteCodeCompiler.st	Sun Jan 09 22:30:29 1994 +0100
+++ b/ByteCodeCompiler.st	Wed Jan 12 21:20:41 1994 +0100
@@ -26,7 +26,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.6 1993-12-11 01:05:30 claus Exp $
+$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.7 1994-01-12 20:20:30 claus Exp $
 '!
 
 !ByteCodeCompiler class methodsFor:'documentation'!
@@ -191,25 +191,27 @@
         ^ #Error
     ].
 
-    "check for primitive code"
-    compiler primitiveNumber notNil ifTrue:[
-        machineCode := compiler checkForPrimitiveCode:compiler primitiveNumber.
-        machineCode isNil ifTrue:[
-            Transcript showCr:'primitive ', compiler primitiveNumber printString , ' is not supported'.
-            ^ #Error
-        ]
-    ].
+    (OperatingSystem getSystemType = 'hpux') ifFalse:[
+        "check for primitive code"
+        compiler primitiveNumber notNil ifTrue:[
+            machineCode := compiler checkForPrimitiveCode:compiler primitiveNumber.
+            machineCode isNil ifTrue:[
+                Transcript showCr:'primitive ', compiler primitiveNumber printString , ' is not supported'.
+                ^ #Error
+            ]
+        ].
 
-    machineCode isNil ifTrue:[
-        "check for shared-code (only trivial methods)"
+        machineCode isNil ifTrue:[
+            "check for shared-code (only trivial methods)"
 
-        sharedCodeSymbol := compiler checkForSharedCode:symbolicCodeArray.
-        sharedCodeSymbol notNil ifTrue:[
-            sharedCode := self sharedCodeFunctionFor:sharedCodeSymbol
+            sharedCodeSymbol := compiler checkForSharedCode:symbolicCodeArray.
+            sharedCodeSymbol notNil ifTrue:[
+                sharedCode := self sharedCodeFunctionFor:sharedCodeSymbol
+            ].
+            "try to make it machine code"
+
+            machineCode := compiler checkForMachineCode:symbolicCodeArray
         ].
-        "try to make it machine code"
-
-        machineCode := compiler checkForMachineCode:symbolicCodeArray
     ].
 
     "finally create the new method-object"
@@ -227,7 +229,7 @@
     ] ifFalse:[
         machineCode notNil ifTrue:[
             newMethod code:machineCode.
-	    newMethod dynamic:true
+            newMethod dynamic:true
         ]
     ].
     newMethod source:aString.
@@ -1672,6 +1674,7 @@
     |code1 code2 code3 name|
 
     symbolicCodeArray isNil ifTrue:[^ nil].
+
     code1 := symbolicCodeArray at:1.
     (code1 == #retNum) ifTrue:[
         ^ self codeForRetNum:(symbolicCodeArray at:2)
--- a/MessageNd.st	Sun Jan 09 22:30:29 1994 +0100
+++ b/MessageNd.st	Wed Jan 12 21:20:41 1994 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.4 1993-12-11 01:07:40 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/MessageNd.st,v 1.5 1994-01-12 20:20:41 claus Exp $
 '!
 
 !MessageNode class methodsFor:'instance creation'!
@@ -249,7 +249,7 @@
 !
 
 printWhileOn:aStream indent:i
-    |needParen selectorParts arg|
+    |needParen arg|
 
     "special handling of whileTrue/whileFalse"
 
@@ -521,7 +521,7 @@
 codeTimesRepeatOn:aStream inBlock:b valueNeeded:valueNeeded
     "generate code for n timesRepeat:[ ... ]"
 
-    |pos pos2 theReceiver theByteCode optByteCode|
+    |pos pos2 theReceiver|
 
     theReceiver := receiver.
     theReceiver codeOn:aStream inBlock:b.
--- a/MessageNode.st	Sun Jan 09 22:30:29 1994 +0100
+++ b/MessageNode.st	Wed Jan 12 21:20:41 1994 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.4 1993-12-11 01:07:40 claus Exp $
+$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.5 1994-01-12 20:20:41 claus Exp $
 '!
 
 !MessageNode class methodsFor:'instance creation'!
@@ -249,7 +249,7 @@
 !
 
 printWhileOn:aStream indent:i
-    |needParen selectorParts arg|
+    |needParen arg|
 
     "special handling of whileTrue/whileFalse"
 
@@ -521,7 +521,7 @@
 codeTimesRepeatOn:aStream inBlock:b valueNeeded:valueNeeded
     "generate code for n timesRepeat:[ ... ]"
 
-    |pos pos2 theReceiver theByteCode optByteCode|
+    |pos pos2 theReceiver|
 
     theReceiver := receiver.
     theReceiver codeOn:aStream inBlock:b.
hg/stx-libcomp