mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

(GCPRO1, GCPRO2, GCPRO3, GCPRO4, GCPRO5):

Browse Source 
Add dummy uses of gcproN variables.
This commit is contained in:
Stefan Monnier 2001-11-29 02:31:59 +00:00
parent 3ce081f574
commit 9f0443f99e
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/lisp.h
View File

@ -1814,11 +1814,16 @@ struct gcpro
#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 */