diff options
| author | Tomas Bzatek <tbzatek@redhat.com> | 2009-10-03 13:22:27 +0200 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@redhat.com> | 2009-10-03 13:22:27 +0200 |
| commit | 15efde21a039f2dfa11c715c9c40b6d12813baf3 (patch) | |
| tree | 48ec9dcf18ecded5cfb478e22a6f8b0b695e93c7 /vfs/uVFSprototypes.pas | |
| parent | dffc52bad545084a53b20f892ebf51d1d7c7fa78 (diff) | |
| download | tuxcmd-15efde21a039f2dfa11c715c9c40b6d12813baf3.tar.xz | |
Consolidate basic glibc structs
Fixes crashes on PPC32
Diffstat (limited to 'vfs/uVFSprototypes.pas')
| -rw-r--r-- | vfs/uVFSprototypes.pas | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/vfs/uVFSprototypes.pas b/vfs/uVFSprototypes.pas index a67b303..5f0106c 100644 --- a/vfs/uVFSprototypes.pas +++ b/vfs/uVFSprototypes.pas @@ -27,6 +27,10 @@ unit uVFSprototypes; interface +{$IFDEF FPC} + {$PACKRECORDS C} +{$ENDIF} + const cVFSVersion = 4; // current version of the VFS API @@ -106,7 +110,7 @@ type PVFSItem = ^TVFSItem; - TVFSItem = packed record + TVFSItem = record {$IFNDEF CPU64} // 32-bit platform FName: PChar; // FDisplayName - plugins must ensure correct UTF-8 string @@ -121,7 +125,7 @@ type sLinkTo: PChar; iUID: Integer; iGID: Integer; - ItemType: TVFSItemType; + ItemType: Integer; {$ELSE} // 64-bit platform FName: PChar; FDisplayName: PChar; @@ -141,7 +145,7 @@ type end; // This structure contains basic informations about the plugin (Name is used to identify the module in the application) - TVFSInfo = packed record + TVFSInfo = record Name: PChar; Description: PChar; About: PChar; |