equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1994 by Claus Gittinger |
4 COPYRIGHT (c) 1994 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
64 type := #Self. |
66 type := #Self. |
65 value := val. |
67 value := val. |
66 ! ! |
68 ! ! |
67 |
69 |
68 !SelfNode methodsFor:'code generation'! |
70 !SelfNode methodsFor:'code generation'! |
|
71 |
|
72 codeForSideEffectOn:aStream inBlock:b for:aCompiler |
|
73 "no code at all" |
|
74 |
|
75 aCompiler |
|
76 warning:'Useless reference to this' |
|
77 position:startPosition to:endPosition. |
|
78 |
|
79 ^ self |
|
80 ! |
69 |
81 |
70 codeForSimpleReturnOn:aStream inBlock:b lineNumber:lineNrOrNil for:aCompiler |
82 codeForSimpleReturnOn:aStream inBlock:b lineNumber:lineNrOrNil for:aCompiler |
71 lineNrOrNil notNil ifTrue:[ |
83 lineNrOrNil notNil ifTrue:[ |
72 self codeLineNumber:lineNrOrNil on:aStream for:aCompiler |
84 self codeLineNumber:lineNrOrNil on:aStream for:aCompiler |
73 ]. |
85 ]. |