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

[svn:parrot] r33831 - trunk/languages/lua/src/lib

From:
fperrad
Date:
December 12, 2008 06:53
Subject:
[svn:parrot] r33831 - trunk/languages/lua/src/lib
Message ID:
20081212145324.10855CB9AF@x12.develooper.com
Author: fperrad
Date: Fri Dec 12 06:53:23 2008
New Revision: 33831

Modified:
   trunk/languages/lua/src/lib/luaaux.pir

Log:
[Lua]
- fully disable traceback (see segfault in RT #60206)

Modified: trunk/languages/lua/src/lib/luaaux.pir
==============================================================================
--- trunk/languages/lua/src/lib/luaaux.pir	(original)
+++ trunk/languages/lua/src/lib/luaaux.pir	Fri Dec 12 06:53:23 2008
@@ -987,14 +987,14 @@
     .return (0, $P0)
   _handler:
     .local pmc ex
-    .local string msg
     .get_results (ex)
-    msg = ex
     $P0 = getattribute ex, 'severity'
     if null $P0 goto L1
     $I0 = $P0
     if $I0 == .EXCEPT_EXIT goto L2
   L1:
+    .local string msg
+    msg = ex
     .local int lineno
     .local string traceback, where
     (traceback, where) = 'traceback'()
@@ -1009,6 +1009,9 @@
 .end
 
 .sub 'traceback'
+    # dummy implementation
+    .return ("stack traceback:\n\tdummy\n", "_._:0:")
+    # previous one that segfaults (see RT #60206)
     .local pmc obj
     .local string traceback, where
     new obj, 'Lua'



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