adapted to new naming scheme

diff --git a/lang/m2/libm2/Arguments.c b/lang/m2/libm2/Arguments.c
index 036dae6..1a11e6d 100644 (file)
--- a/lang/m2/libm2/Arguments.c
+++ b/lang/m2/libm2/Arguments.c
@@ -48,7 +48,7 @@ Arguments()
 }
 
 unsigned
-Arguments_Argv(n, argument, l, u, s)
+_Arguments_Argv(n, argument, l, u, s)
        unsigned int u;
        char *argument;
 {
@@ -58,7 +58,7 @@ Arguments_Argv(n, argument, l, u, s)
 }
 
 unsigned
-Arguments_GetEnv(name, nn, nu, ns, value, l, u, s)
+_Arguments_GetEnv(name, nn, nu, ns, value, l, u, s)
        char *name, *value;
        unsigned int nu, u;
 {

diff --git a/lang/m2/libm2/catch.c b/lang/m2/libm2/catch.c
index 5d7665f..4e5b93a 100644 (file)
--- a/lang/m2/libm2/catch.c
+++ b/lang/m2/libm2/catch.c
@@ -64,7 +64,7 @@ _catch(trapno)
        while (ep->errno != trapno && ep->errmes != 0) ep++;
        if (p = ep->errmes) {
                while (*p) p++;
-               Traps_Message(ep->errmes, 0, (int) (p - ep->errmes), 1);
+               _Traps_Message(ep->errmes, 0, (int) (p - ep->errmes), 1);
        }
        else {
                int i = trapno;
@@ -81,7 +81,7 @@ _catch(trapno)
                while (i /= 10);
                while (s > buf) *p++ = *--s;
                *p = 0;
-               Traps_Message(q, 0, (int) (p - q), 1);
+               _Traps_Message(q, 0, (int) (p - q), 1);
        }
        if (trapno != M2_FORCH) exit(trapno);
        SIG(_catch);

diff --git a/lang/m2/libm2/transfer.e b/lang/m2/libm2/transfer.e
index 65d693f..b7d357a 100644 (file)
--- a/lang/m2/libm2/transfer.e
+++ b/lang/m2/libm2/transfer.e
@@ -57,11 +57,11 @@
  ; place in the stack. Therefore, in the runtime startoff a piece of the
  ; stack is allocated for coroutines.
 
- exp $SYSTEM_NEWPROCESS
- exp $SYSTEM_TRANSFER
+ exp $_SYSTEM_NEWPROCESS
+ exp $_SYSTEM_TRANSFER
  inp $_ChkSize
 
- pro $SYSTEM_NEWPROCESS, 0
+ pro $_SYSTEM_NEWPROCESS, 0
 
  ; This procedure only initializes the area used for saving the stack.
  ; Its definition is:
@@ -92,7 +92,7 @@
 _target
  bss EM_PSIZE, 0, 0
 
- pro $SYSTEM_TRANSFER, 0
+ pro $_SYSTEM_TRANSFER, 0
 
  ; This procedure does all the hard work.
  ; It must save the current environment, and restore the one to which the