paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 05:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* bugfixes in tokens using TP conditional

Browse Source
This commit is contained in:
carl 2000-02-12 23:53:18 +00:00
parent 958d6dacef
commit 938b005d15
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/tokens.pas
View File

@ -458,15 +458,15 @@ begin
if d='' then if d='' then
assign(f,'tokens.dat') assign(f,'tokens.dat')
else else
assign(f,d+'\tokens.dat'); assign(f,d+'tokens.dat');
{$I-} {$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
begin begin
close(f);
{ Very nice indeed !!! PM } { Very nice indeed !!! PM }
writeln('Fatal: File tokens.dat not found.'); writeln('Fatal: File tokens.dat not found.');
close(f);
halt(3); halt(3);
end; end;
blockread(f,header,1); blockread(f,header,1);
@ -475,8 +475,8 @@ begin
if (ioresult<>0) or if (ioresult<>0) or
(header<>tokheader) or (a<>sizeof(ttokenarray)) then (header<>tokheader) or (a<>sizeof(ttokenarray)) then
begin begin
close(f);
writeln('Fatal: File tokens.dat corrupt.'); writeln('Fatal: File tokens.dat corrupt.');
close(f);
halt(3); halt(3);
end; end;
new(tokeninfo); new(tokeninfo);
@ -511,7 +511,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.20 2000-02-09 13:23:08 peter Revision 1.21 2000-02-12 23:53:18 carl
* bugfixes in tokens using TP conditional
Revision 1.20 2000/02/09 13:23:08 peter
* log truncated * log truncated
Revision 1.19 2000/01/07 01:14:48 peter Revision 1.19 2000/01/07 01:14:48 peter