1 files changed, 12 insertions, 8 deletions

diff --git a/gcc/m2/gm2-libs/M2RTS.mod b/gcc/m2/gm2-libs/M2RTS.mod
index 4280fec..d01f6a6 100644
--- a/gcc/m2/gm2-libs/M2RTS.mod
+++ b/gcc/m2/gm2-libs/M2RTS.mod
@@ -70,10 +70,11 @@ VAR
                       module constructor in turn.
 *)
 
-PROCEDURE ConstructModules (applicationmodule: ADDRESS;
+PROCEDURE ConstructModules (applicationmodule, libname: ADDRESS;
                             argc: INTEGER; argv, envp: ADDRESS) ;
 BEGIN
-   M2Dependent.ConstructModules (applicationmodule, argc, argv, envp)
+   M2Dependent.ConstructModules (applicationmodule, libname,
+                                 argc, argv, envp)
 END ConstructModules ;
 
 
@@ -82,10 +83,11 @@ END ConstructModules ;
                         module constructor in turn.
 *)
 
-PROCEDURE DeconstructModules (applicationmodule: ADDRESS;
+PROCEDURE DeconstructModules (applicationmodule, libname: ADDRESS;
                               argc: INTEGER; argv, envp: ADDRESS) ;
 BEGIN
-   M2Dependent.DeconstructModules (applicationmodule, argc, argv, envp)
+   M2Dependent.DeconstructModules (applicationmodule, libname,
+                                   argc, argv, envp)
 END DeconstructModules ;
 
 
@@ -95,11 +97,11 @@ END DeconstructModules ;
                     explored to determine initialization order.
 *)
 
-PROCEDURE RegisterModule (name: ADDRESS;
+PROCEDURE RegisterModule (name, libname: ADDRESS;
                           init, fini:  ArgCVEnvP;
                           dependencies: PROC) ;
 BEGIN
-   M2Dependent.RegisterModule (name, init, fini, dependencies)
+   M2Dependent.RegisterModule (name, libname, init, fini, dependencies)
 END RegisterModule ;
 
 
@@ -108,9 +110,11 @@ END RegisterModule ;
                       module dependantmodule.
 *)
 
-PROCEDURE RequestDependant (modulename, dependantmodule: ADDRESS) ;
+PROCEDURE RequestDependant (modulename, libname,
+                            dependantmodule, dependantlibname: ADDRESS) ;
 BEGIN
-   M2Dependent.RequestDependant (modulename, dependantmodule)
+   M2Dependent.RequestDependant (modulename, libname,
+                                 dependantmodule, dependantlibname)
 END RequestDependant ;