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

  closes bug #40100

packages/winunits-jedi/src/jwaaccctrl.pas

@@ -183,7 +183,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;
@@ -197,7 +197,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;
@@ -212,7 +212,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;
@@ -255,7 +255,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;
@@ -274,7 +274,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;
@@ -421,7 +421,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;
@@ -439,7 +439,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;
@@ -526,7 +526,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;
@@ -546,7 +546,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;
@@ -578,7 +578,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;
@@ -590,7 +590,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;
@@ -618,7 +618,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;
@@ -631,7 +631,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;
@@ -659,7 +659,7 @@ type
   {$ENDIF UNICODE}
 
   PActrlAlistA = ^TActrlAlistA;
-  _ACTRL_ALISTA = packed record
+  _ACTRL_ALISTA = record
     cEntries: ULONG;
     pPropertyAccessList: PACTRL_PROPERTY_ENTRYA;
   end;
@@ -675,7 +675,7 @@ type
   TActrlAlistA = _ACTRL_ALISTA;
 
   PActrlAlistW = ^TActrlAlistW;
-  _ACTRL_ALISTW = packed record
+  _ACTRL_ALISTW = record
     cEntries: ULONG;
     pPropertyAccessList: PACTRL_PROPERTY_ENTRYW;
   end;
@@ -737,7 +737,7 @@ const
 type
   PTRUSTEE_ACCESSA = ^TRUSTEE_ACCESSA;
   {$EXTERNALSYM PTRUSTEE_ACCESSA}
-  _TRUSTEE_ACCESSA = packed record
+  _TRUSTEE_ACCESSA = record
     lpProperty: LPSTR;
     Access: ACCESS_RIGHTS;
     fAccessFlags: ULONG;
@@ -751,7 +751,7 @@ type
 
   PTRUSTEE_ACCESSW = ^TRUSTEE_ACCESSW;
   {$EXTERNALSYM PTRUSTEE_ACCESSW}
-  _TRUSTEE_ACCESSW = packed record
+  _TRUSTEE_ACCESSW = record
     lpProperty: LPWSTR;
     Access: ACCESS_RIGHTS;
     fAccessFlags: ULONG;
@@ -1011,7 +1011,7 @@ const
 type
   PACTRL_OVERLAPPED = ^ACTRL_OVERLAPPED;
   {$EXTERNALSYM PACTRL_OVERLAPPED}
-  _ACTRL_OVERLAPPED = packed record
+  _ACTRL_OVERLAPPED = record
     //union {
     Provider: PVOID;
     //    ULONG Reserved1;
@@ -1027,7 +1027,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;
@@ -1039,7 +1039,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;
@@ -1067,7 +1067,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;
@@ -1079,7 +1079,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

@@ -471,7 +471,7 @@ type
 
   PPropVariant = ^TPropVariant;
 
-  CAUB = packed record
+  CAUB = record
     cElems: ULONG;
     pElems: PByte;
   end;
@@ -479,7 +479,7 @@ type
   PCAUB = ^TCAUB;
   TCAUB = CAUB;
 
-  CAI = packed record
+  CAI = record
     cElems: ULONG;
     pElems: PShortInt;
   end;
@@ -487,7 +487,7 @@ type
   PCAI = ^TCAI;
   TCAI = CAI;
 
-  CAUI = packed record
+  CAUI = record
     cElems: ULONG;
     pElems: PWord;
   end;
@@ -495,7 +495,7 @@ type
   PCAUI = ^TCAUI;
   TCAUI = CAUI;
 
-  CAL = packed record
+  CAL = record
     cElems: ULONG;
     pElems: PLongint;
   end;
@@ -503,7 +503,7 @@ type
   PCAL = ^TCAL;
   TCAL = CAL;
 
-  CAUL = packed record
+  CAUL = record
     cElems: ULONG;
     pElems: PULONG;
   end;
@@ -511,7 +511,7 @@ type
   PCAUL = ^TCAUL;
   TCAUL = CAUL;
 
-  CAFLT = packed record
+  CAFLT = record
     cElems: ULONG;
     pElems: PSingle;
   end;
@@ -519,7 +519,7 @@ type
   PCAFLT = ^TCAFLT;
   TCAFLT = CAFLT;
 
-  CADBL = packed record
+  CADBL = record
     cElems: ULONG;
     pElems: PDouble;
   end;
@@ -527,7 +527,7 @@ type
   PCADBL = ^TCADBL;
   TCADBL = CADBL;
 
-  CACY = packed record
+  CACY = record
     cElems: ULONG;
     pElems: PCurrency;
   end;
@@ -535,7 +535,7 @@ type
   PCACY = ^TCACY;
   TCACY = CACY;
 
-  CADATE = packed record
+  CADATE = record
     cElems: ULONG;
     pElems: POleDate;
   end;
@@ -543,7 +543,7 @@ type
   PCADATE = ^TCADATE;
   TCADATE = CADATE;
 
-  CABSTR = packed record
+  CABSTR = record
     cElems: ULONG;
     pElems: PBSTR;
   end;
@@ -551,7 +551,7 @@ type
   PCABSTR = ^TCABSTR;
   TCABSTR = CABSTR;
 
-  CABOOL = packed record
+  CABOOL = record
     cElems: ULONG;
     pElems: POleBool;
   end;
@@ -559,7 +559,7 @@ type
   PCABOOL = ^TCABOOL;
   TCABOOL = CABOOL;
 
-  CASCODE = packed record
+  CASCODE = record
     cElems: ULONG;
     pElems: PSCODE;
   end;
@@ -567,7 +567,7 @@ type
   PCASCODE = ^TCASCODE;
   TCASCODE = CASCODE;
 
-  CAPROPVARIANT = packed record
+  CAPROPVARIANT = record
     cElems: ULONG;
     pElems: PPropVariant;
   end;
@@ -575,7 +575,7 @@ type
   PCAPROPVARIANT = ^TCAPROPVARIANT;
   TCAPROPVARIANT = CAPROPVARIANT;
 
-  CAH = packed record
+  CAH = record
     cElems: ULONG;
     pElems: PLargeInteger;
   end;
@@ -583,7 +583,7 @@ type
   PCAH = ^TCAH;
   TCAH = CAH;
 
-  CAUH = packed record
+  CAUH = record
     cElems: ULONG;
     pElems: PULargeInteger;
   end;
@@ -591,7 +591,7 @@ type
   PCAUH = ^TCAUH;
   TCAUH = CAUH;
 
-  CALPSTR = packed record
+  CALPSTR = record
     cElems: ULONG;
     pElems: PLPSTR;
   end;
@@ -599,7 +599,7 @@ type
   PCALPSTR = ^TCALPSTR;
   TCALPSTR = CALPSTR;
 
-  CALPWSTR = packed record
+  CALPWSTR = record
     cElems: ULONG;
     pElems: PLPWSTR;
   end;
@@ -607,7 +607,7 @@ type
   PCALPWSTR = ^TCALPWSTR;
   TCALPWSTR = CALPWSTR;
 
-  CAFILETIME = packed record
+  CAFILETIME = record
     cElems: ULONG;
     pElems: PFileTime;
   end;
@@ -615,7 +615,7 @@ type
   PCAFILETIME = ^TCAFILETIME;
   TCAFILETIME = CAFILETIME;
 
-  CACLIPDATA = packed record
+  CACLIPDATA = record
     cElems: ULONG;
     pElems: PClipData;
   end;
@@ -623,7 +623,7 @@ type
   PCACLIPDATA = ^TCACLIPDATA;
   TCACLIPDATA = CACLIPDATA;
 
-  CACLSID = packed record
+  CACLSID = record
     cElems: ULONG;
     pElems: PCLSID;
   end;
@@ -631,7 +631,7 @@ type
   PCACLSID = ^TCACLSID;
   TCACLSID = CACLSID;
 
-  PROPVARIANT = packed record
+  PROPVARIANT = record
     vt: TVarType;
     wReserved1: Word;
     wReserved2: Word;
@@ -684,7 +684,7 @@ type
   {$EXTERNALSYM PROPVARIANT}
   TPropVariant = PROPVARIANT;
 
-  PROPSPEC = packed record
+  PROPSPEC = record
     ulKind: ULONG;
     case Integer of
       0: (propid: TPropID);
@@ -703,7 +703,7 @@ type
   PStatPropStg = ^TStatPropStg;
   TStatPropStg = STATPROPSTG;
 
-  STATPROPSETSTG = packed record
+  STATPROPSETSTG = record
     fmtid: TFmtID;
     clsid: TClsID;
     grfFlags: DWORD;

packages/winunits-jedi/src/jwaadstlb.pas

@@ -963,14 +963,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;
@@ -980,7 +980,7 @@ type
 
   {$IFNDEF JWA_INCLUDEMODE}
 
-  _SYSTEMTIME = packed record
+  _SYSTEMTIME = record
     wYear: Word;
     wMonth: Word;
     wDayOfWeek: Word;
@@ -991,20 +991,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;
@@ -1012,27 +1012,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;
@@ -1040,14 +1040,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;
@@ -1055,7 +1055,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;
@@ -1065,7 +1065,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;
@@ -1073,14 +1073,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;
@@ -1088,19 +1088,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;
@@ -1139,7 +1139,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;
@@ -1155,12 +1155,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;
@@ -1168,7 +1168,7 @@ type
     hReserved: Pointer;
   end;
 
-  _ads_attr_def = packed record
+  _ads_attr_def = record
     pszAttrName: PWideChar;
     dwADsType: ADSTYPEENUM;
     dwMinRange: LongWord;
@@ -1176,7 +1176,7 @@ type
     fMultiValued: Integer;
   end;
 
-  _ads_sortkey = packed record
+  _ads_sortkey = record
     pszAttrType: PWideChar;
     pszReserved: PWideChar;
     fReverseorder: Shortint;
@@ -1191,12 +1191,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;
@@ -1205,7 +1205,7 @@ type
   ULONG_PTR = PtrUint;
   {$ENDIF JWA_INCLUDEMODE}
 
-  tagIDLDESC = packed record
+  tagIDLDESC = record
     dwReserved: ULONG_PTR;
     wIDLFlags: Word;
   end;
@@ -1214,22 +1214,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;
@@ -1250,7 +1250,7 @@ type
       1: (lpvarValue: ^OleVariant);
   end;
 
-  tagVARDESC = packed record
+  tagVARDESC = record
     memid: Integer;
     lpstrSchema: PWideChar;
     __MIDL_0009: __MIDL_IOleAutomationTypes_0006;
@@ -1259,7 +1259,7 @@ type
     varkind: tagVARKIND;
   end;
 
-  tagTLIBATTR = packed record
+  tagTLIBATTR = record
     GUID: TGUID;
     lcid: LongWord;
     syskind: tagSYSKIND;
@@ -1285,7 +1285,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;
@@ -1293,13 +1293,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;
@@ -1312,7 +1312,7 @@ type
     fIsContainer: Integer;
   end;
 
-  tagTYPEATTR = packed record
+  tagTYPEATTR = record
     GUID: TGUID;
     lcid: LongWord;
     dwReserved: LongWord;
@@ -1333,7 +1333,7 @@ type
     idldescType: tagIDLDESC;
   end;
 
-  tagARRAYDESC = packed record
+  tagARRAYDESC = record
     tdescElem: tagTYPEDESC;
     cDims: Word;
     rgbounds: ^tagSAFEARRAYBOUND;

packages/winunits-jedi/src/jwacpl.pas

@@ -128,7 +128,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()
@@ -143,7 +143,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
@@ -161,7 +161,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

@@ -72,7 +72,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

@@ -394,7 +394,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).
@@ -402,7 +402,7 @@ type
   THHLastError = tagHH_LAST_ERROR;
 
   PHHNNotify = ^THHNNotify;
-  tagHHN_NOTIFY = packed record
+  tagHHN_NOTIFY = record
     hdr: NMHDR;
     pszUrl: PCSTR;                         // multibyte null-terminated string
   end;
@@ -412,7 +412,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
@@ -429,7 +429,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
@@ -477,7 +477,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
@@ -492,7 +492,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
@@ -505,7 +505,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
@@ -571,7 +571,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.
@@ -587,7 +587,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
@@ -693,7 +693,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

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