* allocate a block of storage on the heap
register char *memblk
, *ptr
;
if (memblk
== (char *)(-1))
for(ptr
=memblk
; ptr
<memblk
+need
; ptr
++)
* Free a block of storage on the stack
else if (free(ptr
) == -1)
* Constant set constructor (yechh!)
sets
*pcttot(uprbp
, lwrb
, n
, av
)
if ((l
= *ap
++ - lwrb
) < 0 || l
> uprbp
||
(h
= *ap
++ - lwrb
) < 0 || h
> uprbp
)
set
[l
>> 4] = set
[l
>> 4] | 1 << (l
& 017);
8, 9, 10, 4, 5, 6, 10, 22, 23, 10, 0
register char *ap
, *cp
, *dp
;
for (dp
= pd_date
; *dp
; *ap
++ = cp
[*dp
++]);
for (cp
= cp
+ 10, i
= 10; i
; *ap
++ = *cp
++, i
--);
if (mode
== PIX
&& nodump
== 0) {
fputs("Execution terminated",stderr
);
fputs(" abnormally",stderr
);