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, 0 insertions, 32 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 deleted file mode 100644 index 8609775310..0000000000 --- a/meta/recipes-devtools/guile/files/guile_2.0.5_disable_goops_optimizations.patch +++ /dev/null | |||
@@ -1,32 +0,0 @@ | |||
1 | commit f7d8efc630ce45f5d82aae5b2682d261e5541d5f | ||
2 | Author: Andy Wingo <wingo@pobox.com> | ||
3 | Date: Sun Apr 15 13:00:30 2012 -0700 | ||
4 | |||
5 | disable optimizations in goops dispatch procedures | ||
6 | |||
7 | * module/oop/goops/dispatch.scm: Disable peval and cse. | ||
8 | |||
9 | Upstream-Status: Backported | ||
10 | |||
11 | diff --git a/module/oop/goops/dispatch.scm b/module/oop/goops/dispatch.scm | ||
12 | index e433b86..b12ab15 100644 | ||
13 | --- a/module/oop/goops/dispatch.scm | ||
14 | +++ b/module/oop/goops/dispatch.scm | ||
15 | @@ -1,4 +1,4 @@ | ||
16 | -;;;; Copyright (C) 1999, 2000, 2001, 2003, 2006, 2009 Free Software Foundation, Inc. | ||
17 | +;;;; Copyright (C) 1999, 2000, 2001, 2003, 2006, 2009, 2012 Free Software Foundation, Inc. | ||
18 | ;;;; | ||
19 | ;;;; This library is free software; you can redistribute it and/or | ||
20 | ;;;; modify it under the terms of the GNU Lesser General Public | ||
21 | @@ -178,7 +178,9 @@ | ||
22 | '()) | ||
23 | (acons gf gf-sym '())))) | ||
24 | (define (comp exp vals) | ||
25 | - (let ((p ((@ (system base compile) compile) exp #:env *dispatch-module*))) | ||
26 | + (let ((p ((@ (system base compile) compile) exp | ||
27 | + #:env *dispatch-module* | ||
28 | + #:opts '(#:partial-eval? #f #:cse? #f)))) | ||
29 | (apply p vals))) | ||
30 | |||
31 | ;; kick it. | ||
32 | |||