paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 07:19:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed unncessary packed

Browse Source 
* adapted structure

git-svn-id: trunk@5075 -
This commit is contained in:
florian 2006-10-29 21:46:15 +00:00
parent beb1c6b72d
commit 585db9d3c6
1 changed files with 2 additions and 2 deletions

4
rtl/win/dos.pp
View File

@ -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;