summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--dev-lang/mercury-extras/ChangeLog6
-rw-r--r--dev-lang/mercury-extras/files/mercury-extras-0.13.1-mercury_opengl.patch11
2 files changed, 16 insertions, 1 deletions
diff --git a/dev-lang/mercury-extras/ChangeLog b/dev-lang/mercury-extras/ChangeLog
index 5b3cbd996686..55a66ec2f437 100644
--- a/dev-lang/mercury-extras/ChangeLog
+++ b/dev-lang/mercury-extras/ChangeLog
@@ -1,6 +1,10 @@
# ChangeLog for dev-lang/mercury-extras
# Copyright 1999-2007 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/dev-lang/mercury-extras/ChangeLog,v 1.62 2007/01/13 20:51:06 keri Exp $
+# $Header: /var/cvsroot/gentoo-x86/dev-lang/mercury-extras/ChangeLog,v 1.63 2007/01/13 22:35:53 keri Exp $
+
+ 13 Jan 2007; keri <keri@gentoo.org>
+ files/mercury-extras-0.13.1-mercury_opengl.patch:
+ Mercury opengl fix: declare predicate mtogl.destroy/3 with impure purity.
13 Jan 2007; keri <keri@gentoo.org>
files/mercury-extras-0.12.2-posix.patch,
diff --git a/dev-lang/mercury-extras/files/mercury-extras-0.13.1-mercury_opengl.patch b/dev-lang/mercury-extras/files/mercury-extras-0.13.1-mercury_opengl.patch
index 493cf20acca8..6a99068bb09a 100644
--- a/dev-lang/mercury-extras/files/mercury-extras-0.13.1-mercury_opengl.patch
+++ b/dev-lang/mercury-extras/files/mercury-extras-0.13.1-mercury_opengl.patch
@@ -79,3 +79,14 @@
#elif defined(WIN32)
#if TK_MAJOR_VERSION<8
Sorry Windows version requires Tcl/Tk ver 8.0 or higher.
+--- mercury-extras-0.13.1.orig/graphics/mercury_opengl/mtogl.m 2003-08-13 17:49:46.000000000 +1200
++++ mercury-extras-0.13.1/graphics/mercury_opengl/mtogl.m 2007-01-14 11:26:48.000000000 +1300
+@@ -32,7 +32,7 @@
+ :- pred mtogl__reshape(pred(togl, io__state, io__state), io__state, io__state).
+ :- mode mtogl__reshape(pred(in, di, uo)is det, di, uo) is det.
+
+-:- pred mtogl__destroy(pred(togl, io__state, io__state), io__state, io__state).
++:- impure pred mtogl__destroy(pred(togl, io__state, io__state), io__state, io__state).
+ :- mode mtogl__destroy(pred(in, di, uo)is det, di, uo) is det.
+
+ %:- pred mtogl__create_command(string, pred(togl, list(string),