Apple-2gs-SW/ORCA-Pascal
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-Pascal.git synced 2024-11-22 00:32:31 +00:00
Code Issues Projects Releases Wiki Activity

pragma debug $1 doesn't enable profiling code

Browse Source 
(profiling code is needed to generate debug code for functions and lines)

compile +D enables debugging and profiling.
This commit is contained in:
Kelvin Sherlock 2018-03-15 23:07:15 -04:00
parent cf72a073f8
commit 82661e6617
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
scanner.pas
View File

@ -691,6 +691,7 @@ var
val := GetInteger;
debugFlag := odd(val);
profileFlag := (val & $0002) <> 0;
profileFlag := profileFlag or debugFlag;
end; {DoDebug}