mirror of
https://github.com/byteworksinc/ORCA-Pascal.git
synced 2024-05-27 20:48:33 +00:00
Merge pull request #6 from ksherlock/patch0002
initialize the fast file option list pointer to nil
This commit is contained in:
commit
16f41dbada
|
@ -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);
|
||||||
|
|
Loading…
Reference in New Issue
Block a user