From e4a4632ed173f22642a2b67316b6decbc91b2a5b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Fri, 17 Dec 2010 11:13:55 +0100
Subject: beam_makeops: Support jumping to common code from an instruction
 macro

---
 erts/emulator/utils/beam_makeops | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'erts/emulator/utils')

diff --git a/erts/emulator/utils/beam_makeops b/erts/emulator/utils/beam_makeops
index cf18ea4a92..e7c57142c0 100755
--- a/erts/emulator/utils/beam_makeops
+++ b/erts/emulator/utils/beam_makeops
@@ -938,6 +938,14 @@ sub basic_generator {
 			 "{ $var_decls",
 			 $macro_code,
 			 "}");
+	} elsif ($flags =~ /-goto:(\S*)/) {
+	    my $goto = $1;
+	    $code = join("\n",
+			 "{ $var_decls",
+			 $macro_code,
+			 "I += $size + 1;",
+			 "goto $goto;",
+			 "}");
 	} else {
 	    $code = join("\n",
 			 "{ $var_decls",
-- 
cgit v1.2.3