paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 12:50:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

[*] the fake (!) TOKENS.PAS still contained the typo bug

Browse Source 
FSplit(,n,d,e) (correctly FSplit(,d,n,e))
This commit is contained in:
michael 2000-02-07 08:30:12 +00:00
parent 682acf3bd8
commit 8ab6f95ec3
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ide/fake/compiler/tokens.pas
View File

@ -408,6 +408,13 @@ uses
dos; dos;
{$endif} {$endif}
const
{$ifdef LINUX}
DirSep = '/';
{$else}
DirSep = '\';
{$endif}
procedure create_tokenidx; procedure create_tokenidx;
{ create an index with the first and last token for every possible token { create an index with the first and last token for every possible token
length, so a search only will be done in that small part } length, so a search only will be done in that small part }
@ -438,8 +445,10 @@ var
{$endif TP} {$endif TP}
begin begin
{$ifdef TP} {$ifdef TP}
fsplit(paramstr(0),n,d,e); fsplit(paramstr(0),d,n,e);
assign(f,d+'\tokens.dat'); if copy(d,length(d),1)<>DirSep then
d:=d+DirSep;
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!}
@ -449,6 +458,8 @@ begin
{ Very nice indeed !!! PM } { Very nice indeed !!! PM }
writeln('Fatal: File tokens.dat not found.'); writeln('Fatal: File tokens.dat not found.');
halt(3); halt(3);
{ FV restores screen contents on exit, so this won't be visible
for the user anyway... :( - Gabor }
end; end;
blockread(f,header,1); blockread(f,header,1);
blockread(f,header[1],length(header)); blockread(f,header[1],length(header));
@ -492,7 +503,11 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.3 1999-09-17 09:16:13 peter Revision 1.4 2000-02-07 08:30:12 michael
[*] the fake (!) TOKENS.PAS still contained the typo bug
FSplit(,n,d,e) (correctly FSplit(,d,n,e))
Revision 1.3 1999/09/17 09:16:13 peter
* updated with compiler versions * updated with compiler versions
} }