X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/95f51977ddc18faa2e212f30c00a39540b39f325..ca67e7b465996afb3821d6a075c4dc6a7f0f5d52:/usr/src/usr.lib/libF77/pow_zz.c

diff --git a/usr/src/usr.lib/libF77/pow_zz.c b/usr/src/usr.lib/libF77/pow_zz.c
index 2f27e9ced1..aae2efad40 100644
--- a/usr/src/usr.lib/libF77/pow_zz.c
+++ b/usr/src/usr.lib/libF77/pow_zz.c
@@ -3,10 +3,13 @@
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *
- *	@(#)pow_zz.c	5.1	6/7/85
+ *	@(#)pow_zz.c	5.2	11/3/86
  */
 
 #include "complex"
+#ifdef tahoe
+#define cabs zabs
+#endif tahoe
 
 pow_zz(r,a,b)
 dcomplex *r, *a, *b;