From 82661e66175d2bce7da4493e6804dfcea9001d94 Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Thu, 15 Mar 2018 23:07:15 -0400
Subject: [PATCH] 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.
---
 scanner.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scanner.pas b/scanner.pas
index 0fea42e..f79d987 100644
--- a/scanner.pas
+++ b/scanner.pas
@@ -691,6 +691,7 @@ var
    val := GetInteger;
    debugFlag := odd(val);
    profileFlag := (val & $0002) <> 0;
+   profileFlag := profileFlag or debugFlag;
    end; {DoDebug}