"

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

StatementNode subclass:#PrimitiveNode

       instanceVariableNames:'code primNumber'

       classVariableNames:''

       poolDictionaries:''

       category:'System-Compiler-Support'

!

PrimitiveNode comment:'

             All Rights Reserved

Primitives are currently not supported by the compiler - if you

want a primitive, you must use the stc-compiler and link a new smalltalk.

In the future, methods with primitives will be passed to stc and the resulting

binary be loaded into the image (also a limited set of numeric primitives

could be implemented for more ST-80 compatibility - if thats really needed).

written 90 by claus

'!

!PrimitiveNode class methodsFor:'instance creation'!

code:aString

    ^ self basicNew code:aString

!

primitiveNumber:anInteger

    ^ self basicNew primitiveNumber:anInteger

! !

!PrimitiveNode methodsFor:'accessing'!

code:aString

    code := aString

!

primitiveNumber:anInteger 

    primNumber := anInteger

! !

!PrimitiveNode methodsFor:'evaluating'!

evaluateExpression

    "catch evaluation"

    self error:'cannot evaluate primitives'

!

evaluate

    "catch evaluation"

    self error:'cannot evaluate primitives'

! !

!PrimitiveNode methodsFor:'code generation'!

codeForSideEffectOn:aStream inBlock:b

    "catch code generation"

    self error:'cannot compile primitives (as yet)'

!

codeOn:aStream inBlock:b

    "catch code generation"

    self error:'cannot compile primitives (as yet)'

! !