Mercurial > emacs
changeset 41659:e37febff5532
(GCPRO1, GCPRO2, GCPRO3, GCPRO4, GCPRO5):
Add dummy uses of gcproN variables.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 29 Nov 2001 02:31:59 +0000 |
| parents | 1f7eca1d2ba1 |
| children | 1fd5c468b3da |
| files | src/lisp.h |
| diffstat | 1 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/lisp.h Thu Nov 29 02:28:17 2001 +0000 +++ b/src/lisp.h Thu Nov 29 02:31:59 2001 +0000 @@ -1814,11 +1814,16 @@ #if GC_MARK_STACK == GC_MAKE_GCPROS_NOOPS -#define GCPRO1(varname) ((void) 0) -#define GCPRO2(varname1, varname2)((void) 0) -#define GCPRO3(varname1, varname2, varname3) ((void) 0) -#define GCPRO4(varname1, varname2, varname3, varname4) ((void) 0) -#define GCPRO5(varname1, varname2, varname3, varname4, varname5) ((void) 0) +/* Do something silly with gcproN vars just so gcc shuts up. */ + +#define GCPRO1(varname) ((void) gcpro1) +#define GCPRO2(varname1, varname2)(((void) gcpro2, (void) gcpro1)) +#define GCPRO3(varname1, varname2, varname3) \ + (((void) gcpro3, (void) gcpro2, (void) gcpro1)) +#define GCPRO4(varname1, varname2, varname3, varname4) \ + (((void) gcpro4, (void) gcpro3, (void) gcpro2, (void) gcpro1)) +#define GCPRO5(varname1, varname2, varname3, varname4, varname5) \ + (((void) gcpro5, (void) gcpro4, (void) gcpro3, (void) gcpro2, (void) gcpro1)) #define UNGCPRO ((void) 0) #else /* GC_MARK_STACK != GC_MAKE_GCPROS_NOOPS */