Introduce $*EXIT / $*EXCEPTION dynamic vars

Basically the implementation of #5014 without a commit with a lot of noise.
rakudo · Jan 31, 2023 · 5005086 · 5005086
1 parent b21cd61
commit 5005086
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 0 deletions.
diff --git a/src/core.c/Exception.pm6 b/src/core.c/Exception.pm6
@@ -522,6 +522,8 @@ do {
     sub print_exception(|) {
         my Mu $ex := nqp::atpos(nqp::p6argvmarray(), 0);
         my $e := EXCEPTION($ex);
+        $*EXIT      = 1;
+        $*EXCEPTION = $e;
 
         if %*ENV<PERL6_EXCEPTIONS_HANDLER> -> $handler {
             my $class := ::("Exceptions::$handler");

diff --git a/src/core.c/Rakudo/Internals.pm6 b/src/core.c/Rakudo/Internals.pm6
@@ -1835,10 +1835,13 @@ my constant $?BITS = nqp::isgt_i(nqp::add_i(2147483648, 1), 0) ?? 64 !! 32;
 }
 
 # we need this to run *after* the mainline of Rakudo::Internals has run
+PROCESS::<$EXIT> = 0;
+PROCESS::<$EXCEPTION> = Exception;
 Rakudo::Internals.REGISTER-DYNAMIC: '&*EXIT', {
     PROCESS::<&EXIT> := sub exit($status) {
         state $exit = $status;  # first call to exit sets value
 
+        $*EXIT = $exit;
         nqp::getcurhllsym('&THE_END')()
           ?? $exit
           !! nqp::exit(nqp::unbox_i($exit.Int))

diff --git a/t/08-performance/05-processkeys.t b/t/08-performance/05-processkeys.t
@@ -14,6 +14,8 @@ my $allowed = (
   Q{$CORE-SETTING-REV},
   Q{$DISTRO},
   Q{$ERR},
+  Q{$EXCEPTION},
+  Q{$EXIT},
   Q{$IN},
   Q{$OUT},
   Q{$PID},