MessageNode.st
changeset 867 7d20544c2c63
parent 861 ccaa0ba5e7af
child 886 454c57fbf1c2
equal deleted inserted replaced
866:dd016ce58bc5 867:7d20544c2c63
  1026     |recType nargs isBuiltIn litIndex cls clsLitIndex code isSpecial
  1026     |recType nargs isBuiltIn litIndex cls clsLitIndex code isSpecial
  1027      specialCode stackTop arg1 arg2 arg3 isSuper realReceiver|
  1027      specialCode stackTop arg1 arg2 arg3 isSuper realReceiver|
  1028 
  1028 
  1029     realReceiver := self realReceiver.
  1029     realReceiver := self realReceiver.
  1030     isSuper := realReceiver isSuper.
  1030     isSuper := realReceiver isSuper.
       
  1031     selector := selector asSymbol.
  1031 
  1032 
  1032     argArray isNil ifTrue:[
  1033     argArray isNil ifTrue:[
  1033         nargs := 0
  1034         nargs := 0
  1034     ] ifFalse:[
  1035     ] ifFalse:[
  1035         nargs := argArray size.
  1036         nargs := argArray size.
  2593 ! !
  2594 ! !
  2594 
  2595 
  2595 !MessageNode class methodsFor:'documentation'!
  2596 !MessageNode class methodsFor:'documentation'!
  2596 
  2597 
  2597 version
  2598 version
  2598     ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.94 1999-06-23 22:17:01 cg Exp $'
  2599     ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.95 1999-06-24 14:17:36 cg Exp $'
  2599 ! !
  2600 ! !