Mercurial > hg > xemacs-beta
comparison src/objects-tty.c @ 4710:3a87551bfeb5
Fixes for a number of minor warnings issued by gcc. See xemacs-patches message
<870180fe0910051206s13dca5c3j6303732e33c478f5@mail.gmail.com>.
author | Jerry James <james@xemacs.org> |
---|---|
date | Mon, 05 Oct 2009 13:07:34 -0600 |
parents | 4143b78d0df0 |
children | 19a72041c5ed e0db3c197671 |
comparison
equal
deleted
inserted
replaced
4709:db7068430402 | 4710:3a87551bfeb5 |
---|---|
27 #include "console-tty-impl.h" | 27 #include "console-tty-impl.h" |
28 #include "insdel.h" | 28 #include "insdel.h" |
29 #include "objects-tty-impl.h" | 29 #include "objects-tty-impl.h" |
30 #include "device.h" | 30 #include "device.h" |
31 #include "charset.h" | 31 #include "charset.h" |
32 | |
33 #ifdef NEW_GC | |
34 # define UNUSED_IF_NEW_GC(decl) UNUSED (decl) | |
35 #else | |
36 # define UNUSED_IF_NEW_GC(decl) decl | |
37 #endif | |
32 | 38 |
33 /* An alist mapping from color names to a cons of (FG-STRING, BG-STRING). */ | 39 /* An alist mapping from color names to a cons of (FG-STRING, BG-STRING). */ |
34 Lisp_Object Vtty_color_alist; | 40 Lisp_Object Vtty_color_alist; |
35 #if 0 /* This stuff doesn't quite work yet */ | 41 #if 0 /* This stuff doesn't quite work yet */ |
36 Lisp_Object Vtty_dynamic_color_fg; | 42 Lisp_Object Vtty_dynamic_color_fg; |
217 int UNUSED (escapeflag)) | 223 int UNUSED (escapeflag)) |
218 { | 224 { |
219 } | 225 } |
220 | 226 |
221 static void | 227 static void |
222 tty_finalize_color_instance (Lisp_Color_Instance *c) | 228 tty_finalize_color_instance (Lisp_Color_Instance *UNUSED_IF_NEW_GC (c)) |
223 { | 229 { |
224 #ifndef NEW_GC | 230 #ifndef NEW_GC |
225 if (c->data) | 231 if (c->data) |
226 xfree (c->data, void *); | 232 xfree (c->data, void *); |
227 #endif /* not NEW_GC */ | 233 #endif /* not NEW_GC */ |
312 int UNUSED (escapeflag)) | 318 int UNUSED (escapeflag)) |
313 { | 319 { |
314 } | 320 } |
315 | 321 |
316 static void | 322 static void |
317 tty_finalize_font_instance (Lisp_Font_Instance *f) | 323 tty_finalize_font_instance (Lisp_Font_Instance *UNUSED_IF_NEW_GC (f)) |
318 { | 324 { |
319 #ifndef NEW_GC | 325 #ifndef NEW_GC |
320 if (f->data) | 326 if (f->data) |
321 xfree (f->data, void *); | 327 xfree (f->data, void *); |
322 #endif /* not NEW_GC */ | 328 #endif /* not NEW_GC */ |