[svn:parrot] r48865 - in trunk/compilers/pct/src: PAST POST

[pmichaud at svn.parrot.org]

Author: pmichaud
Date: Wed Sep  8 19:26:46 2010
New Revision: 48865
URL: https://trac.parrot.org/parrot/changeset/48865

Log:
[pct]:  Switch PAST::Compiler and POST::Compiler to use lineof method from PCT::HLLCompiler.

Modified:
   trunk/compilers/pct/src/PAST/Compiler.pir
   trunk/compilers/pct/src/POST/Compiler.pir

Modified: trunk/compilers/pct/src/PAST/Compiler.pir
==============================================================================
--- trunk/compilers/pct/src/PAST/Compiler.pir	Wed Sep  8 19:26:39 2010	(r48864)
+++ trunk/compilers/pct/src/PAST/Compiler.pir	Wed Sep  8 19:26:46 2010	(r48865)
@@ -2087,7 +2087,7 @@
     $S0 = files
     sourceline = concat ' (', $S0
     concat sourceline, ':'
-    $I0 = source.'lineof'(pos)
+    $I0 = self.'lineof'(source, pos)
     inc $I0
     $S0 = $I0
     concat sourceline, $S0

Modified: trunk/compilers/pct/src/POST/Compiler.pir
==============================================================================
--- trunk/compilers/pct/src/POST/Compiler.pir	Wed Sep  8 19:26:39 2010	(r48864)
+++ trunk/compilers/pct/src/POST/Compiler.pir	Wed Sep  8 19:26:46 2010	(r48865)
@@ -130,9 +130,8 @@
     pos = cpost['pos']
     if null pos goto done_subline
     source = cpost['source']
-    $I0 = can source, 'lineof'
-    unless $I0 goto done_subline
-    line = source.'lineof'(pos)
+    if null source goto done_subline
+    line = self.'lineof'(source, pos, 1)
     inc line
   done_subline:
     self.'pir'(cpost)