[perl #39671] [PATCH]#38469: [BUG] -O1 branch optimization

[via RT]

# New Ticket Created by  Vishal Soni 
# Please include the string:  [perl #39671]
# in the subject line of all future correspondence about this issue. 
# URL: https://rt.perl.org/rt3/Ticket/Display.html?id=39671 


This transaction appears to have no contentThis patch fixes the branch reorganization failing for tail recursion.

Previously.
---
$ ./parrot -Oc ack.pir 3
Ack(3, 3) = 61

$ /parrot -Oc1 ack.pir 3
maximum recursion depth exceeded (According to Leo)
But on Linux I was getting a segfault.

After
--
$ ./parrot -Oc ./examples/shootout/ack.pir 3
Ack(3, 3) = 61
$ ./parrot -Oc1 ./examples/shootout/ack.pir 3
Ack(3, 3) = 61

Thanks,
Vishal

Index: CREDITS
===
--- CREDITS (revision 13046)
+++ CREDITS (working copy)
@@ -470,3 +470,7 @@
 N: Norman Nunley
 D: Shaving a Ponie
 E: [EMAIL PROTECTED]
+
+N: Vishal Soni
+E: [EMAIL PROTECTED]
+D: Bug fixes in IMCC
Index: compilers/imcc/optimizer.c
===
--- compilers/imcc/optimizer.c  (revision 13046)
+++ compilers/imcc/optimizer.c  (working copy)
@@ -932,7 +932,7 @@
 }

 /* this was screwing up multi-block loops... */
-if (end != ins) {
+if (end != ins  ins-next !=NULL ) {
 ins-next-prev = end;
 start-prev-next = end-next;
 if (end-next)


-- 
Thanks,
Vishal
Index: CREDITS
===
--- CREDITS	(revision 13046)
+++ CREDITS	(working copy)
@@ -470,3 +470,7 @@
 N: Norman Nunley
 D: Shaving a Ponie
 E: [EMAIL PROTECTED]
+
+N: Vishal Soni
+E: [EMAIL PROTECTED]
+D: Bug fixes in IMCC
Index: compilers/imcc/optimizer.c
===
--- compilers/imcc/optimizer.c	(revision 13046)
+++ compilers/imcc/optimizer.c	(working copy)
@@ -932,7 +932,7 @@
 }
 
 /* this was screwing up multi-block loops... */
-if (end != ins) {
+if (end != ins  ins-next !=NULL ) {
 ins-next-prev = end;
 start-prev-next = end-next;
 if (end-next)

[PATCH]#38469: [BUG] -O1 branch optimization

[Vishal Soni]

This patch fixes the branch reorganization failing for tail recursion.Previously.---$ ./parrot  -Oc ack.pir 3Ack(3, 3) = 61

$ /parrot  -Oc1 ack.pir 3maximum recursion depth exceeded (According to Leo)But on Linux I was getting a segfault.After--$ ./parrot -Oc ./examples/shootout/ack.pir 3
Ack(3, 3) = 61$ ./parrot -Oc1 ./examples/shootout/ack.pir 3Ack(3, 3) = 61Thanks,VishalIndex: CREDITS===
--- CREDITS (revision 13046)+++ CREDITS (working copy)@@ -470,3 +470,7 @@N: Norman NunleyD: Shaving a PonieE: [EMAIL PROTECTED]++N: Vishal Soni
+E: [EMAIL PROTECTED]+D: Bug fixes in IMCCIndex: compilers/imcc/optimizer.c===--- compilers/imcc/optimizer.c (revision 13046)
+++ compilers/imcc/optimizer.c (working copy)@@ -932,7 +932,7 @@ } /* this was screwing up multi-block loops... */- if (end != ins) {
+ if (end != ins  ins-next !=NULL ) { ins-next-prev = end; start-prev-next = end-next; if (end-next)
-- Thanks,Vishal
Index: CREDITS
===
--- CREDITS	(revision 13046)
+++ CREDITS	(working copy)
@@ -470,3 +470,7 @@
 N: Norman Nunley
 D: Shaving a Ponie
 E: [EMAIL PROTECTED]
+
+N: Vishal Soni
+E: [EMAIL PROTECTED]
+D: Bug fixes in IMCC
Index: compilers/imcc/optimizer.c
===
--- compilers/imcc/optimizer.c	(revision 13046)
+++ compilers/imcc/optimizer.c	(working copy)
@@ -932,7 +932,7 @@
 }
 
 /* this was screwing up multi-block loops... */
-if (end != ins) {
+if (end != ins  ins-next !=NULL ) {
 ins-next-prev = end;
 start-prev-next = end-next;
 if (end-next)

Re: [PATCH]#38469: [BUG] -O1 branch optimization

[chromatic]

On Friday 30 June 2006 20:43, Vishal Soni wrote:

 This patch fixes the branch reorganization failing for tail recursion.

Thanks, applied as #13084.

-- c

[perl #39672] Re: [PATCH]#38469: [BUG] -O1 branch optimization

[via RT]

# New Ticket Created by  chromatic 
# Please include the string:  [perl #39672]
# in the subject line of all future correspondence about this issue. 
# URL: https://rt.perl.org/rt3/Ticket/Display.html?id=39672 


On Friday 30 June 2006 20:43, Vishal Soni wrote:

 This patch fixes the branch reorganization failing for tail recursion.

Thanks, applied as #13084.

-- c