From 2d7a06c4a7145bcf5e6b67e60f37f5bc82dd9c0f Mon Sep 17 00:00:00 2001
From: Joeri Samson <joerisamson@gmail.com>
Date: Sun, 26 Jul 2009 19:42:08 +0200
Subject: [PATCH] The opcodes bsr and ret were removed in Parrot

---
 src/classes/File.pir | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/classes/File.pir b/src/classes/File.pir
index 0527255..95a63eb 100644
--- a/src/classes/File.pir
+++ b/src/classes/File.pir
@@ -80,8 +80,11 @@ Perform initializations and create the File class
         .param pmc path
         .param string mode :optional
         .local string parrot_io_mode
+        .local pmc jmpstack
+        jmpstack = new 'ResizableIntegerArray'
+        
         $S0 = self.'!to_path'(path)
-        bsr parse_mode
+        local_branch jmpstack, parse_mode
         open $P1, $S0, parrot_io_mode
         #setprop self, '!io', $P0
         setattribute self, '!io', $P1
@@ -98,13 +101,13 @@ Perform initializations and create the File class
                 goto done
         default_mode:
                 parrot_io_mode = "<"
-                ret
+                local_return jmpstack
         append_mode:
                 parrot_io_mode = ">>"
-                ret
+                local_return jmpstack
         write_mode:
                 parrot_io_mode = ">"
-                ret
+                local_return jmpstack
         done:
                 .return (self)
 .end