Apple-2gs-SW/ORCA-Pascal
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-Pascal.git synced 2025-02-17 20:30:33 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #7 from ksherlock/patch0003

Browse Source 
pragma debug $1 doesn't enable profiling code
This commit is contained in:
MikeW50 2018-03-25 15:14:40 -06:00 committed by GitHub
commit fcbf1b7896
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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

@ -693,6 +693,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}