paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:49:18 +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;
{$endif}
const
{$ifdef LINUX}
DirSep = '/';
{$else}
DirSep = '\';
{$endif}
procedure create_tokenidx;
{ 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 }
@ -438,8 +445,10 @@ var
{$endif TP}
begin
{$ifdef TP}
fsplit(paramstr(0),n,d,e);
assign(f,d+'\tokens.dat');
fsplit(paramstr(0),d,n,e);
if copy(d,length(d),1)<>DirSep then
d:=d+DirSep;
assign(f,d+'tokens.dat');
{$I-}
reset(f,1);
{We are not sure that the msg file is loaded!}
@ -449,6 +458,8 @@ begin
{ Very nice indeed !!! PM }
writeln('Fatal: File tokens.dat not found.');
halt(3);
{ FV restores screen contents on exit, so this won't be visible
for the user anyway... :( - Gabor }
end;
blockread(f,header,1);
blockread(f,header[1],length(header));
@ -492,7 +503,11 @@ end;
end.
{
$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
}