diff options
Diffstat (limited to 'UEngines.pas')
| -rw-r--r-- | UEngines.pas | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/UEngines.pas b/UEngines.pas index 13acf84..7bfc355 100644 --- a/UEngines.pas +++ b/UEngines.pas @@ -288,7 +288,7 @@ var Item: PDataItem; LnkBuf: array[0..65535] of char; i: integer; begin - StatBuf := malloc(sizeof(Tstat64)); + StatBuf := libc_malloc(sizeof(Tstat64)); memset(StatBuf, 0, sizeof(Tstat64)); if lstat64(PChar(APath), StatBuf) <> 0 then begin g_set_error(Error, TUXCMD_ERROR, gint(TUXCMD_ERROR_STAT), '%m', []); @@ -298,7 +298,7 @@ begin Exit; end; - Item := malloc(sizeof(TDataItem)); + Item := libc_malloc(sizeof(TDataItem)); memset(Item, 0, sizeof(TDataItem)); Item^.UpDir := False; Item^.LnkPointTo := nil; @@ -333,7 +333,7 @@ begin if i >= 0 then Item^.LnkPointTo := g_strdup(@LnkBuf[0]); if FollowSymlinks then begin - StatBuf := malloc(sizeof(Tstat64)); + StatBuf := libc_malloc(sizeof(Tstat64)); memset(StatBuf, 0, sizeof(Tstat64)); if stat64(PChar(APath), StatBuf) = 0 then begin Item^.IsDir := __S_ISTYPE(StatBuf^.st_mode, __S_IFDIR); @@ -350,7 +350,7 @@ end; function TLocalTreeEngine.CreateFakeFileInfo(const APath: string; AddFullPath: boolean): PDataItem; var Item: PDataItem; begin - Item := malloc(sizeof(TDataItem)); + Item := libc_malloc(sizeof(TDataItem)); memset(Item, 0, sizeof(TDataItem)); Item^.UpDir := False; Item^.LnkPointTo := nil; @@ -437,7 +437,7 @@ function TLocalTreeEngine.GetDirSize(const APath: string): Int64; if DirEnt <> nil then begin Buf := PChar(@DirEnt^.d_name[0]); if (strlen(Buf) > 0) and (Buf <> '.') and (Buf <> '..') then begin - StatBuf := malloc(sizeof(Tstat64)); + StatBuf := libc_malloc(sizeof(Tstat64)); memset(StatBuf, 0, sizeof(Tstat64)); if lstat64(Buf, StatBuf) = 0 then begin if __S_ISTYPE(StatBuf^.st_mode, __S_IFDIR) then begin @@ -529,7 +529,7 @@ var timebuf: Putimbuf; begin Result := False; try - timebuf := malloc(sizeof(Tutimbuf)); + timebuf := libc_malloc(sizeof(Tutimbuf)); memset(timebuf, 0, sizeof(Tutimbuf)); timebuf^.actime := atime; timebuf^.modtime := mtime; @@ -581,7 +581,7 @@ begin Exit; end; - Buffer := malloc(FBlockSize); + Buffer := libc_malloc(FBlockSize); if Buffer = nil then begin g_set_error(Error, TUXCMD_ERROR, gint(TUXCMD_ERROR_ALLOC_FAILED), '%m', []); libc_close(fdest); @@ -676,7 +676,7 @@ end; function TLocalTreeEngine.FileExists(const FileName: string; FollowSymlinks: boolean): boolean; var st: Pstat64; begin - st := malloc(sizeof(Tstat64)); + st := libc_malloc(sizeof(Tstat64)); memset(st, 0, sizeof(Tstat64)); if not FollowSymlinks then Result := lstat64(PChar(FileName), st) = 0 else Result := stat64(PChar(FileName), st) = 0; @@ -687,7 +687,7 @@ end; function TLocalTreeEngine.DirectoryExists(const FileName: string; FollowSymlinks: boolean): boolean; var st: Pstat64; begin - st := malloc(sizeof(Tstat64)); + st := libc_malloc(sizeof(Tstat64)); memset(st, 0, sizeof(Tstat64)); if not FollowSymlinks then Result := lstat64(PChar(FileName), st) = 0 else Result := stat64(PChar(FileName), st) = 0; @@ -708,8 +708,8 @@ var FStat1, FStat2: Pstat64; begin // DebugMsg(['** TLocalTreeEngine.IsOnSameFS("', Path1, '", "', Path2, '")']); Result := False; // Default fallback result (forces copy + delete) - FStat1 := malloc(sizeof(Tstat64)); - FStat2 := malloc(sizeof(Tstat64)); + FStat1 := libc_malloc(sizeof(Tstat64)); + FStat2 := libc_malloc(sizeof(Tstat64)); memset(FStat1, 0, sizeof(Tstat64)); memset(FStat2, 0, sizeof(Tstat64)); if FollowSymlinks then Res1 := stat64(PChar(Path1), FStat1) @@ -731,8 +731,8 @@ var FStat1, FStat2: Pstat64; Res1, Res2: integer; begin Result := False; - FStat1 := malloc(sizeof(Tstat64)); - FStat2 := malloc(sizeof(Tstat64)); + FStat1 := libc_malloc(sizeof(Tstat64)); + FStat2 := libc_malloc(sizeof(Tstat64)); memset(FStat1, 0, sizeof(Tstat64)); memset(FStat2, 0, sizeof(Tstat64)); if FollowSymlinks then Res1 := stat64(PChar(Path1), FStat1) @@ -760,7 +760,7 @@ begin FSFree := -1; FSName := ''; try - Stat := malloc(sizeof(Tstatfs64)); + Stat := libc_malloc(sizeof(Tstatfs64)); memset(Stat, 0, sizeof(Tstatfs64)); if statfs64(PChar(APath), Stat) <> 0 then Exit; FSSize := Stat^.f_bsize * Stat^.f_blocks; @@ -861,7 +861,7 @@ var Stat: Pstatfs64; begin Result := False; try - Stat := malloc(sizeof(Tstatfs64)); + Stat := libc_malloc(sizeof(Tstatfs64)); memset(Stat, 0, sizeof(Tstatfs64)); if statfs64(PChar(FileName), Stat) = 0 then Result := (Stat^.f_type = $9660); { ISOFS_SUPER_MAGIC } @@ -874,7 +874,7 @@ end; (********************************************************************************************************************************) function TLocalTreeEngine.FileCanRun(const FileName: string): boolean; begin - Result := access(PChar(FileName), R_OK or X_OK) = 0; + Result := g_access(PChar(FileName), R_OK or X_OK) = 0; end; @@ -918,7 +918,7 @@ function DuplicateDataItem(DataItem: PDataItem): PDataItem; var NewDataItem: PDataItem; i: integer; begin - NewDataItem := malloc(sizeof(TDataItem)); + NewDataItem := libc_malloc(sizeof(TDataItem)); memcpy(NewDataItem, DataItem, sizeof(TDataItem)); NewDataItem^.FName := g_strdup(DataItem^.FName); NewDataItem^.FDisplayName := g_strdup(DataItem^.FDisplayName); @@ -931,7 +931,7 @@ end; function DuplicateDataItem(DataItem: PDataItemSL): PDataItemSL; var NewDataItem: PDataItemSL; begin - NewDataItem := malloc(sizeof(TDataItemSL)); + NewDataItem := libc_malloc(sizeof(TDataItemSL)); memcpy(NewDataItem, DataItem, sizeof(TDataItemSL)); NewDataItem^.ADestination := g_strdup(DataItem^.ADestination); NewDataItem^.DataItem := DuplicateDataItem(DataItem^.DataItem); |