steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix profiler

db4
Slava Pestov 2008-01-02 23:07:25 -04:00
parent b7327b6228
commit 96f4f3ff40
3 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
core/cpu/x86/32/bootstrap.factor
View File

@ -8,6 +8,7 @@ IN: bootstrap.x86
: arg0 EAX ; : arg0 EAX ;
: arg1 EDX ; : arg1 EDX ;
: temp-reg EBX ;
: stack-reg ESP ; : stack-reg ESP ;
: ds-reg ESI ; : ds-reg ESI ;
: fixnum>slot@ arg0 1 SAR ; : fixnum>slot@ arg0 1 SAR ;

10
core/cpu/x86/bootstrap.factor
View File

@ -13,15 +13,15 @@ big-endian off
[ [
! Load word ! Load word
arg0 0 [] MOV temp-reg 0 [] MOV
! Bump profiling counter ! Bump profiling counter
arg0 profile-count-offset [+] 1 tag-fixnum ADD temp-reg profile-count-offset [+] 1 tag-fixnum ADD
! Load word->code ! Load word->code
arg0 arg0 word-code-offset [+] MOV temp-reg temp-reg word-code-offset [+] MOV
! Compute word XT ! Compute word XT
arg0 compiled-header-size ADD temp-reg compiled-header-size ADD
! Jump to XT ! Jump to XT
arg0 JMP temp-reg JMP
] rc-absolute-cell rt-literal 2 jit-profiling jit-define ] rc-absolute-cell rt-literal 2 jit-profiling jit-define
[ [

2
vm/profiler.c
View File

@ -46,8 +46,6 @@ void update_word_xt(F_WORD *word)
} }
word->xt = (XT)(word->profiling + 1); word->xt = (XT)(word->profiling + 1);
printf("%x\n",word->xt);
} }
else else
word->xt = (XT)(word->code + 1); word->xt = (XT)(word->code + 1);