c - 将代码从 32 位更改为 64 位后，将指针从 Microsoft Visual C++ 传递到 Fortran 并返回

<分区>

关闭。 这个问题是 not reproducible or was caused by typos 。它目前不接受答案。

这个问题是由于错别字或无法再重现的问题引起的。虽然类似的问题可能在这里出现，但这个问题的解决方式不太可能帮助 future 的读者。

关闭 12 个月前。

社区在 12 个月前审查了是否重新打开此问题，然后将其关闭:

原始关闭原因未解决

on-topic

在 Fortran 中调用 C 函数(在 Visual Studio 64 位中编译):

SUBROUTINE GET_PNTR

INTEGER*8 NXLOC(41)
REAL*4 WRX25I(41)

NXLOC(1) = IVRLOC( WRX25I(1) )

RETURN
END

C 函数定义为:

long long IVRLOC(var)
void *var;
{
    return var;
}

当我在 return 语句处停止时，var 被定义为 FORTRAN_X64.exe!0x00007ff6de5b8074。

当我退出函数时，只有最后 4 个字节(在本例中为 -564428684)的大端字节序显示为 NXLOC(1) 的值。我不确定这是否正确，但似乎不可能，并且由于下一步使用该地址失败，因此似乎已确认它是不正确的。通过搜索网络，该值似乎应该是小端，但这不是我所看到的。

这是怎么回事？

当使用地址时，Fortran 代码的下一步如下所示:

PROGRAM USE_PTR

INTEGER*8 NXLOC(41)
REAL*4 XSLAM(41)

NX = 41
CALL VALOCX(NXLOC(1),XSLAM(1),NX)

RETURN
END

C 函数的样子:

void VALOCX( nsloc, vals, ns)
float *nsloc[], vals[];
int *ns;
{
    int i;

    for (i=0; i<*ns; i++) {
        vals[i] = *nsloc[i];
    }
}

此函数中的

nsloc 现在具有值 0x00007ff6de5b3c00 {FORTRAN_X64.exe!CHKSUB} {0xffffffffde5b8074 {???}} 其中仅恢复原始变量地址的最后四个字节。我假设我需要在某个时候从大端转换为小端，但到目前为止我的努力似乎只会增加我的困惑。

为什么“var”在退出 IVRLOC 时不转换为正确的值，以便它在 VALOCX 中转换回正确的值？

最佳答案

如果您没有将 IVRLOC 声明为在 Fortran 端返回 INTEGER*8 (或者可能是 INTEGER(c_intptr_t) )的函数，它是默认整数类型，可能是一个 4 字节整数。这可以解释由于类型不匹配，原始 8 字节值的一半被设置为零。

关于c - 将代码从 32 位更改为 64 位后，将指针从 Microsoft Visual C++ 传递到 Fortran 并返回，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/70413786/

相关文章：

c - 在 C 中的结构内部分配指针？