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

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

From:
kjs
Date:
November 29, 2008 15:57
Subject:
[svn:parrot] r33355 - trunk/compilers/tge/TGE
Message ID:
20081129235704.6FE45CB9AF@x12.develooper.com
Author: kjs
Date: Sat Nov 29 15:57:03 2008
New Revision: 33355

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

Log:
[tge] convert an emitting function that would emit #line into .line as the former is deprecated.

Modified: trunk/compilers/tge/TGE/Compiler.pir
==============================================================================
--- trunk/compilers/tge/TGE/Compiler.pir	(original)
+++ trunk/compilers/tge/TGE/Compiler.pir	Sat Nov 29 15:57:03 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