Class editor, check that relative pointer size is set (refs #41)

src/wbl/pwrs/src/pwrs_c_attribute.wb_load

@@ -117,8 +117,9 @@ SObject pwrs:Class
           Attr Type = pwr_eType_UInt32
           Attr Offset = 40
           Attr Size = 4
-          Attr Flags = PWR_MASK_NOEDIT
-          Attr Flags |= PWR_MASK_NOWBL
+          Attr Flags = 0
+          ! Attr Flags = PWR_MASK_NOEDIT
+          ! Attr Flags |= PWR_MASK_NOWBL
           Attr Elements = 1
           Attr ParamIndex = 4
           Attr TypeRef = pwr_eType_UInt32

wb/lib/wb/src/wb_wblnode.cpp

@@ -994,6 +994,9 @@ void wb_wblnode::buildAttribute( ref_wblnode classdef, ref_wblnode objbodydef,
     o->a.offset = ((pwr_sParam *)o->rbody)->Info.Offset = *boffset;
     if ( o->a.flags & pwr_mAdef_pointer && !(o->a.flags & pwr_mAdef_private)) {
       // Size contains the size if the pointed entity
+      if ( o->a.size == 0)
+	m_vrep->error( "Size of relative pointer should contain target size", getFileName(), line_number);
+      
       if ( o->a.flags & pwr_mAdef_array)
 	*boffset += pwr_cAlignLW * o->a.elements;
       else