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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
Description: Fixes needed for C Standard 23 (GCC-15)
Author: Alastair McKinstry <mckinstry@debian.org>
Bug-Origin: https://bugs.debian.org/1096580
Forwarded: no
Last-Updated: 2025-09-06
--- a/pbio/fort2c.c
+++ b/pbio/fort2c.c
@@ -17,8 +17,7 @@
*/
#include "fort2c.h"
-char *fcd2char(fortchar)
-_fcd fortchar;
+char *fcd2char(_fcd fortchar)
{
#ifndef VAX
char *name = _fcdtocp(fortchar);
--- a/pbio/fort2c.h
+++ b/pbio/fort2c.h
@@ -103,6 +103,6 @@
#define _fcd DESC *
#endif
-char *fcd2char(); /* fortran to c string convertion (alloc memory) */
+char *fcd2char(_fcd fortchar); /* fortran to c string convertion (alloc memory) */
#endif /* end of FORT2C_H */
--- a/pbio/PBGroutines.c
+++ b/pbio/PBGroutines.c
@@ -2396,7 +2396,7 @@
offset = file->offset[index];
- if( DEBUG1 ) printf("pbggeth012: offset of GRIB number %ld = %lld\n",
+ if( DEBUG1 ) printf("pbggeth012: offset of GRIB number %ld = %ld\n",
(index+1), offset);
fp = file->fp;
--- a/pbio/sizeRoutines.h
+++ b/pbio/sizeRoutines.h
@@ -12,15 +12,15 @@
#define SIZE_ROUTINES_H
static fortint prodsize(fortint, char *, fortint, fortint *,
- fortint (*fileRead)(), void *);
+ fortint (*fileRead)(char *buf, fortint len, void *file), void *);
static fortint gribsize(char * , fortint, fortint * ,
- fortint (*fileRead)(), void * );
+ fortint (*fileRead)(char *buf, fortint len, void *file), void * );
static fortint bufrsize(char * , fortint, fortint * ,
- fortint (*fileRead)(), void * );
+ fortint (*fileRead)(char *buf, fortint len, void *file), void * );
static fortint tide_budg_size(char *, fortint, fortint *,
- fortint (*fileRead)(), void *);
+ fortint (*fileRead)(char *buf, fortint len, void *file), void *);
static fortint lentotal(char *, fortint *, fortint, fortint , fortint ,
- fortint , fortint (*fileRead)(), void *);
+ fortint , fortint (*fileRead)(char *buf, fortint len, void *file), void *);
static fortint waveLength(char *);
static fortint crex_size( void * );
--- a/pbio/readprod.c
+++ b/pbio/readprod.c
@@ -278,7 +278,7 @@
}
static fortint gribsize(char * hold, fortint leng, fortint * holdsize,
- fortint (*fileRead)(), void * stream)
+ fortint (*fileRead)(char *, fortint , void *), void * stream)
/*
// Calculates the size in bytes of a GRIB product.
//
@@ -431,7 +431,7 @@
static fortint lentotal(char *hold, fortint *holdsize, fortint leng, fortint length,
fortint section2, fortint section3,
- fortint (*fileRead)(), void *stream)
+ fortint (*fileRead)(char *, fortint , void *), void *stream)
/*
// Returns the total length in bytes of all sections of the GRIB product.
//
@@ -494,7 +494,7 @@
static fortint bufrsize(char * hold, fortint leng, fortint * holdsize,
- fortint (*fileRead)(), void * stream)
+ fortint (*fileRead)(char *, fortint , void *), void * stream)
/*
// Returns the size in bytes of the BUFR code product.
//
@@ -579,7 +579,7 @@
}
static fortint tide_budg_size(char * hold, fortint leng, fortint * holdsize,
- fortint (*fileRead)(), void * stream)
+ fortint (*fileRead)(char *, fortint , void *), void * stream)
/*
// Returns the size in bytes of the TIDE/BUDG/DIAG code product.
//
@@ -640,7 +640,7 @@
}
static fortint prodsize(fortint code, char * hold, fortint leng, fortint * holdsize,
- fortint (*fileRead)(), void * stream)
+ fortint (*fileRead)(char *, fortint , void *), void * stream)
/*
// Returns size of BUFR, GRIB, BUDG, TIDE, DIAG product in bytes.
//
|
