Merge pull request #7 from ksherlock/patch0003

pragma debug $1 doesn't enable profiling code
2018-03-25 15:14:40 -06:00 · 2018-03-25 15:14:40 -06:00 · fcbf1b7896
parent 16f41dbada 82661e6617
commit fcbf1b7896
1 changed files with 1 additions and 0 deletions
--- a/scanner.pas
+++ b/scanner.pas
@ -693,6 +693,7 @@ var
   val := GetInteger;
   debugFlag := odd(val);
   profileFlag := (val & $0002) <> 0;
+   profileFlag := profileFlag or debugFlag;
   end; {DoDebug}