Mercurial > hg > xemacs-beta
diff src/fns.c @ 1920:c66036f59678
[xemacs-hg @ 2004-02-20 07:29:16 by stephent]
GCPRO documentation <87y8qynrj0.fsf@tleepslib.sk.tsukuba.ac.jp>
| author | stephent |
|---|---|
| date | Fri, 20 Feb 2004 07:29:23 +0000 |
| parents | 21549d437f09 |
| children | 9c872f33ecbe |
line wrap: on
line diff
--- a/src/fns.c Thu Feb 19 22:50:36 2004 +0000 +++ b/src/fns.c Fri Feb 20 07:29:23 2004 +0000 @@ -1140,6 +1140,7 @@ */ (n, list)) { + /* This function can GC */ REGISTER EMACS_INT i; REGISTER Lisp_Object tail = list; CHECK_NATNUM (n); @@ -1164,6 +1165,7 @@ */ (n, list)) { + /* This function can GC */ return Fcar (Fnthcdr (n, list)); } @@ -1172,6 +1174,7 @@ */ (sequence, n)) { + /* This function can GC */ retry: CHECK_INT_COERCE_CHAR (n); /* yuck! */ if (LISTP (sequence)) @@ -2720,6 +2723,7 @@ */ (object, property, value)) { + /* This function cannot GC */ CHECK_LISP_WRITEABLE (object); if (LRECORDP (object) && XRECORD_LHEADER_IMPLEMENTATION (object)->putprop)