Skip to content

Instantly share code, notes, and snippets.

/gist:590074

Created September 21, 2010 17:19
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/590074 to your computer and use it in GitHub Desktop.
Save anonymous/590074 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.perl
pmichaud@plum:~/parrot/trunk$ diff -u fib.pir fib-eh1.pir
--- fib.pir 2010-09-21 12:18:19.000000000 -0500
+++ fib-eh1.pir 2010-09-21 12:18:46.000000000 -0500
@@ -76,9 +76,8 @@
.sub "fib" :subid("11_1285089499.68293") :outer("10_1285089499.68293")
.param pmc param_16
.annotate 'line', 3
- new $P15, 'ExceptionHandler'
+ new $P15, 'ExceptionHandler', .CONTROL_RETURN
set_addr $P15, control_14
- $P15."handle_types"(.CONTROL_RETURN)
push_eh $P15
.lex "$n", param_16
.annotate 'line', 4
pmichaud@plum:~/parrot/trunk$ ./parrot fib.pir
fib(29) = 514229
time = 4.85194206237793
pmichaud@plum:~/parrot/trunk$ ./parrot fib-eh1.pir
fib(29) = 514229
time = 3.39949893951416
pmichaud@plum:~/parrot/trunk$
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment