C関数から返されたCポインタをFortranに解放しますか？

Question

私はFORTRANでこの

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

のように見えるCでのchar *のポインタを返す関数を持って、私は（ISO_C_BINDINGを使用した）Cのポインタにこれを割り当てる

​​

この部分は素晴らしい作品。 string_val関数は多く呼び出され、メモリリークの原因になっていると思います。私はsvalueポインタのメモリを解放しようとしていますが、私はsegフォールトとメモリダンプを実行しました。

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

 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) 

フリーライン上の問題へのトレースバックポイント：私は現在、このようなものを持っています。私はまた、変化するcptrを値に渡そうとしました。 type (c_ptr),VALUE :: cptr そしてvoid*addrOfptrとfree(addrOfptr)をC側に持っていましたが、どちらもうまくいかないようでした。私はまた、Fortran側でsvalueのメモリ位置を見つけることに失敗しました。私は

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

のようなものを使用している場合は、これらのいずれも私がsvalueのメモリの場所をprintfのときと同じ値を与えます。 ポインタsvalueがFortranで返された後、ポインタsvalueのメモリを解放するにはどうすればよいですか？ Fortranでsvalueメモリの場所を取得するにはどうすればよいですか？

Answer 1

親指のルールとして、コードの外側に割り当てられたメモリを「解放」しないでください。 これはcJSONにも当てはまります。

あなたがオブジェクトを解析すると、ツリーがメモリ上に構築し、あなたが目的を達成することができ、その値は、それを変更している、など

あなたのファイルの処理を終了したら、呼び出しメモリを解放することができますcJSON_Delete（ルート）;

このルーチンはあなたのためにすべてを処理します。

オブジェクト/ノードを使用して解放する場合は、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_Deleteが世話をするよう、cJSON_Freeを使用しないでください：あなたはノードを解放する場合は、ここでのコードで見ることができるように、それは、あまりにもすべての子供や兄弟を解放します構造体自体を解放する前にcJSON_freeを構造体の内部要素に適用する必要があります。そうしないと、メモリリークが発生します。