1 files changed, 0 insertions, 47 deletions

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
deleted file mode 100644
index b81f02e82a..0000000000
--- a/meta/recipes-devtools/guile/files/guile_2.0.5_fix_cross_compilation.patch
+++ /dev/null
@@ -1,47 +0,0 @@
-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))
-