[Gm2] bug report, w/ source

[Dragiša Durić]

===
DEFINITION MODULE FOR "C" MakeArgs;

FROM
  SYSTEM
IMPORT
  ADDRESS;

EXPORT QUALIFIED Do;

TYPE
  Args = POINTER TO RECORD
    format: POINTER TO ARRAY [0..2047] OF CHAR;
    params: ARRAY [0..127] OF ADDRESS;
  END;

PROCEDURE Do (format: ARRAY OF CHAR; ...): Args;

PROCEDURE Free (args: Args);

END MakeArgs.
===
MODULE TestCase4;

IMPORT
  MakeArgs;

PROCEDURE PrintF(VAR res: ARRAY OF CHAR; args: MakeArgs.Args);
  BEGIN
    MakeArgs.Free(args);
  END PrintF;

END TestCase4.
===
dragisha/pts/9: ~/m2/gm2.lib0% gm2 -I. -fiso -c TestCase4.mod
Internal error: Segmentation fault
Please report this crash to the GNU Modula-2 mailing list
<address@hidden>

-- 
Dragiša Durić <address@hidden>