equal
deleted
inserted
replaced
56 ! |
56 ! |
57 |
57 |
58 sourceForPrimitive:functionNode |
58 sourceForPrimitive:functionNode |
59 ^ (String |
59 ^ (String |
60 streamContents:[:s | |
60 streamContents:[:s | |
61 s nextPutAll:functionNode |
61 s nextPutAll: functionNode smalltalkPrimitiveSelectorIterlacedWithArgumentNames. |
62 smalltalkPrimitiveSelectorIterlacedWithArgumentNames. |
62 s cr; tab4. |
|
63 s nextPut: $"; nextPutAll: functionNode comment; nextPut: $". |
63 s |
64 s |
64 cr; |
65 cr; |
65 cr; |
66 cr; |
66 tab4; |
67 tab4; |
67 nextPutAll:'<cdecl:'; |
68 nextPutAll:'<cdecl:'; |
88 tab4. |
89 tab4. |
89 s nextPutAll:'self primitiveFailed'. |
90 s nextPutAll:'self primitiveFailed'. |
90 ]) |
91 ]) |
91 |
92 |
92 "Created: / 10-07-2008 / 09:00:06 / Jan Vrany <vranyj1@fel.cvut.cz>" |
93 "Created: / 10-07-2008 / 09:00:06 / Jan Vrany <vranyj1@fel.cvut.cz>" |
93 "Modified: / 05-09-2012 / 11:48:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
94 "Modified: / 06-07-2015 / 07:35:04 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
94 ! |
95 ! |
95 |
96 |
96 sourceForSizeof: size |
97 sourceForSizeof: size |
97 |
98 |
98 ^String streamContents: |
99 ^String streamContents: |