[svn:parrot] r40928 - trunk/compilers/pct/src/POST

[pmichaud at svn.parrot.org]

Author: pmichaud
Date: Wed Sep  2 15:43:32 2009
New Revision: 40928
URL: https://trac.parrot.org/parrot/changeset/40928

Log:
[pct]:  Compute 'lineof' information only if we can.

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

Modified: trunk/compilers/pct/src/POST/Compiler.pir
==============================================================================
--- trunk/compilers/pct/src/POST/Compiler.pir	Wed Sep  2 13:32:42 2009	(r40927)
+++ trunk/compilers/pct/src/POST/Compiler.pir	Wed Sep  2 15:43:32 2009	(r40928)
@@ -82,6 +82,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)
     inc line
   done_subline: