16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'System-Compiler-Support' |
17 category:'System-Compiler-Support' |
18 ! |
18 ! |
19 |
19 |
20 PrimitiveNode comment:' |
20 PrimitiveNode comment:' |
21 |
|
22 COPYRIGHT (c) 1990 by Claus Gittinger |
21 COPYRIGHT (c) 1990 by Claus Gittinger |
23 All Rights Reserved |
22 All Rights Reserved |
|
23 '! |
24 |
24 |
25 $Header: /cvs/stx/stx/libcomp/Attic/PrimNd.st,v 1.3 1993-10-13 02:41:39 claus Exp $ |
25 !PrimitiveNode class methodsFor:'documentation'! |
26 |
26 |
27 Primitives are currently not supported by the compiler - if you |
27 copyright |
28 want a primitive, you must use the stc-compiler and link a new smalltalk. |
28 " |
|
29 COPYRIGHT (c) 1990 by Claus Gittinger |
|
30 All Rights Reserved |
29 |
31 |
30 In the future, methods with primitives will be passed to stc and the resulting |
32 This software is furnished under a license and may be used |
31 binary be loaded into the image (also a limited set of numeric primitives |
33 only in accordance with the terms of that license and with the |
32 could be implemented for more ST-80 compatibility - if thats really needed). |
34 inclusion of the above copyright notice. This software may not |
|
35 be provided or otherwise made available to, or used by, any |
|
36 other person. No title to or ownership of the software is |
|
37 hereby transferred. |
|
38 " |
|
39 ! |
33 |
40 |
34 written 90 by claus |
41 version |
35 '! |
42 " |
|
43 $Header: /cvs/stx/stx/libcomp/Attic/PrimNd.st,v 1.4 1994-06-02 20:26:11 claus Exp $ |
|
44 " |
|
45 ! |
|
46 |
|
47 documentation |
|
48 " |
|
49 node for parse-trees, representing primitive code |
|
50 |
|
51 Primitives are currently not supported by the compiler |
|
52 - if you want a primitive, you must use the stc-compiler and |
|
53 link a new smalltalk. |
|
54 |
|
55 In the future, methods with primitives will be passed to stc and |
|
56 the resulting binary be loaded into the image (also a limited set |
|
57 of numeric primitives could be implemented for more ST-80 |
|
58 compatibility - if there is a need). |
|
59 " |
|
60 ! ! |
36 |
61 |
37 !PrimitiveNode class methodsFor:'instance creation'! |
62 !PrimitiveNode class methodsFor:'instance creation'! |
38 |
63 |
39 code:aString |
64 code:aString |
40 ^ self basicNew code:aString |
65 ^ self basicNew code:aString |