--- a/compiler/PPCPluggableNode.st Wed Nov 19 10:52:37 2014 +0000
+++ b/compiler/PPCPluggableNode.st Mon Nov 24 00:09:23 2014 +0000
@@ -35,15 +35,14 @@
it back to source code. Very bad indeed!!"
((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[
- ^ super asInlined
+ ^ super asInlined
] ifFalse:[
- ^ PPCInlinePluggableNode new
- name: name;
- block: block;
- yourself
+ ^ PPCInlinePluggableNode new
+ name: name;
+ block: block;
+ yourself
]
- "Modified: / 06-11-2014 / 01:46:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
compileWith: compiler effect: effect id: id
@@ -68,3 +67,14 @@
^ #plug
! !
+!PPCPluggableNode methodsFor:'comparing'!
+
+= anotherNode
+ super = anotherNode ifFalse: [ ^ false ].
+ ^ block = anotherNode block.
+!
+
+hash
+ ^ super hash bitXor: block hash
+! !
+