Mercurial > hg > xemacs-beta
comparison src/eval.c @ 1849:21549d437f09
[xemacs-hg @ 2004-01-03 21:54:41 by james]
GCPROd variables cannot be declared REGISTER. Thanks to James McPherson.
author | james |
---|---|
date | Sat, 03 Jan 2004 21:54:42 +0000 |
parents | 68ed93de81b7 |
children | 31d5f86eb303 |
comparison
equal
deleted
inserted
replaced
1848:a186edab3fc8 | 1849:21549d437f09 |
---|---|
967 whose values are discarded. | 967 whose values are discarded. |
968 */ | 968 */ |
969 (args)) | 969 (args)) |
970 { | 970 { |
971 /* This function can GC */ | 971 /* This function can GC */ |
972 REGISTER Lisp_Object val; | 972 Lisp_Object val; |
973 struct gcpro gcpro1; | 973 struct gcpro gcpro1; |
974 | 974 |
975 val = Feval (XCAR (args)); | 975 val = Feval (XCAR (args)); |
976 | 976 |
977 GCPRO1 (val); | 977 GCPRO1 (val); |
992 whose values are discarded. | 992 whose values are discarded. |
993 */ | 993 */ |
994 (args)) | 994 (args)) |
995 { | 995 { |
996 /* This function can GC */ | 996 /* This function can GC */ |
997 REGISTER Lisp_Object val; | 997 Lisp_Object val; |
998 struct gcpro gcpro1; | 998 struct gcpro gcpro1; |
999 | 999 |
1000 Feval (XCAR (args)); | 1000 Feval (XCAR (args)); |
1001 args = XCDR (args); | 1001 args = XCDR (args); |
1002 val = Feval (XCAR (args)); | 1002 val = Feval (XCAR (args)); |