[svn:parrot] r39852 - trunk/compilers/pge/PGE

[pmichaud at svn.parrot.org]

Author: pmichaud
Date: Wed Jul  1 01:47:07 2009
New Revision: 39852
URL: https://trac.parrot.org/parrot/changeset/39852

Log:
[pge]:  Change ternary parse error to throw exception instead of exit.

Modified:
   trunk/compilers/pge/PGE/OPTable.pir

Modified: trunk/compilers/pge/PGE/OPTable.pir
==============================================================================
--- trunk/compilers/pge/PGE/OPTable.pir	Tue Jun 30 22:39:35 2009	(r39851)
+++ trunk/compilers/pge/PGE/OPTable.pir	Wed Jul  1 01:47:07 2009	(r39852)
@@ -614,8 +614,13 @@
     .return (mob)
 
   err_ternary:
-    print "Ternary error\n"
-    end
+    $S1 = pos
+    $S0 = concat 'Ternary error at offset ', $S1
+    $S0 .= ", found '"
+    $S1 = substr target, pos, 1
+    $S0 .= $S1
+    $S0 .= "'"
+    die $S0
 .end