1 files changed, 11 insertions, 7 deletions
diff --git a/contrib/libf2c/libF77/c_sin.c b/contrib/libf2c/libF77/c_sin.c
index 93a57660a902..7bf3e392bed0 100644
--- a/contrib/libf2c/libF77/c_sin.c
+++ b/contrib/libf2c/libF77/c_sin.c
@@ -3,15 +3,19 @@
 #ifdef KR_headers
 extern double sin(), cos(), sinh(), cosh();
 
-VOID c_sin(r, z) complex *r, *z;
+VOID c_sin(resx, z) complex *resx, *z;
 #else
 #undef abs
-#include "math.h"
+#include <math.h>
 
-void c_sin(complex *r, complex *z)
+void c_sin(complex *resx, complex *z)
 #endif
 {
-	double zi = z->i, zr = z->r;
-	r->r = sin(zr) * cosh(zi);
-	r->i = cos(zr) * sinh(zi);
-	}
+complex res;
+
+res.r = sin(z->r) * cosh(z->i);
+res.i = cos(z->r) * sinh(z->i);
+
+resx->r = res.r;
+resx->i = res.i;
+}