develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33588 - trunk/compilers/pct/src/PCT

From:
pmichaud
Date:
December 6, 2008 21:01
Subject:
[svn:parrot] r33588 - trunk/compilers/pct/src/PCT
Message ID:
20081207050137.0996FCB9AF@x12.develooper.com
Author: pmichaud
Date: Sat Dec  6 21:01:36 2008
New Revision: 33588

Modified:
   trunk/compilers/pct/src/PCT/Node.pir

Log:
[pct]:  Eliminate the guts of PCT::Node's 'node' method.
The current implementation is actually broken (it doesn't do
what it's supposed to), we're not really using it yet, and so
it's just creating more stuff to GC.  We'll disable it for
now, and reinstate it when we can do hll source line mapping (soon).


Modified: trunk/compilers/pct/src/PCT/Node.pir
==============================================================================
--- trunk/compilers/pct/src/PCT/Node.pir	(original)
+++ trunk/compilers/pct/src/PCT/Node.pir	Sat Dec  6 21:01:36 2008
@@ -217,19 +217,9 @@
 
 .sub 'node' :method
     .param pmc node
-    $I0 = isa node, ['PAST';'Node']
-    if $I0 goto clone_past
-  clone_pge:
-    $S0 = node
-    $I0 = node.'from'()
-    self['source'] = $S0
-    self['pos'] = $I0
-    .return ()
-  clone_past:
-    $P0 = node['source']
-    $P1 = node['pos']
-    self['source'] = $P0
-    self['pos'] = $P1
+     ## Do nothing for now.  When we're in a better position to
+     ## handle source line information (RT #43269 and others)
+     ## we'll figure out what to do here.
     .return ()
 .end
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About