pragma debug $1 doesn't enable profiling code
(profiling code is needed to generate debug code for functions and lines) compile +D enables debugging and profiling.
This commit is contained in:
parent
cf72a073f8
commit
82661e6617
|
@ -691,6 +691,7 @@ var
|
||||||
val := GetInteger;
|
val := GetInteger;
|
||||||
debugFlag := odd(val);
|
debugFlag := odd(val);
|
||||||
profileFlag := (val & $0002) <> 0;
|
profileFlag := (val & $0002) <> 0;
|
||||||
|
profileFlag := profileFlag or debugFlag;
|
||||||
end; {DoDebug}
|
end; {DoDebug}
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue