Mercury opengl purity fix.

Package-Manager: portage-2.1.2_rc4-r2

3 files changed, 24 insertions, 9 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/Manifest b/dev-lang/mercury-extras/Manifest
index 4b1a2ca15c2f..d301c0e17151 100644
--- a/dev-lang/mercury-extras/Manifest
+++ b/dev-lang/mercury-extras/Manifest
@@ -66,10 +66,10 @@ AUX mercury-extras-0.13.1-mercury_glut.patch 758 RMD160 d19e1c034d1e1aa2adfa3226
 MD5 f664f21bc81b85b208c21b3b528be5d8 files/mercury-extras-0.13.1-mercury_glut.patch 758
 RMD160 d19e1c034d1e1aa2adfa3226e200e67dc8746d2a files/mercury-extras-0.13.1-mercury_glut.patch 758
 SHA256 fa5d6cdf06fe333a90834bd65b129d79dcc61b8dc3fc786462b4b11804e1cc70 files/mercury-extras-0.13.1-mercury_glut.patch 758
-AUX mercury-extras-0.13.1-mercury_opengl.patch 3364 RMD160 dff7e267629aa1f593e40b0399982f1ffa21c7da SHA1 a1f358b8b7d7299c840700d2930eb1e77de6bd8d SHA256 9da38d524cd7802b477062e8199cb3a7f35e6ff0f84ad1acca1c46c53540ffae
-MD5 8ecd6a373a9dbec59fb3187f2d768846 files/mercury-extras-0.13.1-mercury_opengl.patch 3364
-RMD160 dff7e267629aa1f593e40b0399982f1ffa21c7da files/mercury-extras-0.13.1-mercury_opengl.patch 3364
-SHA256 9da38d524cd7802b477062e8199cb3a7f35e6ff0f84ad1acca1c46c53540ffae files/mercury-extras-0.13.1-mercury_opengl.patch 3364
+AUX mercury-extras-0.13.1-mercury_opengl.patch 4022 RMD160 b066b8e181cf7d0f21d617478f02af9744028e3a SHA1 9e350e38a018d1cc964d4b32195489a6347dc088 SHA256 6b372693d9b6bcdc78cc8e9f02748bfdf5d8561b0d34a65a06806343a076e6c5
+MD5 9a0248fa850748fa86a68ea6a3c12062 files/mercury-extras-0.13.1-mercury_opengl.patch 4022
+RMD160 b066b8e181cf7d0f21d617478f02af9744028e3a files/mercury-extras-0.13.1-mercury_opengl.patch 4022
+SHA256 6b372693d9b6bcdc78cc8e9f02748bfdf5d8561b0d34a65a06806343a076e6c5 files/mercury-extras-0.13.1-mercury_opengl.patch 4022
 AUX mercury-extras-0.13.1-mercury_tcltk.patch 514 RMD160 017b0645322f622bbac569e8eefb4a58f2ff88e8 SHA1 91c6e32f27c14e07f6894745486fbf150adf3c48 SHA256 ad14d78321d44ecd5a8e36f4e8528c817c8ebf217e5223fcda52c5a01f4d4f6a
 MD5 e457795332e5e7607c0a0e50801b00de files/mercury-extras-0.13.1-mercury_tcltk.patch 514
 RMD160 017b0645322f622bbac569e8eefb4a58f2ff88e8 files/mercury-extras-0.13.1-mercury_tcltk.patch 514
@@ -100,10 +100,10 @@ EBUILD mercury-extras-0.13.1.ebuild 3637 RMD160 9606d5dcb7cb9225c29fe31efef14348
 MD5 8f2895c14768df02b19c8a97abe7d099 mercury-extras-0.13.1.ebuild 3637
 RMD160 9606d5dcb7cb9225c29fe31efef14348883f403a mercury-extras-0.13.1.ebuild 3637
 SHA256 488115e5f33c0c4c9dbcb411cb292bd186aa84f06352cc041905a515f575411a mercury-extras-0.13.1.ebuild 3637
-MISC ChangeLog 16736 RMD160 e68facc51f3f846febf97b3b3688146e988a5e87 SHA1 0b87f98bba6761300bc52c365760374af7b47280 SHA256 17cc7e8f91808a93d25e44e7f8e4076be0fbb554a27925d38fafcf3ef236a673
-MD5 e17b9137ff4b93d6024feeb61e565166 ChangeLog 16736
-RMD160 e68facc51f3f846febf97b3b3688146e988a5e87 ChangeLog 16736
-SHA256 17cc7e8f91808a93d25e44e7f8e4076be0fbb554a27925d38fafcf3ef236a673 ChangeLog 16736
+MISC ChangeLog 16903 RMD160 62d2a28e507f3ae116fac2932ea5c1f56b862244 SHA1 e99eeb4be1b681f1f59507d35a27ee895ab7dca4 SHA256 56749fb2e288e020726dfc015a4707a7731330d1e1791c1472902ca693c1d74c
+MD5 a15f490cc789c7ba2fbce6aac0c02cfa ChangeLog 16903
+RMD160 62d2a28e507f3ae116fac2932ea5c1f56b862244 ChangeLog 16903
+SHA256 56749fb2e288e020726dfc015a4707a7731330d1e1791c1472902ca693c1d74c ChangeLog 16903
 MISC metadata.xml 247 RMD160 1b3df3c501d9a3b2e2651668be405677e8416397 SHA1 7b705a8a3368abab6ad31ea2fcb5e5db865d92b1 SHA256 2768d0688d443184194068497dcafb2e5d67521980cb46b7e8efc07d3900bcaa
 MD5 6fca20d17d6d55a28537204aa9bb626f metadata.xml 247
 RMD160 1b3df3c501d9a3b2e2651668be405677e8416397 metadata.xml 247
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),