paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-09 11:19:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix for 0.99.8 which has no auto pchar-string ;)

Browse Source
This commit is contained in:
peter 1998-10-13 10:20:07 +00:00
parent bede68c06e
commit c29f26183f
1 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/linux/filutil.inc
View File

@ -112,7 +112,11 @@ Var SInfo : Stat;
begin begin
P:=pglob(Info.FindHandle); P:=pglob(Info.FindHandle);
{$ifdef AUTOOBJPAS}
Result:=Fstat(p^.name,SInfo); Result:=Fstat(p^.name,SInfo);
{$else}
Result:=Fstat(StrPas(p^.name),SInfo);
{$endif}
Info.FindHandle:=Longint(P^.Next); Info.FindHandle:=Longint(P^.Next);
P^.Next:=Nil; P^.Next:=Nil;
GlobFree(P); GlobFree(P);
@ -231,7 +235,10 @@ end;
{ {
$Log$ $Log$
Revision 1.1 1998-10-11 12:21:01 michael Revision 1.2 1998-10-13 10:20:07 peter
* fix for 0.99.8 which has no auto pchar-string ;)
Revision 1.1 1998/10/11 12:21:01 michael
Added file calls. Implemented for linux only Added file calls. Implemented for linux only
} }