Skip to content

Commit 0bd0df8

Browse files
martin-frbgmartin-frbg
authored
fix typedef of logical to support INTERFACE64
1 parent d939444 commit 0bd0df8

38 files changed

+114
-114
lines changed

‎lapack-netlib/SRC/cbbcsd.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
5252
#endif
5353
#define pCf(z) (*_pCf(z))
5454
#define pCd(z) (*_pCd(z))
55-
typedef int logical;
56-
typedef short int shortlogical;
55+
typedef blasint logical;
56+
5757
typedef char logical1;
5858
typedef char integer1;
5959

@@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
260260

261261
/* procedure parameter types for -A and -C++ */
262262

263-
#define F2C_proc_par_types 1
263+
264264
#ifdef __cplusplus
265265
typedef logical (*L_fp)(...);
266266
#else

‎lapack-netlib/SRC/cbdsqr.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
5252
#endif
5353
#define pCf(z) (*_pCf(z))
5454
#define pCd(z) (*_pCd(z))
55-
typedef int logical;
56-
typedef short int shortlogical;
55+
typedef blasint logical;
56+
5757
typedef char logical1;
5858
typedef char integer1;
5959

@@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
260260

261261
/* procedure parameter types for -A and -C++ */
262262

263-
#define F2C_proc_par_types 1
263+
264264
#ifdef __cplusplus
265265
typedef logical (*L_fp)(...);
266266
#else

‎lapack-netlib/SRC/cgbbrd.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
5252
#endif
5353
#define pCf(z) (*_pCf(z))
5454
#define pCd(z) (*_pCd(z))
55-
typedef int logical;
56-
typedef short int shortlogical;
55+
typedef blasint logical;
56+
5757
typedef char logical1;
5858
typedef char integer1;
5959

@@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
260260

261261
/* procedure parameter types for -A and -C++ */
262262

263-
#define F2C_proc_par_types 1
263+
264264
#ifdef __cplusplus
265265
typedef logical (*L_fp)(...);
266266
#else

‎lapack-netlib/SRC/cgbcon.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
5252
#endif
5353
#define pCf(z) (*_pCf(z))
5454
#define pCd(z) (*_pCd(z))
55-
typedef int logical;
56-
typedef short int shortlogical;
55+
typedef blasint logical;
56+
5757
typedef char logical1;
5858
typedef char integer1;
5959

@@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
260260

261261
/* procedure parameter types for -A and -C++ */
262262

263-
#define F2C_proc_par_types 1
263+
264264
#ifdef __cplusplus
265265
typedef logical (*L_fp)(...);
266266
#else

‎lapack-netlib/SRC/cgbequ.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
5252
#endif
5353
#define pCf(z) (*_pCf(z))
5454
#define pCd(z) (*_pCd(z))
55-
typedef int logical;
56-
typedef short int shortlogical;
55+
typedef blasint logical;
56+
5757
typedef char logical1;
5858
typedef char integer1;
5959

@@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
260260

261261
/* procedure parameter types for -A and -C++ */
262262

263-
#define F2C_proc_par_types 1
263+
264264
#ifdef __cplusplus
265265
typedef logical (*L_fp)(...);
266266
#else

‎lapack-netlib/SRC/cgbequb.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
5252
#endif
5353
#define pCf(z) (*_pCf(z))
5454
#define pCd(z) (*_pCd(z))
55-
typedef int logical;
56-
typedef short int shortlogical;
55+
typedef blasint logical;
56+
5757
typedef char logical1;
5858
typedef char integer1;
5959

@@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
260260

261261
/* procedure parameter types for -A and -C++ */
262262

263-
#define F2C_proc_par_types 1
263+
264264
#ifdef __cplusplus
265265
typedef logical (*L_fp)(...);
266266
#else

‎lapack-netlib/SRC/cgbrfs.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
5252
#endif
5353
#define pCf(z) (*_pCf(z))
5454
#define pCd(z) (*_pCd(z))
55-
typedef int logical;
56-
typedef short int shortlogical;
55+
typedef blasint logical;
56+
5757
typedef char logical1;
5858
typedef char integer1;
5959

@@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
260260

261261
/* procedure parameter types for -A and -C++ */
262262

263-
#define F2C_proc_par_types 1
263+
264264
#ifdef __cplusplus
265265
typedef logical (*L_fp)(...);
266266
#else

‎lapack-netlib/SRC/cgbrfsx.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -54,8 +54,8 @@ static inline _Complex float * _pCf(complex *z) {return (_Complex float*)z;}
5454
static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*)z;}
5555
#define pCf(z) (*_pCf(z))
5656
#define pCd(z) (*_pCd(z))
57-
typedef int logical;
58-
typedef short int shortlogical;
57+
typedef blasint logical;
58+
5959
typedef char logical1;
6060
typedef char integer1;
6161

@@ -257,7 +257,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
257257

258258
/* procedure parameter types for -A and -C++ */
259259

260-
#define F2C_proc_par_types 1
260+
261261
#ifdef __cplusplus
262262
typedef logical (*L_fp)(...);
263263
#else

‎lapack-netlib/SRC/cgbsv.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
5252
#endif
5353
#define pCf(z) (*_pCf(z))
5454
#define pCd(z) (*_pCd(z))
55-
typedef int logical;
56-
typedef short int shortlogical;
55+
typedef blasint logical;
56+
5757
typedef char logical1;
5858
typedef char integer1;
5959

@@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
260260

261261
/* procedure parameter types for -A and -C++ */
262262

263-
#define F2C_proc_par_types 1
263+
264264
#ifdef __cplusplus
265265
typedef logical (*L_fp)(...);
266266
#else

‎lapack-netlib/SRC/cgbsvx.c

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -52,8 +52,8 @@ static inline _Complex double * _pCd(doublecomplex *z) {return (_Complex double*
5252
#endif
5353
#define pCf(z) (*_pCf(z))
5454
#define pCd(z) (*_pCd(z))
55-
typedef int logical;
56-
typedef short int shortlogical;
55+
typedef blasint logical;
56+
5757
typedef char logical1;
5858
typedef char integer1;
5959

@@ -260,7 +260,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
260260

261261
/* procedure parameter types for -A and -C++ */
262262

263-
#define F2C_proc_par_types 1
263+
264264
#ifdef __cplusplus
265265
typedef logical (*L_fp)(...);
266266
#else

0 commit comments

Comments
 (0)