mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-04-12 17:31:09 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r24727] Description:

Browse Source 
Revert change of sprintf -> snprintf, due to failures on Windows.  We'll
need to figure out the correct course of action in the future.

Tested on:
    MacOSX/64 10.9.1 (amazon) w/C++, FORTRAN
    (too minor to require h5committest)
This commit is contained in:
Quincey Koziol 2014-02-21 11:53:33 -05:00
parent 1e36b5a348
commit 1162465570
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
fortran/src/H5match_types.c
View File

@ -395,8 +395,8 @@ int main(void)
for(i=0;i<4;i++) {
if( FoundIntSize[i] > 0) /* Found the integer type */
{
snprintf(chrA, sizeof(chrA), "Fortran_INTEGER_%d", FoundIntSize[i]);
snprintf(chrB, sizeof(chrB), "int_%d_f", FoundIntSize[i]);
sprintf(chrA, "Fortran_INTEGER_%d", FoundIntSize[i]);
sprintf(chrB, "int_%d_f", FoundIntSize[i]);
writeToFiles(chrA, chrB, FoundIntSize[i], FoundIntSizeKind[i]);
}
else /* Did not find the integer type */
@ -406,8 +406,8 @@ int main(void)
{
if( FoundIntSize[j] > 0) /* Found the next highest */
{
snprintf(chrA, sizeof(chrA), "Fortran_INTEGER_%d", (-1)*FoundIntSize[i]);
snprintf(chrB, sizeof(chrB), "int_%d_f", (-1)*FoundIntSize[i]);
sprintf(chrA, "Fortran_INTEGER_%d", (-1)*FoundIntSize[i]);
sprintf(chrB, "int_%d_f", (-1)*FoundIntSize[i]);
writeToFiles(chrA, chrB, FoundIntSize[j], FoundIntSizeKind[j]);
flag = 1;
break;
@ -419,8 +419,8 @@ int main(void)
{
if( FoundIntSize[j] > 0) /* Found the next lowest */
{
snprintf(chrA, sizeof(chrA), "Fortran_INTEGER_%d", (-1)*FoundIntSize[i]);
snprintf(chrB, sizeof(chrB), "int_%d_f", (-1)*FoundIntSize[i]);
sprintf(chrA, "Fortran_INTEGER_%d", (-1)*FoundIntSize[i]);
sprintf(chrB, "int_%d_f", (-1)*FoundIntSize[i]);
writeToFiles(chrA, chrB, FoundIntSize[j], FoundIntSizeKind[j]);
flag = 1;
break;
@ -462,8 +462,8 @@ int main(void)
for(i=0;i<3;i++) {
if( FoundRealSize[i] > 0) /* Found the real type */
{
snprintf(chrA, sizeof(chrA), "Fortran_REAL_%d", FoundRealSize[i]);
snprintf(chrB, sizeof(chrB), "real_%d_f", FoundRealSize[i]);
sprintf(chrA, "Fortran_REAL_%d", FoundRealSize[i]);
sprintf(chrB, "real_%d_f", FoundRealSize[i]);
writeFloatToFiles(chrA, chrB, FoundRealSize[i], FoundRealSizeKind[i]);
}
else /* Did not find the real type */
@ -473,8 +473,8 @@ int main(void)
{
if( FoundRealSize[j] > 0) /* Found the next highest */
{
snprintf(chrA, sizeof(chrA), "Fortran_REAL_%d", (-1)*FoundRealSize[i]);
snprintf(chrB, sizeof(chrB), "real_%d_f", (-1)*FoundRealSize[i]);
sprintf(chrA, "Fortran_REAL_%d", (-1)*FoundRealSize[i]);
sprintf(chrB, "real_%d_f", (-1)*FoundRealSize[i]);
if(FoundRealSize[j]>4) {
writeFloatToFiles(chrA, chrB, FoundRealSize[j], FoundRealSizeKind[j]);
flag = 1;
@ -492,8 +492,8 @@ int main(void)
{
if( FoundRealSize[j] > 0) /* Found the next lowest */
{
snprintf(chrA, sizeof(chrA), "Fortran_REAL_%d", (-1)*FoundRealSize[i]);
snprintf(chrB, sizeof(chrB), "real_%d_f", (-1)*FoundRealSize[i]);
sprintf(chrA, "Fortran_REAL_%d", (-1)*FoundRealSize[i]);
sprintf(chrB, "real_%d_f", (-1)*FoundRealSize[i]);
if(FoundRealSize[j]>4)
writeFloatToFiles(chrA, chrB, FoundRealSize[j], FoundRealSizeKind[j]);
/* else { */