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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 05 Aug 1996 18:57:35 +0200
changeset 325 c94aaca6f94c
parent 324 747e77ce9e57
child 326 d2858404a4a4
checkin from browser
BCompiler.st file | annotate | diff | comparison | revisions
ByteCodeCompiler.st file | annotate | diff | comparison | revisions 
--- a/BCompiler.st	Fri Aug 02 10:27:47 1996 +0200
+++ b/BCompiler.st	Mon Aug 05 18:57:35 1996 +0200
@@ -1665,10 +1665,16 @@
     "return true, if unary selector sel is a special selector"
 
     ^ #(Array String FloatArray DoubleArray
-      Point Symbol Smalltalk Processor) includesIdentical:nm
+        Point Symbol Smalltalk Processor
+        SmallInteger Character Float 
+        Process 
+        Set IdentitySet Dictionary IdentityDictionary 
+        Sempahore 
+        OrderedCollection 
+       ) includesIdentical:nm
 
     "Created: 13.4.1996 / 20:15:35 / cg"
-    "Modified: 13.4.1996 / 20:24:01 / cg"
+    "Modified: 5.8.1996 / 16:56:58 / cg"
 !
 
 isSpecialSendSelector:sel
@@ -1899,9 +1905,21 @@
     aSymbol == #Symbol ifTrue:[^ 5].
     aSymbol == #Smalltalk ifTrue:[^ 6].
     aSymbol == #Processor ifTrue:[^ 7].
+    aSymbol == #SmallInteger ifTrue:[^ 8].
+    aSymbol == #Character ifTrue:[^ 9].
+    aSymbol == #Float ifTrue:[^ 10].
+    aSymbol == #Process ifTrue:[^ 11].
+    aSymbol == #Set ifTrue:[^ 12].
+    aSymbol == #IdentitySet ifTrue:[^ 13].
+    aSymbol == #Dictionary ifTrue:[^ 14].
+    aSymbol == #IdentityDictionary ifTrue:[^ 15].
+    aSymbol == #Sempahore ifTrue:[^ 16].
+    aSymbol == #OrderedCollection ifTrue:[^ 17].
 
     self error:'invalid special global symbol'.
     errorFlag := #Error
+
+    "Modified: 5.8.1996 / 16:51:45 / cg"
 !
 
 specialSendCodeFor:aSymbol
@@ -2313,6 +2331,6 @@
 !ByteCodeCompiler  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.87 1996-07-30 18:06:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.88 1996-08-05 16:57:35 cg Exp $'
 ! !
 ByteCodeCompiler initialize!
--- a/ByteCodeCompiler.st	Fri Aug 02 10:27:47 1996 +0200
+++ b/ByteCodeCompiler.st	Mon Aug 05 18:57:35 1996 +0200
@@ -1665,10 +1665,16 @@
     "return true, if unary selector sel is a special selector"
 
     ^ #(Array String FloatArray DoubleArray
-      Point Symbol Smalltalk Processor) includesIdentical:nm
+        Point Symbol Smalltalk Processor
+        SmallInteger Character Float 
+        Process 
+        Set IdentitySet Dictionary IdentityDictionary 
+        Sempahore 
+        OrderedCollection 
+       ) includesIdentical:nm
 
     "Created: 13.4.1996 / 20:15:35 / cg"
-    "Modified: 13.4.1996 / 20:24:01 / cg"
+    "Modified: 5.8.1996 / 16:56:58 / cg"
 !
 
 isSpecialSendSelector:sel
@@ -1899,9 +1905,21 @@
     aSymbol == #Symbol ifTrue:[^ 5].
     aSymbol == #Smalltalk ifTrue:[^ 6].
     aSymbol == #Processor ifTrue:[^ 7].
+    aSymbol == #SmallInteger ifTrue:[^ 8].
+    aSymbol == #Character ifTrue:[^ 9].
+    aSymbol == #Float ifTrue:[^ 10].
+    aSymbol == #Process ifTrue:[^ 11].
+    aSymbol == #Set ifTrue:[^ 12].
+    aSymbol == #IdentitySet ifTrue:[^ 13].
+    aSymbol == #Dictionary ifTrue:[^ 14].
+    aSymbol == #IdentityDictionary ifTrue:[^ 15].
+    aSymbol == #Sempahore ifTrue:[^ 16].
+    aSymbol == #OrderedCollection ifTrue:[^ 17].
 
     self error:'invalid special global symbol'.
     errorFlag := #Error
+
+    "Modified: 5.8.1996 / 16:51:45 / cg"
 !
 
 specialSendCodeFor:aSymbol
@@ -2313,6 +2331,6 @@
 !ByteCodeCompiler  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.87 1996-07-30 18:06:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.88 1996-08-05 16:57:35 cg Exp $'
 ! !
 ByteCodeCompiler initialize!
hg/stx-libcomp