8

我编写了一个 PHP 扩展来访问静态库中的函数，我将 PHP 构建为 CGI，一切似乎都正常工作（经过几天的工作......）

一旦一切正常，我很兴奋，我重新编译了 PHP，没有调试我在其中的消息。( php_printf("here111");.... php_printf("sending arguments...");)

然后，它就停止了工作。我在静态库中调用的函数有效，我已经通过直接从另一个可执行文件调用它来测试它。

我用调试符号（）构建了PHP，--enable-debug并且可以在gdb中对其进行一定程度的调试。

我仍在努力找出问题所在。似乎 lib ( diffFst) 中的函数似乎无法读取输入参数。

268     if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ssssssd",
269        &filA, &filA_len,
270        &nomvarA, &nomvarA_len,
271        &filB, &filB_len,
272        &nomvarB, &nomvarB_len,
273        &filO, &filO_len,
274        &newnomvar, &newnomvar_len,
275        &mult
276        ) == FAILURE) {
277         RETURN_LONG(-100);
278     }
279 
280     php_printf("Read arguments:\nfilA: %s, nomvara: %s\nfilB: %s, nomvarB: %s\nfilO: %s, nomvarO: %s\nMult: %0.3f\n",
281        filA,nomvarA, filB,nomvarB, filO,newnomvar, mult);
282 
285     ier = difffst_(filA,nomvarA, filB,nomvarB, filO,newnomvar, mult);

当我调用此函数时，该php_printf()语句起作用并打印出正确的值。但是，当我让它调用 difffst_ 函数时，当它尝试读取输入变量时出现段错误。

diffFst 函数是用 fortran 编写的：

  5 function diffFst(filA, nomvara, filB, nomvarb, filO, newnomvar, change, write_tictac, in_verbose) result(ier)
 10     implicit none
 11 

 12     character (len=*), intent(IN) :: filA, filB, filO
 13     character (len=*), intent(IN) :: nomvara, nomvarb, newnomvar
 14 
 16     real, intent(IN) :: change
 17     logical, intent(IN) :: write_tictac
 18 
 19     logical, intent(IN), optional :: in_verbose
 21     logical :: verbose = .false.
 27     integer :: ier
...
117     ier = fstouv(iuna, 'RND')
118     IF (ier < 0) THEN
119         if (verbose) write(stderr,'(2A)') "Could not fstouv FST file ", trim(filA)
120     ELSE
121         nmax = fstnbr(iuna);
122         if (verbose) write(stdout,'(3A,I6,A)') "Succesfully opened ", trim(filA), ' with ', nmax, ' records'
123         allocate(liste(nmax))
124     END IF

具体来说，它在尝试读取时在第 122 行（根据调试器）失败filA。

我不知道为什么，我试过：

  • 使函数成为子程序
  • 使函数成为 fortran 函数
  • 使函数成为“纯”函数
  • 具有返回值（这就是现在的情况，即ier = ..）
  • 在代码中有return语句，删除return语句
  • 尝试将内容打印到标准输出并记录文件

似乎数据没有正确传递。即使在调试器中，我也无法读取参数。

令人沮丧的是，在某一时刻，这只是工作..我已经检查了文件权限，检查了路径等。我可以从一个 fortran 包装器可执行文件中运行这个函数就好了。

有没有我错过的技巧？

谢谢

4

2 回答 2

2

花了一段时间，需要额外的帮助（像这样的问题）

基本上有两件事必须改变：

  • 通过引用传递整数
  • 正确接受字符串

第一个很简单，很简单ier=func(..., &integer_var, ...)

第二个涉及传递字符串的长度。可能有一种更简单的方法可以做到这一点（通过查找 \0 来感知字符串长度），但它们没有成功。所以，现在我通过

ier = func(str,strlen,...)

然后在 Fortran 中，我接受字符串为

character(kind=c_char,len=strlen), intent(IN) :: str

上面对fortran代码的具体改动是

11     use, intrinsic :: iso_c_binding
12     use interfaces_rmnutils
13     implicit none
16     integer(kind=c_int), intent(IN) :: len_filA, len_filB, len_filO
17     character (kind=c_char,len=len_filA), intent(IN) :: filA
18     character (kind=c_char,len=len_filB), intent(IN) :: filB
19     character (kind=c_char,len=len_filO), intent(IN) :: filO

当它工作时，它一定是在我尝试将字符串读取为 之前(len=*)，并且整数作为引用传入，因此它们本质上具有随机值。

谢谢大家的其他！

于 2013-01-03T04:57:52.573 回答
1

您的程序似乎破坏了堆栈。堆栈损坏通常伴随着指针的不当使用。在可疑函数调用之前仔细检查（使用调试器或简单的足迹调查变量的内容）。

于 2013-01-08T15:11:33.010 回答