[svn:parrot] r29870 - in branches/pdd25cx/src: . io

[allison]

Author: allison
Date: Wed Jul 30 00:01:28 2008
New Revision: 29870

Modified:
   branches/pdd25cx/src/debug.c
   branches/pdd25cx/src/io/io.c

Log:
[pdd25cx] Updating new code from merge to new exception syntax.


Modified: branches/pdd25cx/src/debug.c
==============================================================================
--- branches/pdd25cx/src/debug.c        (original)
+++ branches/pdd25cx/src/debug.c        Wed Jul 30 00:01:28 2008
@@ -798,8 +798,8 @@
     debugee     = pdb->debugee;
 
     /* execute n ops */
-    new_internal_exception(debugee);
-    if (setjmp(debugee->exceptions->destination)) {
+    new_runloop_jump_point(interp);
+    if (setjmp(debugee->current_runloop->resume)) {
         Parrot_eprintf(interp, "Unhandled exception while tracing\n");
         pdb->state |= PDB_STOPPED;
         return;

Modified: branches/pdd25cx/src/io/io.c
==============================================================================
--- branches/pdd25cx/src/io/io.c        (original)
+++ branches/pdd25cx/src/io/io.c        Wed Jul 30 00:01:28 2008
@@ -1045,7 +1045,8 @@
             "Cannot put to non-PIO PMC");
 
     if (!io)
-        real_exception(interp, NULL, PIO_ERROR, "Cannot put to a closed PIO 
handle");
+        Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_PIO_ERROR,
+            "Cannot put to a closed PIO handle");
 
     if (!s)
         return 0;