Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/src/eval.c	Mon Aug 13 10:17:09 2007 +0200
+++ b/src/eval.c	Mon Aug 13 10:17:54 2007 +0200
@@ -782,7 +782,7 @@
        (args))
 {
   /* This function can GC */
-  Lisp_Object val;
+  Lisp_Object val = Qnil;
   struct gcpro gcpro1, gcpro2;
 
   GCPRO2 (args, val);
@@ -808,7 +808,7 @@
        (args))
 {
   /* This function can GC */
-  Lisp_Object val;
+  Lisp_Object val = Qnil;
   struct gcpro gcpro1, gcpro2;
 
   GCPRO2 (args, val);
@@ -2987,6 +2987,9 @@
   if (debug_on_next_call)
     do_debug_on_call (Qt);
 
+  if (profiling_active)
+    profile_increase_call_count (original_fun);
+
   /* At this point, only original_fun and original_args
      have values that will be used below */
  retry: