From ff7694ca4570b303b784b19fd836619955f8890e Mon Sep 17 00:00:00 2001
From: Kelvin Sherlock <ksherlock@gmail.com>
Date: Thu, 15 Mar 2018 23:06:12 -0400
Subject: [PATCH] initialize the fast file option list pointer to nil

(ORCA shell currently ignores the option list but maybe someday it will be supported...)
---
 scanner.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/scanner.pas b/scanner.pas
index 0fea42e..2dc5bb6 100644
--- a/scanner.pas
+++ b/scanner.pas
@@ -287,6 +287,7 @@ with ffDCBGS do begin			{read the source file}
    action := 0;
    flags := $C000;
    pathName := @fNameGS.theString;
+   option := nil;
    end; {with}
 FastFileGS(ffDCBGS);
 if ToolError <> 0 then begin
@@ -360,6 +361,7 @@ ffRec.pcount := 14;			{read the file}
 ffRec.action := 0;
 ffRec.flags := $C000;
 ffRec.pathName := @usesFileNameGS.theString;
+ffRec.option := nil;
 FastFileGS(ffRec);
 if ToolError <> 0 then
    TermError(6, nil);