Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 5205 → Rev 5206

/programs/develop/mtdbg/mtdbg.asm
995,25 → 995,33
 
;-----------------------------------------------------------------------------
; Proceed process event
 
OnProceed:
;Here we get [<number>] argument at do step <number> times
OnProceedMultiple:
cmp [bSuspended], 0
jz OnStep.running
cmp [proc_num], 0
jg .procone
mov [proc_num], 1
mov esi, [curarg]
cmp esi, 0
jz .procone
test esi, esi
jz .do
cmp byte [esi], 0
jz .procone
jz .do
call get_hex_number
jc .ret
cmp eax, 0 ; check if lesser than 0
cmp eax, 0 ; check if lesser or equal than 0
jle .ret
mov [proc_num], eax
mov [curarg], 0
.do:
call OnProceed
dec [proc_num]
jnz .do
.ret:
ret
 
.procone:
 
OnProceed:
cmp [bSuspended], 0
jz OnStep.running
mov esi, [_eip]
 
@@:
1107,15 → 1115,6
jmp OnStep.doit
 
@@:
mov eax, [proc_num]
dec eax
cmp eax, 0
jle .ret
mov [proc_num], eax
jmp .procone
 
.ret:
mov [proc_num], 0
ret
 
;-----------------------------------------------------------------------------
2000,7 → 1999,7
db 0Bh
dd aStep, OnStepMultiple, StepSyntax, StepHelp
db 0Bh
dd aProceed, OnProceed, ProceedSyntax, ProceedHelp
dd aProceed, OnProceedMultiple, ProceedSyntax, ProceedHelp
db 0Bh
dd aCalc, OnCalc, CalcSyntax, CalcHelp
db 0Eh