[PATCH] guile: fix compilation on MIPS/PPC

This commit fixes the guile compilation segfault on MIPS/PPC.
Tested by compiling guile with MACHINE=qemumips.

[Yocto #2478]

Signed-off-by: Bogdan Marinescu <bogdan.a.marinescu@intel.com>
Signed-off-by: Richard Purdie <richard.purdie@linuxfoundation.org>

2 files changed, 79 insertions, 0 deletions

diff --git a/meta/recipes-devtools/guile/files/guile_2.0.5_disable_goops_optimizations.patch b/meta/recipes-devtools/guile/files/guile_2.0.5_disable_goops_optimizations.patch
new file mode 100644
index 0000000000..8609775310
--- /dev/null
+++ b/meta/recipes-devtools/guile/files/guile_2.0.5_disable_goops_optimizations.patch
@@ -0,0 +1,32 @@
+commit f7d8efc630ce45f5d82aae5b2682d261e5541d5f
+Author: Andy Wingo <wingo@pobox.com>
+Date:   Sun Apr 15 13:00:30 2012 -0700
+
+    disable optimizations in goops dispatch procedures
+    
+    * module/oop/goops/dispatch.scm: Disable peval and cse.
+
+Upstream-Status: Backported
+
+diff --git a/module/oop/goops/dispatch.scm b/module/oop/goops/dispatch.scm
+index e433b86..b12ab15 100644
+--- a/module/oop/goops/dispatch.scm
++++ b/module/oop/goops/dispatch.scm
+@@ -1,4 +1,4 @@
+-;;;; 	Copyright (C) 1999, 2000, 2001, 2003, 2006, 2009 Free Software Foundation, Inc.
++;;;;   Copyright (C) 1999, 2000, 2001, 2003, 2006, 2009, 2012 Free Software Foundation, Inc.
+ ;;;;
+ ;;;; This library is free software; you can redistribute it and/or
+ ;;;; modify it under the terms of the GNU Lesser General Public
+@@ -178,7 +178,9 @@
+                      '())
+                  (acons gf gf-sym '()))))
+   (define (comp exp vals)
+-    (let ((p ((@ (system base compile) compile) exp #:env *dispatch-module*)))
++    (let ((p ((@ (system base compile) compile) exp
++              #:env *dispatch-module*
++              #:opts '(#:partial-eval? #f #:cse? #f))))
+       (apply p vals)))
+   
+   ;; kick it.
+
diff --git a/meta/recipes-devtools/guile/files/guile_2.0.5_fix_cross_compilation.patch b/meta/recipes-devtools/guile/files/guile_2.0.5_fix_cross_compilation.patch
new file mode 100644
index 0000000000..b81f02e82a
--- /dev/null
+++ b/meta/recipes-devtools/guile/files/guile_2.0.5_fix_cross_compilation.patch
@@ -0,0 +1,47 @@
+commit f3b312a19d70293d7a3407fc4ef479183edd7cca
+Author: Ludovic Courtès <ludo@gnu.org>
+Date:   Wed Jun 20 01:11:44 2012 +0200
+
+    Fix cross-compilation of GOOPS-using code.
+    
+    Fixes <http://bugs.gnu.org/11645>.
+    Reported by Bogdan A. Marinescu <bogdan.a.marinescu@intel.com>.
+    
+    * module/oop/goops/dispatch.scm (compute-dispatch-procedure)[comp]:
+      Wrap `compile' call in (with-target %host-type ...).
+
+Upstream-Status: Backported
+
+diff --git a/module/oop/goops/dispatch.scm b/module/oop/goops/dispatch.scm
+index b12ab15..de5359f 100644
+--- a/module/oop/goops/dispatch.scm
++++ b/module/oop/goops/dispatch.scm
+@@ -25,6 +25,7 @@
+   #:use-module (oop goops)
+   #:use-module (oop goops util)
+   #:use-module (oop goops compile)
++  #:use-module (system base target)
+   #:export (memoize-method!)
+   #:no-backtrace)
+ 
+@@ -178,11 +179,15 @@
+                      '())
+                  (acons gf gf-sym '()))))
+   (define (comp exp vals)
+-    (let ((p ((@ (system base compile) compile) exp
+-              #:env *dispatch-module*
+-              #:opts '(#:partial-eval? #f #:cse? #f))))
+-      (apply p vals)))
+-  
++    ;; When cross-compiling Guile itself, the native Guile must generate
++    ;; code for the host.
++    (with-target %host-type
++      (lambda ()
++        (let ((p ((@ (system base compile) compile) exp
++                  #:env *dispatch-module*
++                  #:opts '(#:partial-eval? #f #:cse? #f))))
++          (apply p vals)))))
++
+   ;; kick it.
+   (scan))
+