paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 14:27:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bootstrapping with 1.9.2

Browse Source
This commit is contained in:
florian 2004-02-18 19:08:27 +00:00
parent 6db46c855b
commit 4b114b5689
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/unix/dos.pp
View File

@ -224,7 +224,11 @@ End;
******************************************************************************}
{$ifdef HASTHREADVAR}
{$ifdef VER1_9_2}
var
{$else VER1_9_2}
threadvar
{$endif VER1_9_2}
{$else HASTHREADVAR}
var
{$endif HASTHREADVAR}
@ -541,7 +545,7 @@ Begin
{Create Info}
f.SearchSpec := Path;
{We always also search for readonly and archive, regardless of Attr:}
f.SearchAttr := Attr or archive or readonly;
f.SearchAttr := Attr or archive or readonly;
f.SearchPos := 0;
f.NamePos := Length(f.SearchSpec);
while (f.NamePos>0) and (f.SearchSpec[f.NamePos]<>'/') do
@ -828,7 +832,10 @@ End.
{
$Log$
Revision 1.28 2004-02-17 17:37:26 daniel
Revision 1.29 2004-02-18 19:08:27 florian
* fixed bootstrapping with 1.9.2
Revision 1.28 2004/02/17 17:37:26 daniel
* Enable threadvars again
Revision 1.27 2004/02/16 22:18:44 hajny
@ -878,4 +885,4 @@ End.
Revision 1.12 2002/09/07 16:01:27 peter
* old logs removed and tabs fixed
}
}