<unit name="WeirdRecord">
  <constant name="val1" declaration="val1 = 1;">
  </constant>
  <constant name="val2" declaration="val2 = 2;">
  </constant>
  <constant name="val4" declaration="val4 = 4;">
  </constant>
  <constant name="byRef" declaration="byRef = 8;">
  </constant>
  <structure name="TWeirdRecord" name_with_generic="TWeirdRecord" type="record">
    <variable name="bVal" declaration="bVal: Byte" visibility="public">
    </variable>
    <variable name="iVal" declaration="iVal: Smallint" visibility="public">
    </variable>
    <variable name="lVal" declaration="lVal: Longint" visibility="public">
    </variable>
    <variable name="pbVal" declaration="pbVal: ^Byte" visibility="public">
    </variable>
    <variable name="piVal" declaration="piVal: ^Smallint" visibility="public">
    </variable>
    <variable name="plVal" declaration="plVal: ^Longint" visibility="public">
    </variable>
  </structure>
</unit>
