Subversion Repositories Kolibri OS

Rev

Rev 5363 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5363 Rev 7657
Line 1... Line 1...
1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2
;;                                                              ;;
2
;;                                                              ;;
3
;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;
3
;; Copyright (C) KolibriOS team 2004-2019. All rights reserved. ;;
4
;; Distributed under terms of the GNU General Public License    ;;
4
;; Distributed under terms of the GNU General Public License    ;;
5
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
5
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 6... Line 6...
6
 
6
 
7
$Revision: 5363 $
-
 
8
 
-
 
Line 9... Line 7...
9
_esp equ esp
7
$Revision: 7657 $
10
 
8
 
11
;
9
;
12
; Formatted Debug Output (FDO)
10
; Formatted Debug Output (FDO)
Line 20... Line 18...
20
 
18
 
21
; to be defined:
19
; to be defined:
22
;   __DEBUG__ equ 1
20
;   __DEBUG__ equ 1
Line -... Line 21...
-
 
21
;   __DEBUG_LEVEL__ equ 5
-
 
22
 
-
 
23
_esp equ esp
-
 
24
 
-
 
25
macro put_board {
-
 
26
        call    sys_msg_board
23
;   __DEBUG_LEVEL__ equ 5
27
}
24
 
28
 
25
macro debug_func name {
29
macro debug_func name {
26
 if used name
30
 if used name
Line 241... Line 245...
241
debug_func fdo_debug_outchar
245
debug_func fdo_debug_outchar
242
debug_beginf
246
debug_beginf
243
        pushad
247
        pushad
244
        movzx   ecx, al
248
        movzx   ecx, al
245
        mov     ebx, 1
249
        mov     ebx, 1
246
        call    sys_msg_board
250
        put_board
247
        popad
251
        popad
248
        ret
252
        ret
249
debug_endf
253
debug_endf
Line 250... Line 254...
250
 
254
 
Line 255... Line 259...
255
        dec     esi
259
        dec     esi
256
        js      .l2
260
        js      .l2
257
        movzx   ecx, byte[edx]
261
        movzx   ecx, byte[edx]
258
        or      cl, cl
262
        or      cl, cl
259
        jz      .l2
263
        jz      .l2
260
        call    sys_msg_board
264
        put_board
261
        inc     edx
265
        inc     edx
262
        jmp     .l1
266
        jmp     .l1
263
  .l2:
267
  .l2:
264
        ret
268
        ret
265
debug_endf
269
debug_endf
Line 389... Line 393...
389
   __debug_strings equ __debug_strings,_debug_str_,<_format>,..lbl-..f1-1-c2-c3
393
   __debug_strings equ __debug_strings,_debug_str_,<_format>,..lbl-..f1-1-c2-c3
390
  end virtual
394
  end virtual
391
 end if
395
 end if
392
}
396
}
Line -... Line 397...
-
 
397
 
-
 
398
macro DEBUGFG _level, _group, _format, [_arg] {
-
 
399
 common
-
 
400
  if _group eqtype
-
 
401
   DEBUGF _level, _format,_arg
-
 
402
  else
-
 
403
   if _level >= _group
-
 
404
    DEBUGF 999, _format,_arg
-
 
405
   end if
-
 
406
  end if
-
 
407
}
393
 
408
 
394
macro __include_debug_strings dummy,[_id,_fmt,_len] {
409
macro __include_debug_strings dummy,[_id,_fmt,_len] {
395
 common
410
 common
396
  local c1,a1,a2
411
  local c1,a1,a2
397
 forward
412
 forward