diff options
Diffstat (limited to 'meta/recipes-devtools/guile/files/guile_2.0.5_disable_goops_optimizations.patch')
-rw-r--r-- | meta/recipes-devtools/guile/files/guile_2.0.5_disable_goops_optimizations.patch | 32 |
1 files changed, 32 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. + |