[m-rev.] trivial diff: suppress gcc warnings in opengl binding

[Julien Fischer]

Estimated hours taken: 0.1
Branches: main

extra/graphics/mercury_opengl/mogl.m:
 	Suppress warnings from gcc in high-level C grades.

Julien.

Index: mogl.m
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/extras/graphics/mercury_opengl/mogl.m,v
retrieving revision 1.35
diff -u -r1.35 mogl.m
--- mogl.m	15 Oct 2007 12:13:59 -0000	1.35
+++ mogl.m	5 Sep 2008 12:00:02 -0000
@@ -3557,7 +3557,7 @@

      while (!MR_list_is_empty(Verticies)) {

-        MOGL_deconstruct_double(MR_list_head(Verticies), &x, &y);
+        MOGL_deconstruct_double((MR_Tuple) MR_list_head(Verticies), &x, &y);

          MOGL_set_ctrl_point(Points, i, x);
          MOGL_set_ctrl_point(Points, i + 1, y);
@@ -3580,7 +3580,8 @@

      while (!MR_list_is_empty(Verticies)) {

-        MOGL_deconstruct_triple(MR_list_head(Verticies), &x, &y, &z);
+        MOGL_deconstruct_triple((MR_Tuple) MR_list_head(Verticies),
+            &x, &y, &z);

          MOGL_set_ctrl_point(Points, i,     x);
          MOGL_set_ctrl_point(Points, i + 1, y);
@@ -3607,7 +3608,7 @@

      while(!MR_list_is_empty(Verticies)) {

-        MOGL_deconstruct_quadruple(MR_list_head(Verticies),
+        MOGL_deconstruct_quadruple((MR_Tuple) MR_list_head(Verticies),
              &x, &y, &z, &w);

          MOGL_set_ctrl_point(Points, i, x);

--------------------------------------------------------------------------
mercury-reviews mailing list
Post messages to:       mercury-reviews at csse.unimelb.edu.au
Administrative Queries: owner-mercury-reviews at csse.unimelb.edu.au
Subscriptions:          mercury-reviews-request at csse.unimelb.edu.au
--------------------------------------------------------------------------