diff options
| -rw-r--r-- | UEngines.pas | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/UEngines.pas b/UEngines.pas index 219a621..5edc0d1 100644 --- a/UEngines.pas +++ b/UEngines.pas @@ -544,6 +544,7 @@ var Handle : PDirectoryStream; procedure AddEntry(FPath: string; AddCurrDirStage, AStage1: boolean); var StatBuf_local : PGlibc_stat64; begin +// DebugMsg(['TLocalTreeEngine.FillDirFiles: addding "', FPath, '"']); FPath := ExcludeTrailingPathDelimiter(FPath); StatBuf_local := Libc.malloc(sizeof(TGlibc_stat64)); Libc.memset(StatBuf_local, 0, sizeof(TGlibc_stat64)); @@ -617,7 +618,7 @@ begin if Assigned(DirEnt) and Assigned(PChar(@DirEnt^.d_name[0])) and (PChar(@DirEnt^.d_name[0]) <> '.') and (PChar(@DirEnt^.d_name[0]) <> '..') then begin StatBuf_global := Libc.malloc(sizeof(TGlibc_stat64)); Libc.memset(StatBuf_global, 0, sizeof(TGlibc_stat64)); - if glibc_stat64(PChar(@DirEnt^.d_name[0]), StatBuf_global) <> 0 then Continue; + if glibc_lstat64(PChar(@DirEnt^.d_name[0]), StatBuf_global) <> 0 then Continue; if __S_ISTYPE(StatBuf_global^.st_mode, __S_IFDIR) then begin FillDirFiles(APath + String(PChar(@DirEnt^.d_name[0])), List, ALevel + 1); __chdir(PChar(APath)); @@ -893,6 +894,7 @@ end; (********************************************************************************************************************************) function TLocalTreeEngine.MakeSymLink(const NewFileName, PointTo: string): integer; begin +// DebugMsg(['TLocalTreeEngine.MakeSymLink(NewFileName = "', NewFileName, '", PointTo = "', PointTo, '"']); Result := Libc.symlink(PChar(PointTo), PChar(NewFileName)); if Result <> 0 then Result := errno; end; @@ -1108,7 +1110,7 @@ begin Libc.memset(st2, 0, sizeof(TGlibc_stat64)); if glibc_lstat64(PChar(Path1), st1) <> 0 then Exit; if glibc_lstat64(PChar(Path2), st2) <> 0 then Exit; - DebugMsg(['*** TLocalTreeEngine.TwoSameFiles: ', st1^.st_ino, ' ', st2^.st_ino]); +// DebugMsg(['*** TLocalTreeEngine.TwoSameFiles: ', st1^.st_ino, ' ', st2^.st_ino]); Result := st1^.st_ino = st2^.st_ino; Libc.free(st1); Libc.free(st2); |