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

Merge pull request #6 from ksherlock/patch0002

Browse Source 
initialize the fast file option list pointer to nil
This commit is contained in:
MikeW50 2018-03-25 15:14:05 -06:00 committed by GitHub
commit 16f41dbada
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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;
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);