Browse Source

- removed unncessary packed
* adapted structure

git-svn-id: trunk@5075 -

florian 19 years ago
parent
commit
585db9d3c6
1 changed files with 2 additions and 2 deletions
  1. 2 2
      rtl/win/dos.pp

+ 2 - 2
rtl/win/dos.pp

@@ -36,12 +36,12 @@ Type
     dwReserved0: DWORD;
     dwReserved1: DWORD;
     cFileName: array[0..MAX_PATH-1] of Char;
-    cAlternateFileName: array[0..13] of Char;
+    cAlternateFileName: array[0..15] of Char;
     // The structure should be 320 bytes long...
     pad : system.integer;
   end;
 
-  Searchrec = Packed Record
+  Searchrec = Record
     FindHandle  : THandle;
     WinFindData : TWinFindData;
     ExcludeAttr : longint;