compiler/PPCPluggableNode.st
changeset 421 7e08b31e0dae
parent 416 b0fd54ee0412
child 422 116d2b2af905
--- 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
+! !
+