<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body class='hmmessage'>
I have on my machine like:<BR>
 <BR>
m3core/src/win32<BR>
UINT8 = BITS 8 FOR ...<BR>
UINT16 = BITS 16 FOR ...<BR>
UINT32 = BITS 32 FOR ...<BR><BR>(actually via an edited Cstdint).<BR>
 <BR>
This is turning up, as I understand, two sets of problems, one "invented" and easy to fix, one "preexisting" and I don't know how to solve.<BR>
 <BR>
"Problem" 1:<BR>
 structs that require inserting padding to be aligned:<BR>
 <BR>
FOO = RECORD<BR>
  a: UINT16;<BR>
  b: UINT32;<BR>
END;<BR>
 <BR>
 => Could not find a legal alignment...<BR>
 <BR>
Fixed with:<BR>
 <BR>
 FOO = RECORD<BR>
  a: UINT16;<BR>
  >> padding: UINT16;<BR>
  b: UINT32;<BR>
END;<BR>
 <BR>
I think this a good thing, however it definitely might break some code out there -- that is, the problem where I make a breaking change, rebuild all of cm3, fix things up, but that isn't all the Modula-3 code in the world.<BR>
 <BR>
Really, this is a good thing. I TEND to think that quiet insertion of padding for alignment is a bad thing, but that it should also by default be an error to declare unaligned fields. Granted, if you are going to share binary files between architectures, you might be forced to quash the error and allow unaligned fields. Really, I'm not sure what the answer is, but I don't think the current way of doing things, in the broader C/C++ world, is correct. It causes too many headaches to be correct. I suspend judgement about Modula-3 out of ignorance. At least I found a way, accidentally, for it trigger errors for things I don't like, but I haven't found a way to let through things that while dubious, are meant to be asis (see problem #2).<BR>
 <BR>
Problem 1b:<BR>
  One record was missing a field! Add that back and the warning goes away. Nice to catch that.<BR>
 <BR>
Problem 2:<BR>
  types that are not "internally" naturally aligned<BR>
 <BR>
There are at least of these.<BR>
The ??? stuff is not my introducing.<BR>
  (*???  #pragma pack(2) *)<BR>  PBITMAPFILEHEADER = UNTRACED REF BITMAPFILEHEADER;<BR>  LPBITMAPFILEHEADER = UNTRACED REF BITMAPFILEHEADER;<BR>  BITMAPFILEHEADER = BITS (16_E * 8) FOR RECORD<BR>    bfType     : UINT16;<BR>    bfSize     : UINT32; (* this is not aligned *)<BR>    bfReserved1: UINT16;<BR>    bfReserved2: UINT16;<BR>    bfOffBits  : UINT32; (* nor is this *) <BR>  END;<BR>  (*???  #pragma pack() *)<BR><BR>
 <BR>
  (*???  #pragma pack(2) *)<BR>  PMETAHEADER = UNTRACED REF METAHEADER;<BR>  LPMETAHEADER = UNTRACED REF METAHEADER;<BR>  METAHEADER = RECORD<BR>    mtType        : UINT16;<BR>    mtHeaderSize  : UINT16;<BR>    mtVersion     : UINT16;<BR>    mtSize        : UINT32; (* This is not aligned. *) <BR>    mtNoObjects   : UINT16;<BR>    mtMaxRecord   : UINT32; (This is ok. *)<BR>    mtNoParameters: UINT16;<BR>  END;<BR>
  (*???  #pragma pack() *)<BR><BR>
 <BR>
I assume/fear that Modula-3 was not previously laying these types out correctly.<BR>
NOTE that I don't see evidence of them being really used, so this isn't likely related to "bitmap problems".<BR>
 <BR>
How does one declare these?<BR>
 <BR>
I think the best I can do for now is change the unaligned fields to be arrays of bytes and hope nobody uses them.<BR>
 <BR>
These two programs confirm the bug:<BR>
 <BR>
UNSAFE MODULE A EXPORTS Main;<BR>
IMPORT WinGDI;<BR>IMPORT IO;<BR>
 <BR>
VAR<BR>a: WinGDI.BITMAPFILEHEADER;<BR>b: WinGDI.METAHEADER;<BR>
 <BR>
PROCEDURE F1(a,b: ADDRESS) =<BR>BEGIN<BR>  IO.PutInt(b - a);<BR>  IO.Put("\n");<BR>END F1;<BR>
 <BR>
BEGIN<BR>  F1(ADR(a), ADR(a.bfSize));<BR>  F1(ADR(b), ADR(b.mtSize));<BR>
END A.<BR><BR>
This prints 4 and 8.<BR>
 <BR>
vs.<BR>
<BR>#include <windows.h><BR>#include <winioctl.h><BR>
 <BR>
ACCEL a;<BR>IMAGE_DOS_HEADER b;<BR>TOKEN_STATISTICS c;<BR>SE_IMPERSONATION_STATE d;<BR>COMSTAT e;<BR>BITMAPFILEHEADER f;<BR>METAHEADER g;<BR>FORMAT_PARAMETERS h;<BR>FORMAT_EX_PARAMETERS i;<BR>DISK_GEOMETRY j;<BR>
 <BR>
int main()<BR>{<BR> return 0;<BR>}<BR><BR>
look at it in a debugger, should be 2 and 6:<BR>
 <BR>
0:000> ?? f<BR>struct tagBITMAPFILEHEADER<BR>   +0x000 bfType           : 0<BR><STRONG>   +0x002 bfSize           : 0<BR></STRONG>   +0x006 bfReserved1      : 0<BR>   +0x008 bfReserved2      : 0<BR>   +0x00a bfOffBits        : 0<BR>0:000> ?? g<BR>struct tagMETAHEADER<BR>   +0x000 mtType           : 0<BR>   +0x002 mtHeaderSize     : 0<BR>   +0x004 mtVersion        : 0<BR><STRONG>   +0x006 mtSize           : 0<BR></STRONG>   +0x00a mtNoObjects      : 0<BR>   +0x00c mtMaxRecord      : 0<BR>   +0x010 mtNoParameters   : 0<BR>
 <BR>
Btw, regarding struct stat, I did write Modula-3 code to form a string that represents all the sizes/offsets of the fields.<BR>
We could write little tests that does that, and similar C code, and then compares the strings for equality.<BR>
And/or invest a little more in C code that prints out correct Modula .i3 files, driven by a bunch of data with sizeof and offsetof, including sorting by offsetof, and checking for padding by adding offsetof+sizeof.<BR>
 <BR>
It kind of looks like "lazyalign" is the answer, but I know this was brought up as "broken" recently, but that "Darwin (MacOSX)" needs it. I didn't follow the discusion closely. Lazyalign maybe is exactly the thing, as long as it is applicable on a type-by-type or field-by-field basis.<BR>
 <BR>
There are some <* UNALIGNED *> and <* PRAGMA UNALIGNED *> but I see no implementation of these. I think they are being silently ignored.<BR>
 <BR>
??<BR>
 <BR>
- Jay<BR>
 <BR></body>
</html>