pavi  0.0
Map Path Viewer
debug.bi
Go to the documentation of this file.
1 #IF 10
2  #DEFINE DEBUG
3  #DEFINE DEBUG_POINTER(_N_)
4 #ELSE
5  COMMON SHARED AS ANY PTR DEBUG_ADDRESS, DEBUG_VALUE
6  #DEFINE DEBUG _
7  IF PEEK(ANY PTR, DEBUG_ADDRESS) <> DEBUG_VALUE THEN _
8  ?"DEBUG error: ";__FILE__;":";__FUNCTION__;"(";__LINE__;!")\n " _
9  ;DEBUG_ADDRESS;" = ";PEEK(ANY PTR, DEBUG_ADDRESS)
10  #DEFINE DEBUG_POINTER(_N_) _
11  DEBUG_ADDRESS = @_N_ : DEBUG_VALUE = _N_ _
12  : ?"DEBUG watching PEEK(ANY PTR, ";DEBUG_ADDRESS;") = ";DEBUG_VALUE
13 #ENDIF
14 
DEBUG_VALUE
common ANY_PTR DEBUG_VALUE
Definition: debug.bi:5
DEBUG_ADDRESS
common ANY_PTR DEBUG_ADDRESS
Definition: debug.bi:5