[compiler/pz] Export type representation maps from pz

PaulBone · Jul 17, 2021 · a68d518 · a68d518
1 parent 957fad9
commit a68d518
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/src/compile.m b/src/compile.m
@@ -150,7 +150,7 @@
                     CoreResult, !IO),
                 ( CoreResult = ok(!:Core),
                     core_to_pz(GeneralOpts ^ go_verbose, CompileOpts, !.Core,
-                        PZ, !IO),
+                        PZ, _TypeTagMap, _ConstructorTagMap, !IO),
                     maybe_dump_stage(GeneralOpts, module_name(!.Core),
                         "pz0_final", pz_pretty, PZ, !IO),
                     Result = ok(PZ, !.Errors)

diff --git a/src/core_to_pz.m b/src/core_to_pz.m
@@ -3,7 +3,7 @@
 %-----------------------------------------------------------------------%
 :- module core_to_pz.
 %
-% Copyright (C) 2015-2020 Plasma Team
+% Copyright (C) 2015-2021 Plasma Team
 % Distributed under the terms of the MIT License see ../LICENSE.code
 %
 % Plasma core to pz conversion
@@ -15,6 +15,7 @@
 :- import_module io.
 
 :- import_module core.
+:- import_module core_to_pz.data.
 :- import_module options.
 :- import_module pz.
 :- import_module pz.pz_ds.
@@ -24,7 +25,7 @@
 %-----------------------------------------------------------------------%
 
 :- pred core_to_pz(log_config::in, compile_options::in, core::in, pz::out,
-    io::di, io::uo) is det.
+    type_tag_map::out, constructor_data_map::out, io::di, io::uo) is det.
 
 %-----------------------------------------------------------------------%
 
@@ -58,12 +59,12 @@
 :- include_module core_to_pz.locn.
 :- import_module core_to_pz.code.
 :- import_module core_to_pz.closure.
-:- import_module core_to_pz.data.
 :- import_module core_to_pz.locn.
 
 %-----------------------------------------------------------------------%
 
-core_to_pz(Verbose, CompileOpts, !.Core, !:PZ, !IO) :-
+core_to_pz(Verbose, CompileOpts, !.Core, !:PZ, TypeTagMap, TypeCtorTagMap,
+        !IO) :-
     !:PZ = init_pz([module_name(!.Core)], pzft_object),
 
     % Get ImportIds for builtin procedures.