diff options
| -rw-r--r-- | bytecomp/emitcode.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/bytecomp/emitcode.ml b/bytecomp/emitcode.ml index ec8fba241..36638f666 100644 --- a/bytecomp/emitcode.ml +++ b/bytecomp/emitcode.ml @@ -324,7 +324,7 @@ let to_file outchan unit_name crc_interface code = cu_debug = pos_debug; cu_debugsize = size_debug } in init(); (* Free out_buffer and reloc_info *) - Types.cleanup_abbrev (); (* Remove any cached abbreviation + Btype.cleanup_abbrev (); (* Remove any cached abbreviation expansion before saving *) let pos_compunit = pos_out outchan in output_value outchan compunit; |