From 15efde21a039f2dfa11c715c9c40b6d12813baf3 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@redhat.com>
Date: Sat, 3 Oct 2009 13:22:27 +0200
Subject: Consolidate basic glibc structs

Fixes crashes on PPC32
---
 vfs/uVFSprototypes.pas | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'vfs/uVFSprototypes.pas')

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;
-- 
cgit v1.2.3