From 96f4f3ff403298aaecfb855737a54f22946f67ca Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Wed, 2 Jan 2008 23:07:25 -0400
Subject: [PATCH] Fix profiler

---
 core/cpu/x86/32/bootstrap.factor |  1 +
 core/cpu/x86/bootstrap.factor    | 10 +++++-----
 vm/profiler.c                    |  2 --
 3 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/core/cpu/x86/32/bootstrap.factor b/core/cpu/x86/32/bootstrap.factor
index be78b2ce6c..423597eb01 100755
--- a/core/cpu/x86/32/bootstrap.factor
+++ b/core/cpu/x86/32/bootstrap.factor
@@ -8,6 +8,7 @@ IN: bootstrap.x86
 
 : arg0 EAX ;
 : arg1 EDX ;
+: temp-reg EBX ;
 : stack-reg ESP ;
 : ds-reg ESI ;
 : fixnum>slot@ arg0 1 SAR ;
diff --git a/core/cpu/x86/bootstrap.factor b/core/cpu/x86/bootstrap.factor
index af54b4dd7c..eded516ef2 100755
--- a/core/cpu/x86/bootstrap.factor
+++ b/core/cpu/x86/bootstrap.factor
@@ -13,15 +13,15 @@ big-endian off
 
 [
     ! Load word
-    arg0 0 [] MOV
+    temp-reg 0 [] MOV
     ! Bump profiling counter
-    arg0 profile-count-offset [+] 1 tag-fixnum ADD
+    temp-reg profile-count-offset [+] 1 tag-fixnum ADD
     ! Load word->code
-    arg0 arg0 word-code-offset [+] MOV
+    temp-reg temp-reg word-code-offset [+] MOV
     ! Compute word XT
-    arg0 compiled-header-size ADD
+    temp-reg compiled-header-size ADD
     ! Jump to XT
-    arg0 JMP
+    temp-reg JMP
 ] rc-absolute-cell rt-literal 2 jit-profiling jit-define
 
 [
diff --git a/vm/profiler.c b/vm/profiler.c
index ec4374db52..402f7e2a0d 100755
--- a/vm/profiler.c
+++ b/vm/profiler.c
@@ -46,8 +46,6 @@ void update_word_xt(F_WORD *word)
 		}
 
 		word->xt = (XT)(word->profiling + 1);
-
-		printf("%x\n",word->xt);
 	}
 	else
 		word->xt = (XT)(word->code + 1);