[m-rev.] diff: fix assembly declaration bug

[Peter Ross]

Hi,


===================================================================


Estimated hours taken: 0.1
Branches: main

compiler/mlds_to_il.m:
    Handle the new mlds__import type correctly when generating assembly
    declarations.


Index: mlds_to_il.m
===================================================================
RCS file: /home/mercury1/repository/mercury/compiler/mlds_to_il.m,v
retrieving revision 1.88
diff -u -r1.88 mlds_to_il.m
--- mlds_to_il.m	25 Oct 2001 08:35:38 -0000	1.88
+++ mlds_to_il.m	25 Oct 2001 08:54:30 -0000
@@ -3882,8 +3882,11 @@
 		AsmDecls = []
 	),
 	Gen = (pred(Import::in, Decl::out) is semidet :-
-		AsmName = mlds_module_name_to_assembly_name(
-				Import ^ import_name),
+		( Import = mercury_import(ImportName)
+		; Import = foreign_import(ForeignImportName),
+			ForeignImportName = il_assembly_name(ImportName)
+		),
+		AsmName = mlds_module_name_to_assembly_name(ImportName),
 		( AsmName = assembly(Assembly),
 			Assembly \= "mercury",
 			Decl = [extern_assembly(Assembly, AsmDecls)]

--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------