gir2pascal enumeration as typed const?

Gir2pascal is translating enumerations as typed consts (afaics). Example:

type
  TGtkPackDirection = DWord;
const
  { GtkPackDirection }
  GTK_PACK_DIRECTION_LTR: TGtkPackDirection = 0;
  GTK_PACK_DIRECTION_RTL: TGtkPackDirection = 1;
  GTK_PACK_DIRECTION_TTB: TGtkPackDirection = 2;
  GTK_PACK_DIRECTION_BTT: TGtkPackDirection = 3;   

This breaks existing code, for example in gtk3procs.pas:

  MenuDirection : array[Boolean] of TGtkPackDirection = (
    GTK_PACK_DIRECTION_LTR,
    GTK_PACK_DIRECTION_RTL
    );

I think it should produce code like this:

type
  TGtkPackDirection = (
  { GtkPackDirection }
  GTK_PACK_DIRECTION_LTR = 0,
  GTK_PACK_DIRECTION_RTL = 1,
  GTK_PACK_DIRECTION_TTB = 2,
  GTK_PACK_DIRECTION_BTT = 3
  );   

Relevant code is imo in unit girpascalwritertypes -> procedure TPascalUnit.HandleEnum(..)
Or am I wrong?

Thank you.