[m-rev.] diff: clean _init.erl and _init.beam files

[Peter Wang]

Estimated hours taken: 0.1
Branches: main

compiler/make.program_target.m:
	Make `mmc --make foo.clean' remove foo_init.erl and foo_init.beam
	files.

Index: compiler/make.program_target.m
===================================================================
RCS file: /home/mercury/mercury1/repository/mercury/compiler/make.program_target.m,v
retrieving revision 1.74
diff -u -r1.74 make.program_target.m
--- compiler/make.program_target.m	8 Jun 2007 00:47:10 -0000	1.74
+++ compiler/make.program_target.m	10 Jul 2007 01:30:53 -0000
@@ -1579,9 +1579,12 @@
         !IO),
     globals.io_lookup_string_option(link_with_pic_object_file_extension,
         LinkWithPicObjExt, !IO),
+    globals.io_lookup_string_option(erlang_object_file_extension, BeamExt,
+        !IO),
     list.foldl2(make_remove_file(Verbose, ModuleName),
         ["_init.c", "_init" ++ ObjExt,
-            "_init" ++ PicObjExt, "_init" ++ LinkWithPicObjExt],
+            "_init" ++ PicObjExt, "_init" ++ LinkWithPicObjExt,
+            "_init.erl", "_init" ++ BeamExt],
         !Info, !IO).
 
 :- pred make_module_clean(module_name::in, make_info::in, make_info::out,
--------------------------------------------------------------------------
mercury-reviews mailing list
Post messages to:       mercury-reviews at csse.unimelb.edu.au
Administrative Queries: owner-mercury-reviews at csse.unimelb.edu.au
Subscriptions:          mercury-reviews-request at csse.unimelb.edu.au
--------------------------------------------------------------------------