* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
static char sccsid
[] = "@(#)pow.c 5.1 (Berkeley) %G%";
pow(a
,b
,c
,d
) MINT
*a
,*b
,*c
,*d
;
y
.val
=xalloc(y
.len
,"rpow2");
for(i
=0;i
<y
.len
;i
++) y
.val
[i
]=0;