AssignmentNode.st
changeset 876 950dac5c8ad0
parent 871 ada5288239e4
child 882 0bc2a6ecdfad
equal deleted inserted replaced
875:2561654973eb 876:950dac5c8ad0
   147 
   147 
   148     (variable type == #WorkspaceVariable) ifTrue:[
   148     (variable type == #WorkspaceVariable) ifTrue:[
   149         "/ this is done by keeping the valueHolder in the literalArray,
   149         "/ this is done by keeping the valueHolder in the literalArray,
   150         "/ and coding a #value: message here.
   150         "/ and coding a #value: message here.
   151 
   151 
   152         litIdx := aCompiler addLiteral:variable value.
   152         litIdx := aCompiler addLiteral:variable token.
   153         aStream nextPut:#pushLitS; nextPut:litIdx.
   153         aStream nextPut:#pushLitS; nextPut:litIdx.
   154         expression codeOn:aStream inBlock:b for:aCompiler.
   154         expression codeOn:aStream inBlock:b for:aCompiler.
   155 
   155 
   156         selLitIdx := aCompiler addLiteral:#value:.
   156         selLitIdx := aCompiler addLiteral:#value:.
   157         selLitIdx <= 255 ifTrue:[
   157         selLitIdx <= 255 ifTrue:[
   249 ! !
   249 ! !
   250 
   250 
   251 !AssignmentNode class methodsFor:'documentation'!
   251 !AssignmentNode class methodsFor:'documentation'!
   252 
   252 
   253 version
   253 version
   254     ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.28 1999-06-26 13:46:21 cg Exp $'
   254     ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.29 1999-06-26 14:31:17 cg Exp $'
   255 ! !
   255 ! !