diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2004-05-17 17:10:00 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2004-05-17 17:10:00 +0000 |
| commit | db3745919bb07ffcc61c0b04dfd959af4503523b (patch) | |
| tree | f6593c355ac0be6daa8a1d1d99548a747300db5f /otherlibs | |
| parent | 93ff0675a75f35c0ddc91da0ff7383550533def2 (diff) | |
suppression des warnings "unused variable" de gcc
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6299 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs')
| -rw-r--r-- | otherlibs/graph/color.c | 2 | ||||
| -rw-r--r-- | otherlibs/labltk/support/cltkEval.c | 1 | ||||
| -rw-r--r-- | otherlibs/labltk/support/cltkImg.c | 1 | ||||
| -rw-r--r-- | otherlibs/labltk/tkanim/tkAnimGIF.c | 1 | ||||
| -rw-r--r-- | otherlibs/str/strstubs.c | 2 |
5 files changed, 0 insertions, 7 deletions
diff --git a/otherlibs/graph/color.c b/otherlibs/graph/color.c index cf3380a77..57a9dcd2f 100644 --- a/otherlibs/graph/color.c +++ b/otherlibs/graph/color.c @@ -74,7 +74,6 @@ void caml_gr_init_direct_rgb_to_pixel(void) visual = DefaultVisual(caml_gr_display,caml_gr_screen); if ( visual->class == TrueColor || visual->class == DirectColor ){ - int lsl, lsr; caml_gr_red_mask = visual->red_mask; caml_gr_green_mask = visual->green_mask; @@ -150,7 +149,6 @@ unsigned long caml_gr_pixel_rgb(int rgb) unsigned int r, g, b; int h, i; XColor color; - unsigned short tmp; r = (rgb >> 16) & 0xFF; g = (rgb >> 8) & 0xFF; diff --git a/otherlibs/labltk/support/cltkEval.c b/otherlibs/labltk/support/cltkEval.c index b31bc1adf..e7fbed879 100644 --- a/otherlibs/labltk/support/cltkEval.c +++ b/otherlibs/labltk/support/cltkEval.c @@ -199,7 +199,6 @@ CAMLprim value camltk_tcl_direct_eval(value v) */ if (info.proc == NULL) { Tcl_DString buf; - char *string; Tcl_DStringInit(&buf); Tcl_DStringAppend(&buf, argv[0], -1); for (i=1; i<size; i++) { diff --git a/otherlibs/labltk/support/cltkImg.c b/otherlibs/labltk/support/cltkImg.c index 1debe822e..445338e08 100644 --- a/otherlibs/labltk/support/cltkImg.c +++ b/otherlibs/labltk/support/cltkImg.c @@ -81,7 +81,6 @@ camltk_setimgdata_native (value imgname, value pixmap, value x, value y, { Tk_PhotoHandle ph; Tk_PhotoImageBlock pib; - int code; #if (TK_MAJOR_VERSION < 8) if (NULL == (ph = Tk_FindPhoto(String_val(imgname)))) diff --git a/otherlibs/labltk/tkanim/tkAnimGIF.c b/otherlibs/labltk/tkanim/tkAnimGIF.c index 1beb81439..d8eb11ebc 100644 --- a/otherlibs/labltk/tkanim/tkAnimGIF.c +++ b/otherlibs/labltk/tkanim/tkAnimGIF.c @@ -102,7 +102,6 @@ FileReadGIF(interp, f, fileName, formatString) char newresbuf[640]; char *imageName; char *resultptr; - int prevpos; int loop = -1; if((winPtr = Tk_MainWindow(interp)) == NULL){ diff --git a/otherlibs/str/strstubs.c b/otherlibs/str/strstubs.c index ae86c91b6..a399c24eb 100644 --- a/otherlibs/str/strstubs.c +++ b/otherlibs/str/strstubs.c @@ -401,7 +401,6 @@ CAMLprim value re_search_forward(value re, value str, value startpos) unsigned char * txt = &Byte_u(str, Long_val(startpos)); unsigned char * endtxt = &Byte_u(str, string_length(str)); unsigned char * startchars; - unsigned char c; if (txt < starttxt || txt > endtxt) invalid_argument("Str.search_forward"); @@ -431,7 +430,6 @@ CAMLprim value re_search_backward(value re, value str, value startpos) unsigned char * txt = &Byte_u(str, Long_val(startpos)); unsigned char * endtxt = &Byte_u(str, string_length(str)); unsigned char * startchars; - unsigned char c; if (txt < starttxt || txt > endtxt) invalid_argument("Str.search_backward"); |