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 unsigned
Arguments_Argv(n, argument, l, u, s) _Arguments_Argv(n, argument, l, u, s)
unsigned int u; unsigned int u;
char *argument; char *argument;
{ {
@ -58,7 +58,7 @@ Arguments_Argv(n, argument, l, u, s)
} }
unsigned unsigned
Arguments_GetEnv(name, nn, nu, ns, value, l, u, s) _Arguments_GetEnv(name, nn, nu, ns, value, l, u, s)
char *name, *value; char *name, *value;
unsigned int nu, u; 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++; while (ep->errno != trapno && ep->errmes != 0) ep++;
if (p = ep->errmes) { if (p = ep->errmes) {
while (*p) p++; while (*p) p++;
Traps_Message(ep->errmes, 0, (int) (p - ep->errmes), 1); _Traps_Message(ep->errmes, 0, (int) (p - ep->errmes), 1);
} }
else { else {
int i = trapno; int i = trapno;
@ -81,7 +81,7 @@ _catch(trapno)
while (i /= 10); while (i /= 10);
while (s > buf) *p++ = *--s; while (s > buf) *p++ = *--s;
*p = 0; *p = 0;
Traps_Message(q, 0, (int) (p - q), 1); _Traps_Message(q, 0, (int) (p - q), 1);
} }
if (trapno != M2_FORCH) exit(trapno); if (trapno != M2_FORCH) exit(trapno);
SIG(_catch); 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 ; place in the stack. Therefore, in the runtime startoff a piece of the
; stack is allocated for coroutines. ; stack is allocated for coroutines.
exp $SYSTEM_NEWPROCESS exp $_SYSTEM_NEWPROCESS
exp $SYSTEM_TRANSFER exp $_SYSTEM_TRANSFER
inp $_ChkSize inp $_ChkSize
pro $SYSTEM_NEWPROCESS, 0 pro $_SYSTEM_NEWPROCESS, 0
; This procedure only initializes the area used for saving the stack. ; This procedure only initializes the area used for saving the stack.
; Its definition is: ; Its definition is:
@ -92,7 +92,7 @@
_target _target
bss EM_PSIZE, 0, 0 bss EM_PSIZE, 0, 0
pro $SYSTEM_TRANSFER, 0 pro $_SYSTEM_TRANSFER, 0
; This procedure does all the hard work. ; This procedure does all the hard work.
; It must save the current environment, and restore the one to which the ; It must save the current environment, and restore the one to which the