Commit 4cfa0985 authored by Claes Sjofors's avatar Claes Sjofors

Longword size alignment of ClassDef and Attribute objects

parent 484b1921
...@@ -541,8 +541,9 @@ struct pwr_s_ClassDef { ...@@ -541,8 +541,9 @@ struct pwr_s_ClassDef {
editor. */ editor. */
pwr_mClassDef Flags pwr_dAlignW; pwr_mClassDef Flags pwr_dAlignW;
pwr_tUInt32 NumOfObjBodies pwr_dAlignW; pwr_tUInt32 NumOfObjBodies pwr_dAlignW;
pwr_ePopEditor PopEditor pwr_dAlignW; /* What kind of object picture pwr_ePopEditor PopEditor pwr_dAlignW; /* What kind of object picture
dispatcher to use. */ dispatcher to use. */
pwr_tInt32 Filler pwr_dAlignW; /* LongWord size alignment */
}; };
...@@ -753,6 +754,7 @@ struct pwr_s_Param { ...@@ -753,6 +754,7 @@ struct pwr_s_Param {
pwr_sParInfo Info pwr_dAlignLW; pwr_sParInfo Info pwr_dAlignLW;
pwr_tTypeId TypeRef pwr_dAlignW; /* Reference to the object defining pwr_tTypeId TypeRef pwr_dAlignW; /* Reference to the object defining
the type. */ the type. */
pwr_tInt32 Filler pwr_dAlignW; /* LongWord size alignment */
}; };
struct pwr_s_Intern { struct pwr_s_Intern {
......
...@@ -191,6 +191,23 @@ SObject pwrs:Class ...@@ -191,6 +191,23 @@ SObject pwrs:Class
Attr TypeRef = pwr_eType_TypeId Attr TypeRef = pwr_eType_TypeId
EndBody EndBody
EndObject EndObject
!/**
! LongWord size alignment.
!*/
Object Filler pwr_eClass_Param 9
Body SysBody
Attr PgmName = "Filler"
Attr Type = pwr_eType_TypeId
Attr Offset = 60
Attr Size = 4
Attr Flags = PWR_MASK_ALWAYSWBL
Attr Flags |= PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_RTHIDE
Attr Elements = 1
Attr ParamIndex = 9
Attr TypeRef = pwr_eType_Int32
EndBody
EndObject
EndObject EndObject
Object Template $Attribute Object Template $Attribute
Body SysBody Body SysBody
......
...@@ -39,8 +39,8 @@ SObject pwrs:Class ...@@ -39,8 +39,8 @@ SObject pwrs:Class
Object SysBody pwr_eClass_ObjBodyDef 1 Object SysBody pwr_eClass_ObjBodyDef 1
Body SysBody Body SysBody
Attr StructName = "ClassDef" Attr StructName = "ClassDef"
Attr NumOfParams = 4 Attr NumOfParams = 6
Attr Size = 16 Attr Size = 24
EndBody EndBody
!/** !/**
! Editor to call on an "Open" command. ! Editor to call on an "Open" command.
...@@ -125,7 +125,23 @@ SObject pwrs:Class ...@@ -125,7 +125,23 @@ SObject pwrs:Class
Attr Size = 4 Attr Size = 4
Attr Flags = 0 Attr Flags = 0
Attr Elements = 1 Attr Elements = 1
Attr ParamIndex = 4 Attr ParamIndex = 5
Attr TypeRef = pwr_eType_Int32
EndBody
EndObject
!/**
! LongWord size alignment
!*/
Object Filler pwr_eClass_Param
Body SysBody
Attr PgmName = "Filler"
Attr Type = pwr_eType_Int32
Attr Offset = 20
Attr Size = 4
Attr Flags = PWR_MASK_INVISIBLE
Attr Flags |= PWR_MASK_RTHIDE
Attr Elements = 1
Attr ParamIndex = 6
Attr TypeRef = pwr_eType_Int32 Attr TypeRef = pwr_eType_Int32
EndBody EndBody
EndObject EndObject
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment