diff options
Diffstat (limited to 'compiler/scanner.pas')
-rw-r--r-- | compiler/scanner.pas | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/compiler/scanner.pas b/compiler/scanner.pas index 0209efd453..f23db71695 100644 --- a/compiler/scanner.pas +++ b/compiler/scanner.pas @@ -177,6 +177,7 @@ interface procedure recordtoken; procedure startrecordtokens(buf:tdynamicarray); procedure stoprecordtokens; + function is_recording_tokens:boolean; procedure replaytoken; procedure startreplaytokens(buf:tdynamicarray); { bit length asizeint is target depend } @@ -2800,6 +2801,11 @@ type recordtokenbuf:=nil; end; + function tscannerfile.is_recording_tokens: boolean; + begin + result:=assigned(recordtokenbuf); + end; + procedure tscannerfile.writetoken(t : ttoken); var |