gen.ads (418B)
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
with Types; use Types;
package Gen is
type Generator is record
AST : Declaration_Vectors.Vector;
Globals : Unbounded_String;
Output : Unbounded_String;
Indent : Natural;
end record;
function Init (AST : Declaration_vectors.vector) return Generator;
procedure Gen_IR (GG : in out Generator);
end Gen;