# New Ticket Created by Geoffrey Broadwell
# Please include the string: [perl #49458]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=49458 >
examples/c/nanoparrot.c can be compiled with any of three different
runloops. The default computed goto runloop compiles cleanly, but the
switched and function runloops do not. The attached patch gets rid of a
compiler error when compiled for the switched runloop, and a warning
when compiled for the function runloop. All three runloops compile
cleanly after the patch is applied on Debian/Linux/i386.
Also included is the recommended CREDITS patch as per
docs/submissions.pod.
diffstat:
CREDITS | 3 +++
examples/c/nanoparrot.c | 3 ++-
2 files changed, 5 insertions(+), 1 deletion(-)
-'f
=== CREDITS
==================================================================
--- CREDITS (revision 2702)
+++ CREDITS (local)
@@ -230,6 +230,9 @@
N: Garrett Rooney
D: Fix typo in PARROT_BIGENDIAN case
+N: Geoff Broadwell
+D: examples fixes
+
N: Gerard Goossen
D: Documentation patch for Parrot_PMC_get_pointer_intkey()
=== examples/c/nanoparrot.c
==================================================================
--- examples/c/nanoparrot.c (revision 2702)
+++ examples/c/nanoparrot.c (local)
@@ -174,7 +174,7 @@
# define NEXT continue;
# define DONE return;
# define ENDDISPATCH default : printf("illegal instruction"); \
- exit(EXIT_FAILURE) \
+ exit(EXIT_FAILURE); \
}}
# else /* CGOTO */
@@ -270,6 +270,7 @@
DEF_OP(set_i_ic);
DEF_OP(if_i_ic);
DEF_OP(sub_i_i_i);
+ DEF_OP(MAX);
/*
* the "packfile"
