Use out of line code for throwing exceptions

-12K to SAFE.dll
sorear · Aug 14, 2010 · 0e0c3d5 · 0e0c3d5
1 parent ea4bc04
commit 0e0c3d5
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 3 deletions.
diff --git a/CgOp.pm b/CgOp.pm
@@ -589,8 +589,11 @@ use warnings;
 
     sub die {
         my ($msg) = @_;
-        $msg = fetch(string_var($msg)) unless blessed($msg);
-        rawccall(rawnew('Niecza.FatalException', $msg), 'SearchForHandler');
+        if (blessed($msg)) {
+            rawccall(rawnew('Niecza.FatalException', $msg), 'SearchForHandler');
+        } else {
+            rawsccall('Kernel.Die', clr_string($msg));
+        }
     }
 
     sub letn {

diff --git a/CodeGen.pm b/CodeGen.pm
@@ -70,6 +70,7 @@ use 5.010;
         'System.IO.File.ReadAllText' => [m => 'System.String'],
 
         'Lexer.RunProtoregex'  => [m => 'IP6[]'],
+        'Kernel.Die'           => [c => 'Void'],
         'Kernel.CoTake'        => [c => 'Variable'],
         'Kernel.Take'          => [c => 'Variable'],
         'Kernel.GatherHelper'  => [c => 'Frame'],

diff --git a/Sig.pm b/Sig.pm
@@ -62,7 +62,7 @@ use 5.010;
         } else {
             return CgOp::prog(
                 CgOp::die("No value in " . $body->name .
-                    "available for parameter " . $self->name),
+                    " available for parameter " . $self->name),
                 CgOp::null('Variable'));
         }
     }