paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-28 22:21:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

* better error checking

Browse Source
This commit is contained in:
peter 1999-09-16 13:41:37 +00:00
parent 956eb97743
commit 870895b72b
1 changed files with 555 additions and 544 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/tokens.pas
View File

@ -434,6 +434,7 @@ var
begin begin
{$ifdef TP} {$ifdef TP}
assign(f,exepath+'tokens.dat'); assign(f,exepath+'tokens.dat');
{$I-}
reset(f,1); reset(f,1);
{We are not sure that the msg file is loaded!} {We are not sure that the msg file is loaded!}
if ioresult<>0 then if ioresult<>0 then
@ -446,17 +447,24 @@ begin
blockread(f,header,1); blockread(f,header,1);
blockread(f,header[1],length(header)); blockread(f,header[1],length(header));
blockread(f,a,sizeof(a)); blockread(f,a,sizeof(a));
if (header<>tokheader) or (a<>sizeof(ttokenarray)) then if (ioresult<>0) or
begin (header<>tokheader) or (a<>sizeof(ttokenarray)) then
close(f); begin
writeln('Fatal: File tokens.dat corrupt.'); close(f);
halt(3); writeln('Fatal: File tokens.dat corrupt.');
end; halt(3);
end;
new(tokeninfo); new(tokeninfo);
blockread(f,tokeninfo^,sizeof(ttokenarray)); blockread(f,tokeninfo^,sizeof(ttokenarray));
new(tokenidx); new(tokenidx);
blockread(f,tokenidx^,sizeof(tokenidx^)); blockread(f,tokenidx^,sizeof(tokenidx^));
close(f); close(f);
{$I+}
if (ioresult<>0) then
begin
writeln('Fatal: File tokens.dat corrupt.');
halt(3);
end;
{$else not TP} {$else not TP}
tokeninfo:=@arraytokeninfo; tokeninfo:=@arraytokeninfo;
new(tokenidx); new(tokenidx);
@ -478,7 +486,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.14 1999-09-08 16:02:04 peter Revision 1.15 1999-09-16 13:41:37 peter
* better error checking
Revision 1.14 1999/09/08 16:02:04 peter
* tokendat compiles for tp * tokendat compiles for tp
* tokens.dat supplied by default * tokens.dat supplied by default