AssignmentNode.st
changeset 104 2016bfa4cd45
parent 103 f4a69d7dd387
child 117 3736a828cb50
equal deleted inserted replaced
103:f4a69d7dd387 104:2016bfa4cd45
    19 
    19 
    20 AssignmentNode comment:'
    20 AssignmentNode comment:'
    21 COPYRIGHT (c) 1989 by Claus Gittinger
    21 COPYRIGHT (c) 1989 by Claus Gittinger
    22 	      All Rights Reserved
    22 	      All Rights Reserved
    23 
    23 
    24 $Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.10 1995-08-11 16:02:33 claus Exp $
    24 $Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.11 1995-08-11 20:27:30 claus Exp $
    25 '!
    25 '!
    26 
    26 
    27 !AssignmentNode class methodsFor:'documentation'!
    27 !AssignmentNode class methodsFor:'documentation'!
    28 
    28 
    29 copyright
    29 copyright
    40 "
    40 "
    41 !
    41 !
    42 
    42 
    43 version
    43 version
    44 "
    44 "
    45 $Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.10 1995-08-11 16:02:33 claus Exp $
    45 $Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.11 1995-08-11 20:27:30 claus Exp $
    46 "
    46 "
    47 !
    47 !
    48 
    48 
    49 documentation
    49 documentation
    50 "
    50 "
    86     ^ expression
    86     ^ expression
    87 ! !
    87 ! !
    88 
    88 
    89 !AssignmentNode methodsFor:'code generation'!
    89 !AssignmentNode methodsFor:'code generation'!
    90 
    90 
    91 codeForSideEffectOn:aStream inBlock:b
    91 codeForSideEffectOn:aStream inBlock:b for:aCompiler
    92     |sel arg|
    92     |sel arg|
    93 
    93 
    94     (variable type == #MethodVariable) ifTrue:[
    94     (variable type == #MethodVariable) ifTrue:[
    95 	expression isBinaryMessage ifTrue:[
    95 	expression isBinaryMessage ifTrue:[
    96 	    sel := expression selector.
    96 	    sel := expression selector.
   113 		    ]
   113 		    ]
   114 		]
   114 		]
   115 	    ]
   115 	    ]
   116 	]
   116 	]
   117     ].
   117     ].
   118     expression codeOn:aStream inBlock:b.
   118     expression codeOn:aStream inBlock:b for:aCompiler.
   119     variable codeStoreOn:aStream inBlock:b valueNeeded:false
   119     variable codeStoreOn:aStream inBlock:b valueNeeded:false for:aCompiler
   120 !
   120 !
   121 
   121 
   122 codeOn:aStream inBlock:b
   122 codeOn:aStream inBlock:b for:aCompiler
   123     expression codeOn:aStream inBlock:b.
   123     expression codeOn:aStream inBlock:b for:aCompiler.
   124     variable codeStoreOn:aStream inBlock:b valueNeeded:true
   124     variable codeStoreOn:aStream inBlock:b valueNeeded:true for:aCompiler
   125 ! !
   125 ! !
   126 
   126 
   127 !AssignmentNode methodsFor:'printing'!
   127 !AssignmentNode methodsFor:'printing'!
   128 
   128 
   129 printOn:aStream indent:i
   129 printOn:aStream indent:i