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

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