1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
diff -ur mercury-extras-0.13.0-beta-2006-04-09.orig/concurrency/global.m mercury-extras-0.13.0-beta-2006-04-09/concurrency/global.m
--- mercury-extras-0.13.0-beta-2006-04-09.orig/concurrency/global.m 2003-03-01 04:20:33.000000000 +1300
+++ mercury-extras-0.13.0-beta-2006-04-09/concurrency/global.m 2006-04-11 19:42:21.000000000 +1200
@@ -54,7 +54,7 @@
:- pragma c_code(global__new(Thing::in, Glob::out, IO0::di, IO::uo),
will_not_call_mercury, "{
MR_Word *tmp;
- MR_incr_hp((MR_Word) tmp, 1);
+ MR_incr_hp((*(MR_Word*) &(tmp)), 1);
*tmp = Thing;
Glob = (MR_Word) tmp;
IO = IO0;
diff -ur mercury-extras-0.13.0-beta-2006-04-09.orig/curs/curs.m mercury-extras-0.13.0-beta-2006-04-09/curs/curs.m
--- mercury-extras-0.13.0-beta-2006-04-09.orig/curs/curs.m 2005-10-26 18:04:14.000000000 +1300
+++ mercury-extras-0.13.0-beta-2006-04-09/curs/curs.m 2006-04-11 19:43:19.000000000 +1200
@@ -965,7 +965,7 @@
wattrset(w, Attr);
wcolor_set(w, Attr, NULL);
wclear(w);
- (PANEL *)Panel = new_panel(w);
+ (*(PANEL**)&(Panel)) = new_panel(w);
IO = IO0;
diff -ur mercury-extras-0.13.0-beta-2006-04-09.orig/graphics/mercury_tcltk/mtcltk.m mercury-extras-0.13.0-beta-2006-04-09/graphics/mercury_tcltk/mtcltk.m
--- mercury-extras-0.13.0-beta-2006-04-09.orig/graphics/mercury_tcltk/mtcltk.m 2005-08-15 16:11:42.000000000 +1200
+++ mercury-extras-0.13.0-beta-2006-04-09/graphics/mercury_tcltk/mtcltk.m 2006-04-11 19:44:26.000000000 +1200
@@ -141,7 +141,7 @@
argc++;
}
- MR_incr_hp(MR_LVALUE_CAST(MR_Word, argv), argc + 1);
+ MR_incr_hp((*(MR_Word*)&( argv)), argc + 1);
for (i = 0, l = Args; l != list_empty(); l = list_tail(l), i++) {
argv[i] = (char *) MR_list_head(l);
|
GitWeb
