@@ -70,6 +70,14 @@ Each definition must be contained on one line:
7070#include <gl.h>
7171#include <device.h>
7272
73+ #ifdef __sgi
74+ extern int devport();
75+ extern int textwritemask();
76+ extern int pagewritemask();
77+ extern int gewrite();
78+ extern int gettp();
79+ #endif
80+
7381#include "allobjects.h"
7482#include "import.h"
7583#include "modsupport.h"
@@ -122,7 +130,7 @@ gl_varray(self, args)
122130 object *self;
123131 object *args;
124132{
125- object *v, *w;
133+ object *v, *w=NULL ;
126134 int i, n, width;
127135 double vec[3];
128136 object * (*getitem) FPROTO((object *, int));
@@ -638,7 +646,9 @@ gl_lrectwrite(self, args)
638646 short y2 ;
639647 string parray ;
640648 object *s;
649+ #if 0
641650 int pixcount;
651+ #endif
642652 if (!getishortarg(args, 5, 0, &x1))
643653 return NULL;
644654 if (!getishortarg(args, 5, 1, &y1))
@@ -715,7 +725,7 @@ gl_readdisplay(self, args)
715725 parray = (unsigned long *)getstringvalue(rv);
716726 size_ret = readdisplay(x1, y1, x2, y2, parray, hints);
717727 if ( size_ret != size ) {
718- printf("gl_readdisplay: got %d pixels, expected %d \n",
728+ printf("gl_readdisplay: got %ld pixels, expected %ld \n",
719729 size_ret, size);
720730 err_setstr(RuntimeError, "readdisplay returned unexpected length");
721731 return NULL;
@@ -805,7 +815,7 @@ gl_unpackrect(self, args)
805815 long width, height, packfactor;
806816 char *s;
807817 object *unpacked, *packed;
808- int pixcount, packedcount, y ;
818+ int pixcount, packedcount;
809819 register unsigned char *p;
810820 register unsigned long *parray;
811821 if (!unpacktab_inited) {
0 commit comments