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

[svn:parrot] r33376 - trunk/compilers/tge/TGE

From:
kjs
Date:
November 30, 2008 11:36
Subject:
[svn:parrot] r33376 - trunk/compilers/tge/TGE
Message ID:
20081130193554.6E01ECB9AF@x12.develooper.com
Author: kjs
Date: Sun Nov 30 11:35:53 2008
New Revision: 33376

Modified:
   trunk/compilers/tge/TGE/Compiler.pir

Log:
[tge] undo the change from #line into .line. This made a tge test fail.

Modified: trunk/compilers/tge/TGE/Compiler.pir
==============================================================================
--- trunk/compilers/tge/TGE/Compiler.pir	(original)
+++ trunk/compilers/tge/TGE/Compiler.pir	Sun Nov 30 11:35:53 2008
@@ -243,7 +243,7 @@
     infile = get_global '$!infile'
     $P2 = node[0]
     (lineno) = $P2.'line_number'()
-    value.'emit'('.line %0, %1', lineno, infile)
+    value.'emit'('#line %0 %1', lineno, infile)
     value .= $P2
     .return (value)
 .end



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