perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r19384 - trunk/src/jit/i386

Subject: [svn:parrot] r19384 - trunk/src/jit/i386
From:
Date: Thu, 28 Jun 2007 10:19:39 -0700 PDT
Newsgroups: perl.cvs.parrot

Author: paultcochrane
Date: Thu Jun 28 10:19:38 2007
New Revision: 19384

Modified:
   trunk/src/jit/i386/jit_emit.h

Log:
[src/jit] Replaced internal_exception() with real_exception() where
possible.


Modified: trunk/src/jit/i386/jit_emit.h
==============================================================================
--- trunk/src/jit/i386/jit_emit.h       (original)
+++ trunk/src/jit/i386/jit_emit.h       Thu Jun 28 10:19:38 2007
@@ -2566,7 +2566,7 @@
                 break;
 
             default:
-                internal_exception(1,
+                real_exception(interp, NULL, 1,
                         "jit_vtable_n_op: unimp type %d, arg %d vtable %d",
                         op_info->types[i - 1], i, nvtable);
                 break;
@@ -2622,7 +2622,7 @@
                     REG_OFFS_NUM(p1));
             break;
         default:
-            internal_exception(1, "jit_vtable1r: ill LHS");
+            real_exception(interp, NULL, 1, "jit_vtable1r: ill LHS");
             break;
     }
 }
@@ -2784,8 +2784,9 @@
     assert(op_info->types[0] == PARROT_ARG_P);
     p1 = *(jit_info->cur_op + 1);
     i2 = *(jit_info->cur_op + 2);
-    if (i2 <= 0 || i2 >= interp->n_vtable_max)
-        internal_exception(1, "Illegal PMC enum (%d) in new", i2);
+    if (i2 <= 0 || i2 >= interp->n_vtable_max) {
+        real_exception(interp, NULL, 1, "Illegal PMC enum (%d) in new", i2);
+    }
     /* get interpreter */
     Parrot_jit_emit_get_INTERP(jit_info->native_ptr, emit_ECX);
     /* push pmc enum and interpreter */
@@ -3069,7 +3070,7 @@
             }
             break;
         default:
-            internal_exception(1, "set_returns_jit - unknown typ");
+            real_exception(interp, NULL, 1, "set_returns_jit - unknown typ");
             break;
     }
 }
@@ -3091,7 +3092,7 @@
 
     if (!recursive) {
         /* create args array */
-        internal_exception(1, "set_args_jit - can't do that yet ");
+        real_exception(interp, NULL, 1, "set_args_jit - can't do that yet ");
     }
 
     constants = CONTEXT(interp->ctx)->constants;
@@ -3175,7 +3176,7 @@
                         &CONST(2 + i)->u.number);
                 break;
             default:
-                internal_exception(1, "set_args_jit - unknown type");
+                real_exception(interp, NULL, 1, "set_args_jit - unknown type");
                 break;
         }
     }
@@ -3246,7 +3247,7 @@
                     (long)fixup_ptr - 4;
                 break;
             default:
-                internal_exception(JIT_ERROR, "Unknown fixup type:%d\n",
+                real_exception(interp, NULL, JIT_ERROR, "Unknown fixup 
type:%d\n",
                     fixup->type);
             break;
         }

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r19384 - trunk/src/jit/i386, paultcochrane <=