From: Thiemo Seufer <ths@networkno.de>
Date: Thu, 8 Sep 2005 08:16:37 +0000 (+0000)
Subject: Add missing trace-table-fun-prologue.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=299d2dbf483c85343fcfb05ab7203c894ad73792;p=sbcl.git

Add missing trace-table-fun-prologue.
---

diff --git a/src/compiler/mips/call.lisp b/src/compiler/mips/call.lisp
index 5b7d43d..3168b88 100644
--- a/src/compiler/mips/call.lisp
+++ b/src/compiler/mips/call.lisp
@@ -322,13 +322,15 @@ default-value-8
               (aver defaults)
               (assemble (*elsewhere*)
                 (emit-label default-stack-vals)
+                (trace-table-entry trace-table-fun-prologue)
                 (do ((remaining defaults (cdr remaining)))
                     ((null remaining))
                   (let ((def (car remaining)))
                     (emit-label (car def))
                     (when (null (cdr remaining))
                       (inst b defaulting-done))
-                    (store-stack-tn (cdr def) null-tn)))))))
+                    (store-stack-tn (cdr def) null-tn)))
+                (trace-table-entry trace-table-normal)))))
 
         (when lra-label
           (inst compute-code-from-lra code-tn code-tn lra-label temp))))
diff --git a/version.lisp-expr b/version.lisp-expr
index 1432e4d..904ea3e 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.4.50"
+"0.9.4.51"