将 C 函数返回的 C 指针释放到 Fortran？

Question

我有一个函数，它在 C 中返回一个 char * 指针，看起来像这样

char * string_val (ARGS)
{
 char * svalue = cJSON_GetObjectItem(nml,var_name)->valuestring;
 return svalue;
}

在 Fortran 中，我将其分配给 C 指针（使用 iso_c_binding）

type (c_ptr) :: C_String_ptr
...
C_String_ptr = string_val (ARGS)

这部分效果很好。 string_val 函数被调用了很多，我认为它会导致内存泄漏。我正在尝试释放 svalue 指针的内存，但我刚刚遇到了 seg 错误和内存转储。我目前有这样的事情：

     subroutine c_mem_free (cptr) bind(C,name="c_mem_free")
      use iso_c_binding
      type (c_ptr)   :: cptr   !< The C pointer whose memory needs to be freed
     end subroutine
...
 call c_mem_free(C_String_ptr)

在哪里

 void c_mem_free (void** addrOfptr)
{
  free(*addrOfptr);    /* free the memory pointed to */
  *addrOfptr=NULL;     /* Nullify the pointer ;) */
}

回溯指向空闲线路上的问题。我也尝试将更改 cptr 传递给 value 所以 type (c_ptr),VALUE :: cptr 并且在 C 端有void*addrOfptr 和free(addrOfptr)，但这似乎也不起作用。我也没有成功在 Fortran 端找到 svalue 的内存位置。如果我使用类似的东西

write (6,'(z)')loc(C_String_ptr) write (6,'(z)')loc(c_loc(C_String_ptr))

这些都没有给我与 printf svalue 内存位置相同的值。 在 Fortran 中返回指针 svalue 后，如何释放它的内存？如何在 Fortran 中获取 svalue 内存的位置？

Answer 1

作为一个竖起大拇指的规则，您不应该“释放”在代码之外分配的内存。 cJSON 也是如此。

解析对象后，树会在内存中构建，您可以访问对象、其值、更改对象等。

完成文件处理后，您可以调用 cJSON_Delete(root);

释放内存

这个程序会为你处理好一切。

如果您想在使用对象/节点时释放它们，您也可以使用 cJSON_Delete(node); 请记住，这个例程是“递归的”。因此，如果您释放一个节点，它也会释放所有子节点和兄弟节点，正如您在此处的代码中看到的那样：

/* Delete a cJSON structure. */
void cJSON_Delete(cJSON *c)
{
    cJSON *next;
    while (c)
    {
        next=c->next;
        if (!(c->type&cJSON_IsReference) && c->child) cJSON_Delete(c->child);
        if (!(c->type&cJSON_IsReference) && c->valuestring) cJSON_free(c->valuestring);
        if (!(c->type&cJSON_StringIsConst) && c->string) cJSON_free(c->string);
        cJSON_free(c);
        c=next;
    }
}

不要使用 cJSON_Free，因为 cJSON_Delete 会处理所有事情，而 cJSON_free 必须在释放结构本身之前应用于结构的内部元素，否则你会有内存泄漏。