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
|
$NetBSD: patch-af,v 1.1.1.1 2005/02/25 15:54:59 is Exp $
--- rts/array.c.orig 1999-07-28 23:08:48.000000000 +0200
+++ rts/array.c
@@ -1,7 +1,7 @@
/* array.c -- runtime support of arrays */
#include "rts.h"
-#include <varargs.h>
+#include <stdarg.h>
static void slices ();
@@ -22,11 +22,9 @@ static void slices ();
*/
/*VARARGS*/
Array *
-sr_init_array (va_alist)
-va_dcl
+sr_init_array (char *locn, ...)
{
va_list ap;
- char *locn;
int ndim, elemsize, alcsize, i, n;
Array *addr;
Dim *d;
@@ -39,8 +37,7 @@ va_dcl
/*
* Calculate the size of each dimension.
*/
- va_start (ap);
- locn = va_arg (ap, char *);
+ va_start (ap, locn);
addr = va_arg (ap, Array *);
elemsize = va_arg (ap, int);
initvalue = va_arg (ap, Ptr);
@@ -251,11 +248,9 @@ struct slcinfo {
/*VARARGS*/
Ptr
-sr_slice (va_alist)
-va_dcl
+sr_slice (char *locn, ...)
{
va_list ap;
- char *locn;
Array *a1, *a2;
int elemsize, nbounds;
int adim, lb[MAX_DIMENS], ub[MAX_DIMENS]; /* array dims*/
@@ -266,8 +261,7 @@ va_dcl
sr_check_stk (CUR_STACK);
/* get fixed arguments */
- va_start (ap);
- locn = va_arg (ap, char *); /* SR source code location */
+ va_start (ap, locn);
a1 = va_arg (ap, Array *); /* contiguous array */
a2 = va_arg (ap, Array *); /* sliced array */
elemsize = va_arg (ap, int); /* array element size */
|
