* remove packed from some jedi structures to improve 64-bit compatibility.

  closes bug #40100

(cherry picked from commit d0093b019db460138cf430c878c0d239c61cec65)

packages/winunits-jedi/src/jwaaccctrl.pas

@@ -176,7 +176,7 @@ type
 
   POBJECTS_AND_SID = ^OBJECTS_AND_SID;
   {$EXTERNALSYM POBJECTS_AND_SID}
-  _OBJECTS_AND_SID = packed record
+  _OBJECTS_AND_SID = record
     ObjectsPresent: DWORD;
     ObjectTypeGuid: GUID;
     InheritedObjectTypeGuid: GUID;
@@ -190,7 +190,7 @@ type
 
   POBJECTS_AND_NAME_A = ^OBJECTS_AND_NAME_A;
   {$EXTERNALSYM POBJECTS_AND_NAME_A}
-  _OBJECTS_AND_NAME_A = packed record
+  _OBJECTS_AND_NAME_A = record
     ObjectsPresent: DWORD;
     ObjectType: SE_OBJECT_TYPE;
     ObjectTypeName: LPSTR;
@@ -205,7 +205,7 @@ type
 
   POBJECTS_AND_NAME_W = ^OBJECTS_AND_NAME_W;
   {$EXTERNALSYM POBJECTS_AND_NAME_W}
-  _OBJECTS_AND_NAME_W = packed record
+  _OBJECTS_AND_NAME_W = record
     ObjectsPresent: DWORD;
     ObjectType: SE_OBJECT_TYPE;
     ObjectTypeName: LPWSTR;
@@ -248,7 +248,7 @@ type
 
   PTRUSTEE_A = ^TRUSTEE_A;
   {$EXTERNALSYM PTRUSTEE_A}
-  _TRUSTEE_A = packed record
+  _TRUSTEE_A = record
     pMultipleTrustee: PTRUSTEE_A;
     MultipleTrusteeOperation: MULTIPLE_TRUSTEE_OPERATION;
     TrusteeForm: TRUSTEE_FORM;
@@ -267,7 +267,7 @@ type
 
   PTRUSTEE_W = ^TRUSTEE_W;
   {$EXTERNALSYM PTRUSTEE_W}
-  _TRUSTEE_W = packed record
+  _TRUSTEE_W = record
     pMultipleTrustee: PTRUSTEE_W;
     MultipleTrusteeOperation: MULTIPLE_TRUSTEE_OPERATION;
     TrusteeForm: TRUSTEE_FORM;
@@ -414,7 +414,7 @@ const
 type
   PEXPLICIT_ACCESS_A = ^EXPLICIT_ACCESS_A;
   {$EXTERNALSYM PEXPLICIT_ACCESS_A}
-  _EXPLICIT_ACCESS_A = packed record
+  _EXPLICIT_ACCESS_A = record
     grfAccessPermissions: DWORD;
     grfAccessMode: ACCESS_MODE;
     grfInheritance: DWORD;
@@ -432,7 +432,7 @@ type
 
   PEXPLICIT_ACCESS_W = ^EXPLICIT_ACCESS_W;
   {$EXTERNALSYM PEXPLICIT_ACCESS_W}
-  _EXPLICIT_ACCESS_W = packed record
+  _EXPLICIT_ACCESS_W = record
     grfAccessPermissions: DWORD;
     grfAccessMode: ACCESS_MODE;
     grfInheritance: DWORD;
@@ -519,7 +519,7 @@ type
 
   PACTRL_ACCESS_ENTRYA = ^ACTRL_ACCESS_ENTRYA;
   {$EXTERNALSYM PACTRL_ACCESS_ENTRYA}
-  _ACTRL_ACCESS_ENTRYA = packed record
+  _ACTRL_ACCESS_ENTRYA = record
     Trustee: TRUSTEE_A;
     fAccessFlags: ULONG;
     Access: ACCESS_RIGHTS;
@@ -539,7 +539,7 @@ type
 
   PACTRL_ACCESS_ENTRYW = ^ACTRL_ACCESS_ENTRYW;
   {$EXTERNALSYM PACTRL_ACCESS_ENTRYW}
-  _ACTRL_ACCESS_ENTRYW = packed record
+  _ACTRL_ACCESS_ENTRYW = record
     Trustee: TRUSTEE_W;
     fAccessFlags: ULONG;
     Access: ACCESS_RIGHTS;
@@ -571,7 +571,7 @@ type
 
   PACTRL_ACCESS_ENTRY_LISTA = ^ACTRL_ACCESS_ENTRY_LISTA;
   {$EXTERNALSYM PACTRL_ACCESS_ENTRY_LISTA}
-  _ACTRL_ACCESS_ENTRY_LISTA = packed record
+  _ACTRL_ACCESS_ENTRY_LISTA = record
     cEntries: ULONG;
     pAccessList: PACTRL_ACCESS_ENTRYA;
   end;
@@ -583,7 +583,7 @@ type
 
   PACTRL_ACCESS_ENTRY_LISTW = ^ACTRL_ACCESS_ENTRY_LISTW;
   {$EXTERNALSYM PACTRL_ACCESS_ENTRY_LISTW}
-  _ACTRL_ACCESS_ENTRY_LISTW = packed record
+  _ACTRL_ACCESS_ENTRY_LISTW = record
     cEntries: ULONG;
     pAccessList: PACTRL_ACCESS_ENTRYW;
   end;
@@ -611,7 +611,7 @@ type
 
   PACTRL_PROPERTY_ENTRYA = ^ACTRL_PROPERTY_ENTRYA;
   {$EXTERNALSYM PACTRL_PROPERTY_ENTRYA}
-  _ACTRL_PROPERTY_ENTRYA = packed record
+  _ACTRL_PROPERTY_ENTRYA = record
     lpProperty: LPSTR;
     pAccessEntryList: PACTRL_ACCESS_ENTRY_LISTA;
     fListFlags: ULONG;
@@ -624,7 +624,7 @@ type
 
   PACTRL_PROPERTY_ENTRYW = ^ACTRL_PROPERTY_ENTRYW;
   {$EXTERNALSYM PACTRL_PROPERTY_ENTRYW}
-  _ACTRL_PROPERTY_ENTRYW = packed record
+  _ACTRL_PROPERTY_ENTRYW = record
     lpProperty: LPWSTR;
     pAccessEntryList: PACTRL_ACCESS_ENTRY_LISTW;
     fListFlags: ULONG;
@@ -652,7 +652,7 @@ type
   {$ENDIF UNICODE}
 
   PActrlAlistA = ^TActrlAlistA;
-  _ACTRL_ALISTA = packed record
+  _ACTRL_ALISTA = record
     cEntries: ULONG;
     pPropertyAccessList: PACTRL_PROPERTY_ENTRYA;
   end;
@@ -668,7 +668,7 @@ type
   TActrlAlistA = _ACTRL_ALISTA;
 
   PActrlAlistW = ^TActrlAlistW;
-  _ACTRL_ALISTW = packed record
+  _ACTRL_ALISTW = record
     cEntries: ULONG;
     pPropertyAccessList: PACTRL_PROPERTY_ENTRYW;
   end;
@@ -730,7 +730,7 @@ const
 type
   PTRUSTEE_ACCESSA = ^TRUSTEE_ACCESSA;
   {$EXTERNALSYM PTRUSTEE_ACCESSA}
-  _TRUSTEE_ACCESSA = packed record
+  _TRUSTEE_ACCESSA = record
     lpProperty: LPSTR;
     Access: ACCESS_RIGHTS;
     fAccessFlags: ULONG;
@@ -744,7 +744,7 @@ type
 
   PTRUSTEE_ACCESSW = ^TRUSTEE_ACCESSW;
   {$EXTERNALSYM PTRUSTEE_ACCESSW}
-  _TRUSTEE_ACCESSW = packed record
+  _TRUSTEE_ACCESSW = record
     lpProperty: LPWSTR;
     Access: ACCESS_RIGHTS;
     fAccessFlags: ULONG;
@@ -1004,7 +1004,7 @@ const
 type
   PACTRL_OVERLAPPED = ^ACTRL_OVERLAPPED;
   {$EXTERNALSYM PACTRL_OVERLAPPED}
-  _ACTRL_OVERLAPPED = packed record
+  _ACTRL_OVERLAPPED = record
     //union {
     Provider: PVOID;
     //    ULONG Reserved1;
@@ -1020,7 +1020,7 @@ type
 
   PACTRL_ACCESS_INFOA = ^ACTRL_ACCESS_INFOA;
   {$EXTERNALSYM PACTRL_ACCESS_INFOA}
-  _ACTRL_ACCESS_INFOA = packed record
+  _ACTRL_ACCESS_INFOA = record
     fAccessPermission: ULONG;
     lpAccessPermissionName: LPSTR;
   end;
@@ -1032,7 +1032,7 @@ type
 
   PACTRL_ACCESS_INFOW = ^ACTRL_ACCESS_INFOW;
   {$EXTERNALSYM PACTRL_ACCESS_INFOW}
-  _ACTRL_ACCESS_INFOW = packed record
+  _ACTRL_ACCESS_INFOW = record
     fAccessPermission: ULONG;
     lpAccessPermissionName: LPWSTR;
   end;
@@ -1060,7 +1060,7 @@ type
 
   PACTRL_CONTROL_INFOA = ^ACTRL_CONTROL_INFOA;
   {$EXTERNALSYM PACTRL_CONTROL_INFOA}
-  _ACTRL_CONTROL_INFOA = packed record
+  _ACTRL_CONTROL_INFOA = record
     lpControlId: LPSTR;
     lpControlName: LPSTR;
   end;
@@ -1072,7 +1072,7 @@ type
 
   PACTRL_CONTROL_INFOW = ^ACTRL_CONTROL_INFOW;
   {$EXTERNALSYM PACTRL_CONTROL_INFOW}
-  _ACTRL_CONTROL_INFOW = packed record
+  _ACTRL_CONTROL_INFOW = record
     lpControlId: LPWSTR;
     lpControlName: LPWSTR;
   end;

packages/winunits-jedi/src/jwaactivex.pas

@@ -464,7 +464,7 @@ type
 
   PPropVariant = ^TPropVariant;
 
-  CAUB = packed record
+  CAUB = record
     cElems: ULONG;
     pElems: PByte;
   end;
@@ -472,7 +472,7 @@ type
   PCAUB = ^TCAUB;
   TCAUB = CAUB;
 
-  CAI = packed record
+  CAI = record
     cElems: ULONG;
     pElems: PShortInt;
   end;
@@ -480,7 +480,7 @@ type
   PCAI = ^TCAI;
   TCAI = CAI;
 
-  CAUI = packed record
+  CAUI = record
     cElems: ULONG;
     pElems: PWord;
   end;
@@ -488,7 +488,7 @@ type
   PCAUI = ^TCAUI;
   TCAUI = CAUI;
 
-  CAL = packed record
+  CAL = record
     cElems: ULONG;
     pElems: PLongint;
   end;
@@ -496,7 +496,7 @@ type
   PCAL = ^TCAL;
   TCAL = CAL;
 
-  CAUL = packed record
+  CAUL = record
     cElems: ULONG;
     pElems: PULONG;
   end;
@@ -504,7 +504,7 @@ type
   PCAUL = ^TCAUL;
   TCAUL = CAUL;
 
-  CAFLT = packed record
+  CAFLT = record
     cElems: ULONG;
     pElems: PSingle;
   end;
@@ -512,7 +512,7 @@ type
   PCAFLT = ^TCAFLT;
   TCAFLT = CAFLT;
 
-  CADBL = packed record
+  CADBL = record
     cElems: ULONG;
     pElems: PDouble;
   end;
@@ -520,7 +520,7 @@ type
   PCADBL = ^TCADBL;
   TCADBL = CADBL;
 
-  CACY = packed record
+  CACY = record
     cElems: ULONG;
     pElems: PCurrency;
   end;
@@ -528,7 +528,7 @@ type
   PCACY = ^TCACY;
   TCACY = CACY;
 
-  CADATE = packed record
+  CADATE = record
     cElems: ULONG;
     pElems: POleDate;
   end;
@@ -536,7 +536,7 @@ type
   PCADATE = ^TCADATE;
   TCADATE = CADATE;
 
-  CABSTR = packed record
+  CABSTR = record
     cElems: ULONG;
     pElems: PBSTR;
   end;
@@ -544,7 +544,7 @@ type
   PCABSTR = ^TCABSTR;
   TCABSTR = CABSTR;
 
-  CABOOL = packed record
+  CABOOL = record
     cElems: ULONG;
     pElems: POleBool;
   end;
@@ -552,7 +552,7 @@ type
   PCABOOL = ^TCABOOL;
   TCABOOL = CABOOL;
 
-  CASCODE = packed record
+  CASCODE = record
     cElems: ULONG;
     pElems: PSCODE;
   end;
@@ -560,7 +560,7 @@ type
   PCASCODE = ^TCASCODE;
   TCASCODE = CASCODE;
 
-  CAPROPVARIANT = packed record
+  CAPROPVARIANT = record
     cElems: ULONG;
     pElems: PPropVariant;
   end;
@@ -568,7 +568,7 @@ type
   PCAPROPVARIANT = ^TCAPROPVARIANT;
   TCAPROPVARIANT = CAPROPVARIANT;
 
-  CAH = packed record
+  CAH = record
     cElems: ULONG;
     pElems: PLargeInteger;
   end;
@@ -576,7 +576,7 @@ type
   PCAH = ^TCAH;
   TCAH = CAH;
 
-  CAUH = packed record
+  CAUH = record
     cElems: ULONG;
     pElems: PULargeInteger;
   end;
@@ -584,7 +584,7 @@ type
   PCAUH = ^TCAUH;
   TCAUH = CAUH;
 
-  CALPSTR = packed record
+  CALPSTR = record
     cElems: ULONG;
     pElems: PLPSTR;
   end;
@@ -592,7 +592,7 @@ type
   PCALPSTR = ^TCALPSTR;
   TCALPSTR = CALPSTR;
 
-  CALPWSTR = packed record
+  CALPWSTR = record
     cElems: ULONG;
     pElems: PLPWSTR;
   end;
@@ -600,7 +600,7 @@ type
   PCALPWSTR = ^TCALPWSTR;
   TCALPWSTR = CALPWSTR;
 
-  CAFILETIME = packed record
+  CAFILETIME = record
     cElems: ULONG;
     pElems: PFileTime;
   end;
@@ -608,7 +608,7 @@ type
   PCAFILETIME = ^TCAFILETIME;
   TCAFILETIME = CAFILETIME;
 
-  CACLIPDATA = packed record
+  CACLIPDATA = record
     cElems: ULONG;
     pElems: PClipData;
   end;
@@ -616,7 +616,7 @@ type
   PCACLIPDATA = ^TCACLIPDATA;
   TCACLIPDATA = CACLIPDATA;
 
-  CACLSID = packed record
+  CACLSID = record
     cElems: ULONG;
     pElems: PCLSID;
   end;
@@ -624,7 +624,7 @@ type
   PCACLSID = ^TCACLSID;
   TCACLSID = CACLSID;
 
-  PROPVARIANT = packed record
+  PROPVARIANT = record
     vt: TVarType;
     wReserved1: Word;
     wReserved2: Word;
@@ -677,7 +677,7 @@ type
   {$EXTERNALSYM PROPVARIANT}
   TPropVariant = PROPVARIANT;
 
-  PROPSPEC = packed record
+  PROPSPEC = record
     ulKind: ULONG;
     case Integer of
       0: (propid: TPropID);
@@ -696,7 +696,7 @@ type
   PStatPropStg = ^TStatPropStg;
   TStatPropStg = STATPROPSTG;
 
-  STATPROPSETSTG = packed record
+  STATPROPSETSTG = record
     fmtid: TFmtID;
     clsid: TClsID;
     grfFlags: DWORD;

packages/winunits-jedi/src/jwaadstlb.pas

@@ -955,14 +955,14 @@ type
 
   ADSTYPEENUM = __MIDL___MIDL_itf_ads_0000_0001;
 
-  __MIDL___MIDL_itf_ads_0000_0002 = packed record
+  __MIDL___MIDL_itf_ads_0000_0002 = record
     dwLength: LongWord;
     lpValue: ^Byte;
   end;
 
   ADS_OCTET_STRING = __MIDL___MIDL_itf_ads_0000_0002;
 
-  __MIDL___MIDL_itf_ads_0000_0003 = packed record
+  __MIDL___MIDL_itf_ads_0000_0003 = record
     dwLength: LongWord;
     lpValue: ^Byte;
   end;
@@ -972,7 +972,7 @@ type
 
   {$IFNDEF JWA_INCLUDEMODE}
 
-  _SYSTEMTIME = packed record
+  _SYSTEMTIME = record
     wYear: Word;
     wMonth: Word;
     wDayOfWeek: Word;
@@ -983,20 +983,20 @@ type
     wMilliseconds: Word;
   end;
 
-  _LARGE_INTEGER = packed record
+  _LARGE_INTEGER = record
     QuadPart: Int64;
   end;
 
   {$ENDIF JWA_INCLUDEMODE}
 
-  __MIDL___MIDL_itf_ads_0000_0004 = packed record
+  __MIDL___MIDL_itf_ads_0000_0004 = record
     dwLength: LongWord;
     lpValue: ^Byte;
   end;
 
   ADS_PROV_SPECIFIC = __MIDL___MIDL_itf_ads_0000_0004;
 
-  __MIDL___MIDL_itf_ads_0000_0005 = packed record
+  __MIDL___MIDL_itf_ads_0000_0005 = record
     Type_: LongWord;
     VolumeName: PWideChar;
     Path: PWideChar;
@@ -1004,27 +1004,27 @@ type
 
   ADS_PATH = __MIDL___MIDL_itf_ads_0000_0005;
 
-  __MIDL___MIDL_itf_ads_0000_0006 = packed record
+  __MIDL___MIDL_itf_ads_0000_0006 = record
     PostalAddress: array[0..5] of PWideChar;
   end;
 
   ADS_POSTALADDRESS = __MIDL___MIDL_itf_ads_0000_0006;
 
-  __MIDL___MIDL_itf_ads_0000_0007 = packed record
+  __MIDL___MIDL_itf_ads_0000_0007 = record
     WholeSeconds: LongWord;
     EventID: LongWord;
   end;
 
   ADS_TIMESTAMP = __MIDL___MIDL_itf_ads_0000_0007;
 
-  __MIDL___MIDL_itf_ads_0000_0008 = packed record
+  __MIDL___MIDL_itf_ads_0000_0008 = record
     RemoteID: LongWord;
     ObjectName: PWideChar;
   end;
 
   ADS_BACKLINK = __MIDL___MIDL_itf_ads_0000_0008;
 
-  __MIDL___MIDL_itf_ads_0000_0009 = packed record
+  __MIDL___MIDL_itf_ads_0000_0009 = record
     ObjectName: PWideChar;
     Level: LongWord;
     Interval: LongWord;
@@ -1032,14 +1032,14 @@ type
 
   ADS_TYPEDNAME = __MIDL___MIDL_itf_ads_0000_0009;
 
-  __MIDL___MIDL_itf_ads_0000_0010 = packed record
+  __MIDL___MIDL_itf_ads_0000_0010 = record
     ObjectName: PWideChar;
     Amount: LongWord;
   end;
 
   ADS_HOLD = __MIDL___MIDL_itf_ads_0000_0010;
 
-  __MIDL___MIDL_itf_ads_0000_0011 = packed record
+  __MIDL___MIDL_itf_ads_0000_0011 = record
     AddressType: LongWord;
     AddressLength: LongWord;
     Address: ^Byte;
@@ -1047,7 +1047,7 @@ type
 
   ADS_NETADDRESS = __MIDL___MIDL_itf_ads_0000_0011;
 
-  __MIDL___MIDL_itf_ads_0000_0012 = packed record
+  __MIDL___MIDL_itf_ads_0000_0012 = record
     ServerName: PWideChar;
     ReplicaType: LongWord;
     ReplicaNumber: LongWord;
@@ -1057,7 +1057,7 @@ type
 
   ADS_REPLICAPOINTER = __MIDL___MIDL_itf_ads_0000_0012;
 
-  __MIDL___MIDL_itf_ads_0000_0013 = packed record
+  __MIDL___MIDL_itf_ads_0000_0013 = record
     TelephoneNumber: PWideChar;
     NumberOfBits: LongWord;
     Parameters: ^Byte;
@@ -1065,14 +1065,14 @@ type
 
   ADS_FAXNUMBER = __MIDL___MIDL_itf_ads_0000_0013;
 
-  __MIDL___MIDL_itf_ads_0000_0014 = packed record
+  __MIDL___MIDL_itf_ads_0000_0014 = record
     Address: PWideChar;
     Type_: LongWord;
   end;
 
   ADS_EMAIL = __MIDL___MIDL_itf_ads_0000_0014;
 
-  __MIDL___MIDL_itf_ads_0000_0015 = packed record
+  __MIDL___MIDL_itf_ads_0000_0015 = record
     dwLength: LongWord;
     lpBinaryValue: ^Byte;
     pszDNString: PWideChar;
@@ -1080,19 +1080,19 @@ type
 
   ADS_DN_WITH_BINARY = __MIDL___MIDL_itf_ads_0000_0015;
 
-  __MIDL___MIDL_itf_ads_0000_0016 = packed record
+  __MIDL___MIDL_itf_ads_0000_0016 = record
     pszStringValue: PWideChar;
     pszDNString: PWideChar;
   end;
 
   ADS_DN_WITH_STRING = __MIDL___MIDL_itf_ads_0000_0016;
 
-  _ADS_CASEIGNORE_LIST = packed record
+  _ADS_CASEIGNORE_LIST = record
     Next: PUserType1;
     String_: PWideChar;
   end;
 
-  _ADS_OCTET_LIST = packed record
+  _ADS_OCTET_LIST = record
     Next: PUserType2;
     Length: LongWord;
     Data: ^Byte;
@@ -1131,7 +1131,7 @@ type
 
   ADS_AUTHENTICATION_ENUM = __MIDL___MIDL_itf_ads_0000_0018;
 
-  _ads_object_info = packed record
+  _ads_object_info = record
     pszRDN: PWideChar;
     pszObjectDN: PWideChar;
     pszParentDN: PWideChar;
@@ -1147,12 +1147,12 @@ type
   ADS_CHASE_REFERRALS_ENUM = __MIDL___MIDL_itf_ads_0000_0024;
   ADS_SEARCHPREF_ENUM = __MIDL___MIDL_itf_ads_0000_0025;
 
-  _adsvalue = packed record
+  _adsvalue = record
     dwType: ADSTYPEENUM;
     __MIDL_0010: __MIDL___MIDL_itf_ads_0000_0017;
   end;
 
-  ads_search_column = packed record
+  ads_search_column = record
     pszAttrName: PWideChar;
     dwADsType: ADSTYPEENUM;
     pADsValues: ^_adsvalue;
@@ -1160,7 +1160,7 @@ type
     hReserved: Pointer;
   end;
 
-  _ads_attr_def = packed record
+  _ads_attr_def = record
     pszAttrName: PWideChar;
     dwADsType: ADSTYPEENUM;
     dwMinRange: LongWord;
@@ -1168,7 +1168,7 @@ type
     fMultiValued: Integer;
   end;
 
-  _ads_sortkey = packed record
+  _ads_sortkey = record
     pszAttrType: PWideChar;
     pszReserved: PWideChar;
     fReverseorder: Shortint;
@@ -1183,12 +1183,12 @@ type
       2: (hreftype: LongWord);
   end;
 
-  tagTYPEDESC = packed record
+  tagTYPEDESC = record
     __MIDL_0008: __MIDL_IOleAutomationTypes_0005;
     vt: Word;
   end;
 
-  tagSAFEARRAYBOUND = packed record
+  tagSAFEARRAYBOUND = record
     cElements: LongWord;
     lLbound: Integer;
   end;
@@ -1197,7 +1197,7 @@ type
   ULONG_PTR = PtrUint;
   {$ENDIF JWA_INCLUDEMODE}
 
-  tagIDLDESC = packed record
+  tagIDLDESC = record
     dwReserved: ULONG_PTR;
     wIDLFlags: Word;
   end;
@@ -1206,22 +1206,22 @@ type
   DWORD = LongWord;
   {$ENDIF JWA_INCLUDEMODE}
 
-  tagPARAMDESCEX = packed record
+  tagPARAMDESCEX = record
     cBytes: LongWord;
     varDefaultValue: OleVariant;
   end;
 
-  tagPARAMDESC = packed record
+  tagPARAMDESC = record
     pparamdescex: ^tagPARAMDESCEX;
     wParamFlags: Word;
   end;
 
-  tagELEMDESC = packed record
+  tagELEMDESC = record
     tdesc: tagTYPEDESC;
     paramdesc: tagPARAMDESC;
   end;
 
-  tagFUNCDESC = packed record
+  tagFUNCDESC = record
     memid: Integer;
     lprgscode: ^SCODE;
     lprgelemdescParam: ^tagELEMDESC;
@@ -1242,7 +1242,7 @@ type
       1: (lpvarValue: ^OleVariant);
   end;
 
-  tagVARDESC = packed record
+  tagVARDESC = record
     memid: Integer;
     lpstrSchema: PWideChar;
     __MIDL_0009: __MIDL_IOleAutomationTypes_0006;
@@ -1251,7 +1251,7 @@ type
     varkind: tagVARKIND;
   end;
 
-  tagTLIBATTR = packed record
+  tagTLIBATTR = record
     GUID: TGUID;
     lcid: LongWord;
     syskind: tagSYSKIND;
@@ -1277,7 +1277,7 @@ type
   ADS_DISPLAY_ENUM = __MIDL___MIDL_itf_ads_0164_0003;
   ADS_ESCAPE_MODE_ENUM = __MIDL___MIDL_itf_ads_0164_0004;
 
-  _ads_attr_info = packed record
+  _ads_attr_info = record
     pszAttrName: PWideChar;
     dwControlCode: LongWord;
     dwADsType: ADSTYPEENUM;
@@ -1285,13 +1285,13 @@ type
     dwNumValues: LongWord;
   end;
 
-  ads_searchpref_info = packed record
+  ads_searchpref_info = record
     dwSearchPref: ADS_SEARCHPREF_ENUM;
     vValue: _adsvalue;
     dwStatus: ADS_STATUSENUM;
   end;
 
-  _ads_class_def = packed record
+  _ads_class_def = record
     pszClassName: PWideChar;
     dwMandatoryAttrs: LongWord;
     ppszMandatoryAttrs: ^PWideChar;
@@ -1304,7 +1304,7 @@ type
     fIsContainer: Integer;
   end;
 
-  tagTYPEATTR = packed record
+  tagTYPEATTR = record
     GUID: TGUID;
     lcid: LongWord;
     dwReserved: LongWord;
@@ -1325,7 +1325,7 @@ type
     idldescType: tagIDLDESC;
   end;
 
-  tagARRAYDESC = packed record
+  tagARRAYDESC = record
     tdescElem: tagTYPEDESC;
     cDims: Word;
     rgbounds: ^tagSAFEARRAYBOUND;

packages/winunits-jedi/src/jwacpl.pas

@@ -121,7 +121,7 @@ type
 
   LPCPLINFO = ^CPLINFO;
   {$EXTERNALSYM LPCPLINFO}
-  tagCPLINFO = packed record
+  tagCPLINFO = record
     idIcon: Integer; // icon resource id, provided by CPlApplet()
     idName: Integer; // name string res. id, provided by CPlApplet()
     idInfo: Integer; // info string res. id, provided by CPlApplet()
@@ -136,7 +136,7 @@ type
 
   LPNEWCPLINFOA = ^NEWCPLINFOA;
   {$EXTERNALSYM LPNEWCPLINFOA}
-  tagNEWCPLINFOA = packed record
+  tagNEWCPLINFOA = record
     dwSize: DWORD;                       // similar to the commdlg
     dwFlags: DWORD;
     dwHelpContext: DWORD;                // help context to use
@@ -154,7 +154,7 @@ type
 
   LPNEWCPLINFOW = ^NEWCPLINFOW;
   {$EXTERNALSYM LPNEWCPLINFOW}
-  tagNEWCPLINFOW = packed record
+  tagNEWCPLINFOW = record
     dwSize: DWORD;                       // similar to the commdlg
     dwFlags: DWORD;
     dwHelpContext: DWORD;                // help context to use

packages/winunits-jedi/src/jwahherror.pas

@@ -65,7 +65,7 @@ type
   // Used by command HH_GET_LAST_ERROR
   // You must call SysFreeString(xx.description) to free BSTR
 
-  tagHH_LAST_ERROR = packed record
+  tagHH_LAST_ERROR = record
     cbStruct: Integer;      // sizeof this structure
     hr: HRESULT;            // Specifies the last error code.
     description: PWideChar; // (BSTR) Specifies a Unicode string containing a description of the error.

packages/winunits-jedi/src/jwahtmlhelp.pas

@@ -384,7 +384,7 @@ const
 
 type
   PHHLastError = ^THHLastError;
-  tagHH_LAST_ERROR = packed record
+  tagHH_LAST_ERROR = record
     cbStruct: INT;          // size of this structure
     hr: HRESULT;            // the last error code.
     description: LPWSTR;    // a description of the error (unicode string - BSTR).
@@ -392,7 +392,7 @@ type
   THHLastError = tagHH_LAST_ERROR;
 
   PHHNNotify = ^THHNNotify;
-  tagHHN_NOTIFY = packed record
+  tagHHN_NOTIFY = record
     hdr: NMHDR;
     pszUrl: PCSTR;                         // multibyte null-terminated string
   end;
@@ -402,7 +402,7 @@ type
   THHNNotify = tagHHN_NOTIFY;
 
   PHHPopup = ^THHPopup;
-  tagHH_POPUP = packed record
+  tagHH_POPUP = record
     cbStruct: Integer;                     // sizeof this structure
     hinst_: HINST;                     // instance handle for string resource
     idString: UINT;                        // string resource id, or text id if pszFile is specified in HtmlHelp call
@@ -419,7 +419,7 @@ type
   THHPopup = tagHH_POPUP;
 
   PHHAKLink = ^THHAKLink;
-  tagHH_AKLINK = packed record
+  tagHH_AKLINK = record
     cbStruct: Integer;                     // sizeof this structure
     fReserved: BOOL;                       // must be FALSE (really!)
     pszKeywords: LPCTSTR;                  // semi-colon separated keywords
@@ -467,7 +467,7 @@ const
 
 type
   PHHEnumIT = ^THHEnumIT;
-  tagHH_ENUM_IT = packed record
+  tagHH_ENUM_IT = record
     cbStruct: Integer;        // size of this structure
     iType: Integer;           // the type of the information type ie. Inclusive, Exclusive, or Hidden
     pszCatName: LPCSTR;       // Set to the name of the Category to enumerate the info types in a category; else NULL
@@ -482,7 +482,7 @@ type
   THHEnumIT = tagHH_ENUM_IT;
 
   PHHEnumCat = ^THHEnumCat;
-  tagHH_ENUM_CAT = packed record
+  tagHH_ENUM_CAT = record
     cbStruct: Integer;         // size of this structure
     pszCatName: LPCSTR;        // volitile pointer to the category name
     pszCatDescription: LPCSTR; // volitile pointer to the category description
@@ -495,7 +495,7 @@ type
   THHEnumCat = tagHH_ENUM_CAT;
 
   PHHSetInfoType = ^THHSetInfoType;
-  tagHH_SET_INFOTYPE = packed record
+  tagHH_SET_INFOTYPE = record
     cbStruct: Integer;        // the size of this structure
     pszCatName: LPCSTR;       // the name of the category, if any, the InfoType is a member of.
     pszInfoTypeName: LPCSTR;  // the name of the info type to add to the filter
@@ -561,7 +561,7 @@ const
 
 type
   PHHFtsQuery = ^THHFtsQuery;
-  tagHH_FTS_QUERY = packed record
+  tagHH_FTS_QUERY = record
     cbStruct: Integer;         // Sizeof structure in bytes.
     fUniCodeStrings: BOOL;     // TRUE if all strings are unicode.
     pszSearchQuery: LPCTSTR;   // String containing the search query.
@@ -577,7 +577,7 @@ type
   THHFtsQuery = tagHH_FTS_QUERY;
 
   PHHWinType = ^THHWinType;
-  tagHH_WINTYPE = packed record
+  tagHH_WINTYPE = record
     cbStruct: Integer;      // IN: size of this structure including all Information Types
     fUniCodeStrings: BOOL;  // IN/OUT: TRUE if all strings are in UNICODE
     pszType: LPCTSTR;       // IN/OUT: Name of a type of window
@@ -683,7 +683,7 @@ const
 
 type
   PHHNTrack = ^THHNTrack;
-  tagHHNTRACK = packed record
+  tagHHNTRACK = record
     hdr: NMHDR;
     pszCurUrl: PCSTR;        // Multi-byte, null-terminated string
     idAction: Integer;       // HHACT_ value

packages/winunits-jedi/src/jwaregstr.pas

@@ -2210,7 +2210,7 @@ const
 //
 
 type
-  _DSKTLSYSTEMTIME = packed record
+  _DSKTLSYSTEMTIME = record
     wYear: WORD;
     wMonth: WORD;
     wDayOfWeek: WORD;