1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
--- rts/math.c.orig Sat Dec 13 19:38:54 2003
+++ rts/math.c Sat Dec 13 19:43:26 2003
@@ -1,6 +1,6 @@
/* math.c -- runtime support of arithmetic and math builtins */
-#include <varargs.h>
+#include <stdarg.h>
#include "rts.h"
@@ -162,14 +162,12 @@
*/
/*VARARGS*/
int
-sr_imax (va_alist)
-va_dcl
+sr_imax (int n, ...)
{
va_list ap;
- int n, r, v;
+ int r, v;
- va_start (ap);
- n = va_arg (ap, int);
+ va_start (ap, n);
if (n <= 0)
sr_malf ("no args to sr_imax");
@@ -193,14 +191,12 @@
*/
/*VARARGS*/
int
-sr_imin (va_alist)
-va_dcl
+sr_imin (int n, ...)
{
va_list ap;
- int n, r, v;
+ int r, v;
- va_start (ap);
- n = va_arg (ap, int);
+ va_start (ap, n);
if (n <= 0)
sr_malf ("no args to sr_imin");
@@ -222,15 +218,12 @@
*/
/*VARARGS*/
Real
-sr_rmax (va_alist)
-va_dcl
+sr_rmax (int n, ...)
{
va_list ap;
- int n;
Real r, v;
- va_start (ap);
- n = va_arg (ap, int);
+ va_start (ap, n);
if (n <= 0)
sr_malf ("no args to sr_rmax");
@@ -254,15 +247,12 @@
*/
/*VARARGS*/
Real
-sr_rmin (va_alist)
-va_dcl
+sr_rmin (int n, ...)
{
va_list ap;
- int n;
Real r, v;
- va_start (ap);
- n = va_arg (ap, int);
+ va_start (ap, n);
if (n <= 0)
sr_malf ("no args to sr_rmin");
|
