d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

adapted to new naming scheme

Browse source
This commit is contained in:
ceriel 1988-03-21 18:15:59 +00:00
parent cb52407188
commit cc64f88964
3 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lang/m2/libm2/Arguments.c
View file

@ -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;
{

4
lang/m2/libm2/catch.c
View file

@ -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);

8
lang/m2/libm2/transfer.e
View file

@ -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