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

[svn:parrot] r27415 - in branches/pdd25cx/src: io ops

From:
allison
Date:
May 10, 2008 08:31
Subject:
[svn:parrot] r27415 - in branches/pdd25cx/src: io ops
Author: allison
Date: Sat May 10 08:31:19 2008
New Revision: 27415

Modified:
   branches/pdd25cx/src/io/io.c
   branches/pdd25cx/src/ops/experimental.ops

Log:
[pdd25cx] Updating exception names in merged code.


Modified: branches/pdd25cx/src/io/io.c
==============================================================================
--- branches/pdd25cx/src/io/io.c	(original)
+++ branches/pdd25cx/src/io/io.c	Sat May 10 08:31:19 2008
@@ -1044,7 +1044,7 @@
 
     if (PMC_IS_NULL(pmc)
     || !VTABLE_isa(interp, pmc, CONST_STRING(interp, "ParrotIO")))
-        real_exception(interp, NULL, PIO_ERROR, "Cannot put to non-PIO PMC");
+        real_exception(interp, NULL, EXCEPTION_PIO_ERROR, "Cannot put to non-PIO PMC");
 
     PARROT_ASSERT(io);
 

Modified: branches/pdd25cx/src/ops/experimental.ops
==============================================================================
--- branches/pdd25cx/src/ops/experimental.ops	(original)
+++ branches/pdd25cx/src/ops/experimental.ops	Sat May 10 08:31:19 2008
@@ -418,7 +418,7 @@
     PMC *sub = Parrot_find_name_op(interp, $2, expr NEXT());
 
     if (PMC_IS_NULL(sub))
-        real_exception(interp, NULL, GLOBAL_NOT_FOUND,
+        real_exception(interp, NULL, EXCEPTION_GLOBAL_NOT_FOUND,
             "Could not invoke non-existent sub %Ss", $2);
 
     $1 = sub;



Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About