Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-12-21 16:29:31 +00:00
Code Issues Projects Releases Wiki Activity

Do some more checks for invalid sym files.

Browse Source
This commit is contained in:
Stephen Heumann 2021-03-06 15:02:51 -06:00
parent f9f79983f8
commit f368071146
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Header.pas
View File

@ -1550,6 +1550,11 @@ var
p_fenv_access: fenvAccess := boolean(ReadByte);
otherwise: begin
PurgeSymbols;
DestroySymbolFile;
TermError(12);
end;
end; {case}
end; {while}
symPtr := pePtr;
@ -1677,8 +1682,14 @@ var
end; {while}
end;
otherwise: ;
enumType: ;
otherwise: begin
PurgeSymbols;
DestroySymbolFile;
TermError(12);
end;
end; {case}
end; {case 0}
@ -1716,6 +1727,12 @@ var
15: tp := uCharPtr;
16: tp := shortPtr;
17: tp := uShortPtr;
otherwise: begin
PurgeSymbols;
DestroySymbolFile;
TermError(12);
end;
end; {case}
end; {ReadType}