Apple-2gs-SW/ORCA-Pascal
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-Pascal.git synced 2024-11-25 18:31:08 +00:00
Code Issues Projects Releases Wiki Activity

initialize the fast file option list pointer to nil

Browse Source 
(ORCA shell currently ignores the option list but maybe someday it will be supported...)
This commit is contained in:
Kelvin Sherlock 2018-03-15 23:06:12 -04:00
parent cf72a073f8
commit ff7694ca45
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scanner.pas
View File

@ -287,6 +287,7 @@ with ffDCBGS do begin {read the source file}
action := 0; action := 0;
flags := $C000; flags := $C000;
pathName := @fNameGS.theString; pathName := @fNameGS.theString;
option := nil;
end; {with} end; {with}
FastFileGS(ffDCBGS); FastFileGS(ffDCBGS);
if ToolError <> 0 then begin if ToolError <> 0 then begin
@ -360,6 +361,7 @@ ffRec.pcount := 14; {read the file}
ffRec.action := 0; ffRec.action := 0;
ffRec.flags := $C000; ffRec.flags := $C000;
ffRec.pathName := @usesFileNameGS.theString; ffRec.pathName := @usesFileNameGS.theString;
ffRec.option := nil;
FastFileGS(ffRec); FastFileGS(ffRec);
if ToolError <> 0 then if ToolError <> 0 then
TermError(6, nil); TermError(6, nil);