forked from KolibriOS/kolibrios
mtdbg: display contents of fpu registers. some bugs still unfixed
git-svn-id: svn://kolibrios.org@4900 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Sergey Semyonov (Serge)
parent
47188c243c
commit
7a4d9fd314
@ -697,6 +697,12 @@ draw_fpu_register:
|
|||||||
push edx
|
push edx
|
||||||
push ecx
|
push ecx
|
||||||
push esi
|
push esi
|
||||||
|
|
||||||
|
sub esp, 8
|
||||||
|
|
||||||
|
fld tword [esi]
|
||||||
|
fistp qword [esp]
|
||||||
|
|
||||||
mov eax, esi
|
mov eax, esi
|
||||||
mov esi, ecx
|
mov esi, ecx
|
||||||
|
|
||||||
@ -727,11 +733,15 @@ draw_fpu_register:
|
|||||||
imul esi, 60000h
|
imul esi, 60000h
|
||||||
lea edx, [ebx+esi]
|
lea edx, [ebx+esi]
|
||||||
mov esi, ecx
|
mov esi, ecx
|
||||||
pop ecx
|
|
||||||
|
mov ecx, esp
|
||||||
|
|
||||||
; draw a number in the window
|
; draw a number in the window
|
||||||
; color is the same as for previous text draw function
|
; color is the same as for previous text draw function
|
||||||
; ebx : [20] show 16 chars set [30] bit - qword
|
; ebx : [20] show 16 chars set [30] bit - qword
|
||||||
mcall 47, 40100101h
|
mcall 47, 40100101h
|
||||||
|
add esp, 8
|
||||||
|
pop ecx
|
||||||
lea ebx, [edx+60000h*18]
|
lea ebx, [edx+60000h*18]
|
||||||
mov esi, ecx
|
mov esi, ecx
|
||||||
pop ecx
|
pop ecx
|
||||||
@ -740,6 +750,196 @@ draw_fpu_register:
|
|||||||
add edx, ecx
|
add edx, ecx
|
||||||
ret
|
ret
|
||||||
|
|
||||||
|
;-----------------------------------------------------------------------------
|
||||||
|
; Display FPU register (ST0 - ST7) content
|
||||||
|
;
|
||||||
|
; in: esi->value, ebx = coord
|
||||||
|
draw_fpu_register_2:
|
||||||
|
|
||||||
|
.str_buf equ esp
|
||||||
|
.bcd_man equ esp+32
|
||||||
|
.bcd_exp equ esp+32+12
|
||||||
|
|
||||||
|
sub esp, 32+12+12
|
||||||
|
|
||||||
|
mov edx, ebp
|
||||||
|
shl edx, 4
|
||||||
|
|
||||||
|
fld tword [_st0+edx]
|
||||||
|
fldlg2
|
||||||
|
fld tword [_st0+edx]
|
||||||
|
bt dword [_st0+edx+8], 15
|
||||||
|
jnc @f
|
||||||
|
fabs
|
||||||
|
@@:
|
||||||
|
fyl2x
|
||||||
|
frndint
|
||||||
|
fld st0
|
||||||
|
fbstp tword [.bcd_exp]
|
||||||
|
fldl2t
|
||||||
|
fmulp
|
||||||
|
fld st0
|
||||||
|
frndint
|
||||||
|
fxch
|
||||||
|
fsub st,st1
|
||||||
|
|
||||||
|
f2xm1
|
||||||
|
fld1
|
||||||
|
faddp
|
||||||
|
fscale
|
||||||
|
fstp st1
|
||||||
|
fdivp
|
||||||
|
fimul dword [_10000000]
|
||||||
|
fbstp tword [.bcd_man]
|
||||||
|
|
||||||
|
mov eax, 0x20202020
|
||||||
|
mov edi, .str_buf
|
||||||
|
stosd
|
||||||
|
stosd
|
||||||
|
stosd
|
||||||
|
stosd
|
||||||
|
|
||||||
|
lea esi, [.bcd_man-1]
|
||||||
|
mov edi, .str_buf
|
||||||
|
|
||||||
|
mov ecx, 9
|
||||||
|
mov eax, 0x10000
|
||||||
|
|
||||||
|
mov al, [esi+ecx+1]
|
||||||
|
cmp al, 0x80 ; check for sign
|
||||||
|
jne .mantis_2_str
|
||||||
|
mov al, '-'
|
||||||
|
stosb
|
||||||
|
|
||||||
|
.mantis_2_str:
|
||||||
|
|
||||||
|
mov al, [esi+ecx]
|
||||||
|
test al, al
|
||||||
|
jnz @f
|
||||||
|
|
||||||
|
bt eax, 16
|
||||||
|
jc .skip_lb
|
||||||
|
@@:
|
||||||
|
mov ah, al
|
||||||
|
shr al, 4
|
||||||
|
jnz .write_h
|
||||||
|
|
||||||
|
bt eax, 16
|
||||||
|
jc .skip_hb
|
||||||
|
|
||||||
|
.write_h:
|
||||||
|
add al, 0x30
|
||||||
|
stosb
|
||||||
|
btr eax, 16
|
||||||
|
jnc .skip_hb
|
||||||
|
mov al, '.'
|
||||||
|
stosb
|
||||||
|
.skip_hb:
|
||||||
|
mov al, ah
|
||||||
|
and al, 0x0F
|
||||||
|
jnz .write_lb
|
||||||
|
|
||||||
|
bt eax, 16
|
||||||
|
jc .skip_lb
|
||||||
|
.write_lb:
|
||||||
|
add al,0x30
|
||||||
|
stosb
|
||||||
|
btr eax, 16
|
||||||
|
jnc .skip_lb
|
||||||
|
mov al, '.'
|
||||||
|
stosb
|
||||||
|
.skip_lb:
|
||||||
|
dec ecx
|
||||||
|
jnz .mantis_2_str
|
||||||
|
|
||||||
|
mov ax, ' e'
|
||||||
|
stosw
|
||||||
|
|
||||||
|
lea esi, [.bcd_exp-1]
|
||||||
|
mov ecx, 9
|
||||||
|
mov eax,0x10000
|
||||||
|
mov al, [esi+ecx+1]
|
||||||
|
cmp al, 0x80
|
||||||
|
jne .exp_2_str
|
||||||
|
mov al, '-'
|
||||||
|
stosb
|
||||||
|
.exp_2_str:
|
||||||
|
mov al, [esi+ecx]
|
||||||
|
test al, al
|
||||||
|
jnz @f
|
||||||
|
|
||||||
|
bt eax, 16
|
||||||
|
jc .skip_lb2
|
||||||
|
@@:
|
||||||
|
mov ah, al
|
||||||
|
shr al, 4
|
||||||
|
jnz .write_h2
|
||||||
|
|
||||||
|
bt eax, 16
|
||||||
|
jc .skip_hb2
|
||||||
|
.write_h2:
|
||||||
|
add al, 0x30
|
||||||
|
stosb
|
||||||
|
btr eax, 16
|
||||||
|
stosb
|
||||||
|
.skip_hb2:
|
||||||
|
mov al, ah
|
||||||
|
and al, 0x0F
|
||||||
|
jnz .write_lb2
|
||||||
|
|
||||||
|
bt eax, 16
|
||||||
|
jc .skip_lb2
|
||||||
|
.write_lb2:
|
||||||
|
add al, 0x30
|
||||||
|
stosb
|
||||||
|
btr eax, 16
|
||||||
|
.skip_lb2:
|
||||||
|
dec ecx
|
||||||
|
jnz .exp_2_str
|
||||||
|
|
||||||
|
mov ecx, (COLOR_TXT_INACTIVE or 0x40000000)
|
||||||
|
cmp [debuggee_pid], 0
|
||||||
|
jz .do_label
|
||||||
|
cmp [bSuspended], 0
|
||||||
|
jz .do_label
|
||||||
|
|
||||||
|
mov ecx, (COLOR_TXT_NORMAL or 0x40000000)
|
||||||
|
|
||||||
|
mov eax, dword [_st0+edx]
|
||||||
|
cmp eax, dword [_st0+(oldcontext-context)+edx]
|
||||||
|
jne .scol
|
||||||
|
|
||||||
|
mov eax, dword [_st0+edx+4]
|
||||||
|
cmp eax, dword [_st0+(oldcontext-context)+4]
|
||||||
|
jne .scol
|
||||||
|
|
||||||
|
mov ax, word [_st0+edx+8]
|
||||||
|
cmp ax, word [_st0+(oldcontext-context)+8]
|
||||||
|
je .do_label
|
||||||
|
|
||||||
|
.scol:
|
||||||
|
mov ecx, (COLOR_TXT_CHANGED or 0x40000000)
|
||||||
|
|
||||||
|
.do_label:
|
||||||
|
; draw a text string in the window
|
||||||
|
|
||||||
|
mov eax, 4
|
||||||
|
mov esi, eax
|
||||||
|
lea edx, [fpu_strs+ebp*4]
|
||||||
|
mov edi, COLOR_BG_NORMAL
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
mov esi, 16
|
||||||
|
mov edx, .str_buf
|
||||||
|
add ebx, 0x180000
|
||||||
|
int 0x40
|
||||||
|
|
||||||
|
sub ebx, 0x180000
|
||||||
|
add esp, 32+12+12
|
||||||
|
|
||||||
|
ret
|
||||||
|
|
||||||
|
|
||||||
;-----------------------------------------------------------------------------
|
;-----------------------------------------------------------------------------
|
||||||
; Show FPU MMX register content
|
; Show FPU MMX register content
|
||||||
;
|
;
|
||||||
@ -911,6 +1111,8 @@ draw_main_registers:
|
|||||||
|
|
||||||
; MMX registers
|
; MMX registers
|
||||||
|
|
||||||
|
push ebp
|
||||||
|
|
||||||
push 8
|
push 8
|
||||||
mov edx, mmx_strs
|
mov edx, mmx_strs
|
||||||
mov ebx, (registers_x_pos+2)*10000h+registers_y_pos+142
|
mov ebx, (registers_x_pos+2)*10000h+registers_y_pos+142
|
||||||
@ -927,20 +1129,23 @@ align 4
|
|||||||
|
|
||||||
;FPU registers
|
;FPU registers
|
||||||
|
|
||||||
|
;int3
|
||||||
|
nop
|
||||||
|
|
||||||
mov [esp], byte 8
|
mov [esp], byte 8
|
||||||
mov edx, fpu_strs
|
xor ebp, ebp
|
||||||
mov ebx, (registers_x_pos+2)*10000h+registers_y_pos+232
|
mov ebx, (registers_x_pos+2)*10000h+registers_y_pos+232
|
||||||
mov esi, _st0
|
|
||||||
|
|
||||||
align 4
|
align 4
|
||||||
.draw_fpu_regs:
|
.draw_fpu_regs:
|
||||||
|
|
||||||
call draw_fpu_register
|
call draw_fpu_register_2
|
||||||
add ebx, 10
|
add ebx, 10
|
||||||
add esi, 16
|
inc ebp
|
||||||
dec dword [esp]
|
dec dword [esp]
|
||||||
jnz .draw_fpu_regs
|
jnz .draw_fpu_regs
|
||||||
pop eax ;restore stack
|
pop eax ;restore stack
|
||||||
|
pop ebp
|
||||||
|
|
||||||
mov ecx, COLOR_TXT_INACTIVE
|
mov ecx, COLOR_TXT_INACTIVE
|
||||||
cmp [debuggee_pid], 0
|
cmp [debuggee_pid], 0
|
||||||
|
|||||||
@ -2328,11 +2328,13 @@ avx_strs:
|
|||||||
db '-YMM6-'
|
db '-YMM6-'
|
||||||
db '-YMM7-'
|
db '-YMM7-'
|
||||||
|
|
||||||
|
align 4
|
||||||
debuggee_pid dd 0
|
debuggee_pid dd 0
|
||||||
bSuspended db 0
|
bSuspended db 0
|
||||||
bAfterGo db 0
|
bAfterGo db 0
|
||||||
temp_break dd 0
|
temp_break dd 0
|
||||||
reg_mode db 1
|
reg_mode db 1
|
||||||
|
_10000000 dd 10000000
|
||||||
|
|
||||||
include 'disasm_tbl.inc'
|
include 'disasm_tbl.inc'
|
||||||
|
|
||||||
@ -2442,8 +2444,17 @@ _ctx_flags:
|
|||||||
dd ?
|
dd ?
|
||||||
|
|
||||||
_sse_flags:
|
_sse_flags:
|
||||||
dq ?
|
|
||||||
dq ?
|
|
||||||
|
_fcw dw ?
|
||||||
|
_fsw dw ?
|
||||||
|
_ftw db ?
|
||||||
|
db ?
|
||||||
|
_fop dw ?
|
||||||
|
_fpu_ip dd ?
|
||||||
|
dw ?
|
||||||
|
dw ?
|
||||||
|
|
||||||
dq ?
|
dq ?
|
||||||
dq ?
|
dq ?
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user