Mercurial > hg > xemacs-beta

comparison src/eval.c @ 245:51092a27c943 r20-5b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b21
author cvs
date Mon, 13 Aug 2007 10:17:54 +0200
parents f220cc83d72e
children 83b3d10dcba9
comparison
equal deleted inserted replaced
244:78d4f1140794 245:51092a27c943
780 whose values are discarded. 780 whose values are discarded.
781 */ 781 */
782 (args)) 782 (args))
783 { 783 {
784 /* This function can GC */ 784 /* This function can GC */
785 Lisp_Object val; 785 Lisp_Object val = Qnil;
786 struct gcpro gcpro1, gcpro2; 786 struct gcpro gcpro1, gcpro2;
787 787
788 GCPRO2 (args, val); 788 GCPRO2 (args, val);
789 789
790 val = Feval (XCAR (args)); 790 val = Feval (XCAR (args));
806 whose values are discarded. 806 whose values are discarded.
807 */ 807 */
808 (args)) 808 (args))
809 { 809 {
810 /* This function can GC */ 810 /* This function can GC */
811 Lisp_Object val; 811 Lisp_Object val = Qnil;
812 struct gcpro gcpro1, gcpro2; 812 struct gcpro gcpro1, gcpro2;
813 813
814 GCPRO2 (args, val); 814 GCPRO2 (args, val);
815 815
816 Feval (XCAR (args)); 816 Feval (XCAR (args));
2985 PUSH_BACKTRACE (backtrace); 2985 PUSH_BACKTRACE (backtrace);
2986 2986
2987 if (debug_on_next_call) 2987 if (debug_on_next_call)
2988 do_debug_on_call (Qt); 2988 do_debug_on_call (Qt);
2989 2989
2990 if (profiling_active)
2991 profile_increase_call_count (original_fun);
2992
2990 /* At this point, only original_fun and original_args 2993 /* At this point, only original_fun and original_args
2991 have values that will be used below */ 2994 have values that will be used below */
2992 retry: 2995 retry:
2993 fun = indirect_function (original_fun, 1); 2996 fun = indirect_function (original_fun, 1);
2994 2997