equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libcomp' }" |
12 "{ Package: 'stx:libcomp' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 StatementNode subclass:#PrimitiveNode |
16 StatementNode subclass:#PrimitiveNode |
15 instanceVariableNames:'code primNumber optional' |
17 instanceVariableNames:'code primNumber optional' |
16 classVariableNames:'' |
18 classVariableNames:'' |
17 poolDictionaries:'' |
19 poolDictionaries:'' |
66 |
68 |
67 primitiveNumber:anInteger |
69 primitiveNumber:anInteger |
68 ^ self basicNew primitiveNumber:anInteger |
70 ^ self basicNew primitiveNumber:anInteger |
69 ! ! |
71 ! ! |
70 |
72 |
71 !PrimitiveNode class methodsFor:'others'! |
|
72 |
|
73 version_CVS |
|
74 ^ '$Header: /cvs/stx/stx/libcomp/PrimitiveNode.st,v 1.24 2011-07-25 22:35:40 vrany Exp $' |
|
75 ! ! |
|
76 |
|
77 !PrimitiveNode methodsFor:'accessing'! |
73 !PrimitiveNode methodsFor:'accessing'! |
78 |
74 |
79 code:aString |
75 code:aString |
80 "set the primitives code - check for the 'OPTIONAL' directive" |
76 "set the primitives code - check for the 'OPTIONAL' directive" |
81 |
77 |
98 |
94 |
99 primitiveNumber:anInteger |
95 primitiveNumber:anInteger |
100 optional := false. |
96 optional := false. |
101 primNumber := anInteger |
97 primNumber := anInteger |
102 ! ! |
98 ! ! |
|
99 |
103 |
100 |
104 !PrimitiveNode methodsFor:'code generation'! |
101 !PrimitiveNode methodsFor:'code generation'! |
105 |
102 |
106 codeForSideEffectOn:aStream inBlock:b for:aCompiler |
103 codeForSideEffectOn:aStream inBlock:b for:aCompiler |
107 "catch code generation" |
104 "catch code generation" |
186 ! ! |
183 ! ! |
187 |
184 |
188 !PrimitiveNode class methodsFor:'documentation'! |
185 !PrimitiveNode class methodsFor:'documentation'! |
189 |
186 |
190 version |
187 version |
191 ^ '$Header: /cvs/stx/stx/libcomp/PrimitiveNode.st,v 1.24 2011-07-25 22:35:40 vrany Exp $' |
188 ^ '$Header$' |
|
189 ! |
|
190 |
|
191 version_CVS |
|
192 ^ '$Header$' |
192 ! ! |
193 ! ! |
|
194 |