Aren/kolibrios
1
0
Fork 0
mirror of https://github.com/KolibriOS/kolibrios.git synced 2024-12-16 03:42:35 +03:00
Code Issues Packages Projects Releases Wiki Activity

mtdbg fpu: detect denormal, infinity or not-a-number value

Browse Source 
git-svn-id: svn://kolibrios.org@4924 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Sergey Semyonov (Serge) 2014-05-13 20:04:58 +00:00
parent 2518ed40a1
commit 0afaada67f
1 changed files with 97 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

113
programs/develop/mtdbg/gui.inc
View File

@ -54,6 +54,19 @@ else ; BLACK ON WHITE
end if end if
struc fpcvt
{
.str_buf rb 32
.cvt_buf rb 16
.bcd_man rb 10
.bcd_exp rb 10
.exp rd 1
.digits rq 1
.sizeof:
}
;----------------------------------------------------------------------------- ;-----------------------------------------------------------------------------
data_width = 80 data_width = 80
@ -748,6 +761,14 @@ draw_register:
add edx, ecx add edx, ecx
ret ret
; in: edi=cvt buffer, st0 = value
;align 4
;fp2str:
;----------------------------------------------------------------------------- ;-----------------------------------------------------------------------------
; Display FPU register (ST0 - ST7) content ; Display FPU register (ST0 - ST7) content
; ;
@ -776,41 +797,87 @@ draw_fpu_register_2:
stosd stosd
stosd stosd
;int3
;nop
movzx eax, word [_fsw] movzx eax, word [_fsw]
shr eax, 11 shr eax, 11
add eax, ebp add eax, ebp
shr ebp, 12 shr ebp, 12
and eax, 7 and eax, 7
bt dword [_ftw], eax bt dword [_ftw], eax
jc .A6M jc .exam
mov dword [.str_buf+8],' emp' mov dword [.str_buf+8],' emp'
mov word [.str_buf+8+4],'ty' mov word [.str_buf+8+4],'ty'
jmp .display jmp .display
mov cx, [_st0+ebp+8] .exam:
and cx, 0x7FFF ;clear sign flag fld tword [_st0+ebp]
jz .A6M fxam
fstsw ax
fstp st1
sahf
cmp cx, 0x7FFF jz .c3
jne .decode jp .c2
;C0 leaf
jc .nan
; C3 = 0 C2 = 0 C0 = 0 - invalid
mov dword [.str_buf+6], ' inv' mov dword [.str_buf+6], ' inv'
mov dword [.str_buf+6+4], 'alid' mov dword [.str_buf+6+4], 'alid'
jmp .display jmp .display
.A6M: ; C3 = 0 C2 = 0 C0 = 1 - Not a Number
.nan:
mov dword [.str_buf+10], ' NaN'
jmp .display
mov eax, dword [_st0+ebp] ;C2 leaf - valid or infinity
or eax, dword [_st0+ebp+4]
jnz .decode .c2:
; C3 = 0 C2 = 1 C0 = 0 - valid number
jnc .decode
; C3 = 0 C2 = 1 C0 = 1 - Infinty
;check sign flag
test ah, 0x02
jnz @F
mov dword [.str_buf+10], '+Inf'
jmp .display
@@:
mov dword [.str_buf+10], '-Inf'
jmp .display
.c3:
jp .denormal
jc .empty
; C3 = 1 C2 = 1 C0 = 0 - Zero
mov dword [.str_buf+10], ' 0.0' mov dword [.str_buf+10], ' 0.0'
jmp .display jmp .display
.empty:
mov dword [.str_buf+8],' emp'
mov word [.str_buf+8+4],'ty'
jmp .display
; C3 = 1 C2 = 1 C0 = 0 - Denormal number
.denormal:
test ah, 0x02
jnz @F
mov dword [.str_buf+6], '+den'
mov dword [.str_buf+6+4], 'orm '
jmp .display
@@:
mov dword [.str_buf+6], '-den'
mov dword [.str_buf+6+4], 'orm '
jmp .display
.decode: .decode:
fld tword [_st0+ebp] fld tword [_st0+ebp]
fabs fabs
@ -1059,7 +1126,6 @@ draw_fpu_regs:
xor ebp, ebp xor ebp, ebp
mov ebx, [registers_x_pos_dd] mov ebx, [registers_x_pos_dd]
add ebx, 2*10000h+registers_y_pos+142 add ebx, 2*10000h+registers_y_pos+142
mov edi, COLOR_BG_NORMAL
.draw_regs: .draw_regs:
call draw_fpu_register_2 call draw_fpu_register_2
add ebx, 10 add ebx, 10
@ -1077,7 +1143,6 @@ draw_mmx_regs:
xor ebp, ebp xor ebp, ebp
mov ebx, [registers_x_pos_dd] mov ebx, [registers_x_pos_dd]
add ebx, 2*10000h+registers_y_pos+142 add ebx, 2*10000h+registers_y_pos+142
; mov edi, COLOR_BG_NORMAL
.draw_regs: .draw_regs:
call draw_mmx_register_2 call draw_mmx_register_2
add ebx, 10 add ebx, 10
@ -1088,7 +1153,23 @@ draw_mmx_regs:
pop ebp pop ebp
ret ret
; TODO add SSE registers align 4
draw_sse_regs:
push ebp
push 8
xor ebp, ebp
mov ebx, [registers_x_pos_dd]
add ebx, 2*10000h+registers_y_pos+232
.draw_regs:
; call draw_sse_register
add ebx, 10
inc ebp
dec dword [esp]
jnz .draw_regs
pop eax
pop ebp
ret
; TODO add AVX registers ; TODO add AVX registers
;----------------------------------------------------------------------------- ;-----------------------------------------------------------------------------