--- a/compiler/PPCPluggableNode.st Thu Nov 06 01:41:10 2014 +0000
+++ b/compiler/PPCPluggableNode.st Thu Nov 06 02:22:56 2014 +0000
@@ -30,10 +30,20 @@
!
asInlined
- ^ PPCInlinePluggableNode new
- name: name;
- block: block;
- yourself
+ "Sadly, on Smalltalk/X blocks cannot be inlined because
+ the VM does not provide enough information to map
+ it back to source code. Very bad indeed!!"
+
+ ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[
+ ^ super asInlined
+ ] ifFalse:[
+ ^ 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