M2compiler-V3/compiler/tests/cstruct_layout.def

DEFINITION MODULE FOR "C" CStructLayout;
(* Records in a FOR "C" interface use the C layout. *)
FROM SYSTEM IMPORT ADDRESS;
EXPORT UNQUALIFIED Mixed, Rect, FRect, RGBA;
TYPE
  Mixed = RECORD
    b : CBool;
    f : SHORTREAL;
    d : REAL;
    i : INTEGER;
    p : ADDRESS;
  END;
  Rect = RECORD
    x, y, w, h : INTEGER;
  END;
  FRect = RECORD
    x, y, w, h : SHORTREAL;
  END;
  RGBA = RECORD
    r, g, b, a : SHORTREAL;
  END;
END CStructLayout.