Skip to content

Commit 34af31c

Browse files
ferdymercuryguitargeek
authored andcommitted
[h2root] Adapt to GCC 8 passing convention for string length
Follow-up of aafddfb
1 parent acc94a6 commit 34af31c

File tree

1 file changed

+10
-2
lines changed

1 file changed

+10
-2
lines changed

main/src/h2root.cxx

Lines changed: 10 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -215,10 +215,18 @@ extern "C" void type_of_call hbnam(const int&,DEFCHAR,const int&,DEFCHAR,const
215215
#endif
216216

217217
extern "C" void type_of_call hprntu(const int&);
218-
extern "C" void type_of_call hgnpar(const int&,const char *,const int);
218+
#ifndef WIN32
219+
extern "C" void type_of_call hgnpar(const int&,DEFCHAR,fortran_charlen_t);
220+
#else
221+
extern "C" void type_of_call hgnpar(const int&,DEFCHAR);
222+
#endif
219223
extern "C" void type_of_call hgnf(const int&,const int&,const float&,const int&);
220224
extern "C" void type_of_call hgnt(const int&,const int&,const int&);
221-
extern "C" void type_of_call rzink(const int&,const int&,const char *,const int);
225+
#ifndef WIN32
226+
extern "C" void type_of_call rzink(const int&,const int&,DEFCHAR,fortran_charlen_t);
227+
#else
228+
extern "C" void type_of_call rzink(const int&,const int&,DEFCHAR);
229+
#endif
222230
extern "C" void type_of_call hdcofl();
223231
extern "C" void type_of_call hmaxim(const int&,const float&);
224232
extern "C" void type_of_call hminim(const int&,const float&);

0 commit comments

Comments
 (0)