我写了一个PHP扩展来访问静态库中的函数,我将PHP构建为CGI,一切似乎都正常工作了(经过几天的努力..)。
当所有东西都能够工作时,我非常兴奋,于是重新编译了没有调试信息的PHP。(
然后,它就停止工作了。我正在调用静态库中的函数,通过从另一个可执行文件中直接调用进行了测试。
我使用了调试符号(
我仍在努力找出问题所在。似乎库中的函数(
当我调用这个函数时,
diffFst函数是用Fortran编写的:
具体来说,当它尝试读取
我不知道为什么,我已经尝试过:
- 将函数作为子例程 - 将函数作为Fortran函数 - 使函数成为“纯”函数 - 有返回值(现在就是这样,即
似乎数据没有被正确传递。即使在调试器中,我也无法读取参数。
令人沮丧的是,这个问题曾经可以解决。我已经检查了文件权限、检查了路径等等。我可以从Fortran包装器可执行文件中成功运行该函数。
我是否漏掉了什么技巧?
谢谢。
当所有东西都能够工作时,我非常兴奋,于是重新编译了没有调试信息的PHP。(
php_printf("here111");
.... php_printf("sending arguments...");
)然后,它就停止工作了。我正在调用静态库中的函数,通过从另一个可执行文件中直接调用进行了测试。
我使用了调试符号(
--enable-debug
)构建了PHP,并且可以在gdb中进行某种程度的调试。我仍在努力找出问题所在。似乎库中的函数(
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
具体来说,当它尝试读取
filA
时(根据调试器),它在第122行失败了。我不知道为什么,我已经尝试过:
- 将函数作为子例程 - 将函数作为Fortran函数 - 使函数成为“纯”函数 - 有返回值(现在就是这样,即
ier =..
)
- 在代码中使用return
语句,删除return
语句
- 尝试将输出打印到stdout和日志文件中似乎数据没有被正确传递。即使在调试器中,我也无法读取参数。
令人沮丧的是,这个问题曾经可以解决。我已经检查了文件权限、检查了路径等等。我可以从Fortran包装器可执行文件中成功运行该函数。
我是否漏掉了什么技巧?
谢谢。
make clean
,重新构建等操作。 - Mattcharacter(len=*)
上,C语言传递了一个指针,而Fortran无法读取它。正在努力解决中,一旦解决将会立即发布。 - Matt