pkgsrc/math/xfractint/patches/patch-ag
2013-01-11 13:29:34 +00:00

83 lines
2 KiB
Text

$NetBSD: patch-ag,v 1.3 2013/01/11 13:29:34 joerg Exp $
--- fracsubr.c.orig 1999-09-06 10:38:10.000000000 +0000
+++ fracsubr.c
@@ -3,12 +3,15 @@ FRACSUBR.C contains subroutines which be
FRACTALS.C, i.e. which are non-fractal-specific fractal engine subroutines.
*/
-#ifndef XFRACT
+#if !defined(USE_VARARGS)
#include <stdarg.h>
-#include <sys/timeb.h>
#else
#include <varargs.h>
#endif
+
+#ifndef XFRACT
+#include <sys/timeb.h>
+#endif
#include <sys/types.h>
#include <time.h>
/* see Fractint.c for a description of the "include" hierarchy */
@@ -326,8 +329,8 @@ init_restart:
if(fractype != CELLULAR && fractype != ANT) /* fudgetolong fails w >10 digits in double */
{
- creal = fudgetolong(param[0]); /* integer equivs for it all */
- cimag = fudgetolong(param[1]);
+ my_creal = fudgetolong(param[0]); /* integer equivs for it all */
+ my_cimag = fudgetolong(param[1]);
xmin = fudgetolong(xxmin);
xmax = fudgetolong(xxmax);
x3rd = fudgetolong(xx3rd);
@@ -1050,7 +1053,7 @@ static int _fastcall ratio_bad(double ac
*/
-#ifndef XFRACT
+#if !defined(USE_VARARGS)
int put_resume(int len, ...)
#else
int put_resume(va_alist)
@@ -1059,13 +1062,13 @@ va_dcl
{
va_list arg_marker; /* variable arg list */
BYTE *source_ptr;
-#ifdef XFRACT
+#if defined(USE_VARARGS)
int len;
#endif
if (resume_info == 0)
return(-1);
-#ifndef XFRACT
+#if !defined(USE_VARARGS)
va_start(arg_marker,len);
#else
va_start(arg_marker);
@@ -1101,7 +1104,7 @@ You will not be able to resume calculati
return(0);
}
-#ifndef XFRACT
+#if !defined(USE_VARARGS)
int get_resume(int len, ...)
#else
int get_resume(va_alist)
@@ -1110,13 +1113,13 @@ va_dcl
{
va_list arg_marker; /* variable arg list */
BYTE *dest_ptr;
-#ifdef XFRACT
+#if defined(USE_VARARGS)
int len;
#endif
if (resume_info == 0)
return(-1);
-#ifndef XFRACT
+#if !defined(USE_VARARGS)
va_start(arg_marker,len);
#else
va_start(arg_marker);