diff --git a/rtl/unix/dos.pp b/rtl/unix/dos.pp index cecb5e2901..6b4c311732 100644 --- a/rtl/unix/dos.pp +++ b/rtl/unix/dos.pp @@ -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 -} +} \ No newline at end of file