Freigeben eines C-Zeigers, der von einer C-Funktion an Fortran zurückgegeben wird?

Question

Ich habe eine Funktion, die einen char * Zeiger in C zurückgibt, wie diese, ich zuweisen diese (mit iso_c_binding)

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

Dieses Teil funktioniert gut mit einem C-Zeiger

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

In Fortran sieht . Die Funktion string_val wird sehr oft aufgerufen, und ich denke, es verursacht einen Speicherverlust. Ich versuche, den Speicher des Svalue-Zeigers freizugeben, aber ich habe gerade in seg-Fehler und Speicherauszüge geraten. Im Moment habe ich so etwas wie diese:

 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) 

wo

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

Die Traceback-Punkte für ein Problem auf der freien Linie. Ich habe auch versucht, ändern cptr zu Wert so type (c_ptr),VALUE :: cptr und mit void*addrOfptr und free(addrOfptr) auf der C-Seite, aber das schien auch nicht zu arbeiten. Es ist mir auch nicht gelungen, den Speicherort von svalue auf der Fortran-Seite zu finden. Wenn ich so etwas wie

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

beides nicht verwenden, gibt mir den gleichen Wert wie wenn ich die Stelle des Speichers von sValue printf. Wie kann ich den Speicher des Zeiger svalue freigeben, nachdem es in Fortran zurückgegeben wurde? Wie kann ich den Speicherort des Svalue-Speichers in Fortran erhalten?

Answer 1

Als Daumen hoch Regel sollten Sie Speicher nicht außerhalb Ihres Codes "freigeben". Und das gilt auch für cJSON.

Sobald Sie das Objekt analysieren, ist der Baum im Speicher aufzubauen und Sie können die Objekte, ihre Werte zu erreichen, ändern Sie es, usw.

Nachdem Sie die Bearbeitung Ihrer Datei abgeschlossen haben, können Sie den Speicher frei telefonieren cJSON_Delete (Wurzel);

Diese Routine kümmert sich um alles für Sie.

Wenn Sie Objekte/Knoten freigeben möchten, während Sie sie verwenden, können Sie auch verwenden cJSON_Delete (Knoten); Denken Sie daran, dass diese Routine "rekursiv" ist. Also, wenn Sie einen Knoten befreien, wird es alle Kinder frei und auch die Geschwister, wie Sie durch den Code hier sehen können:

/* 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; 
    } 
} 

NICHT verwenden cJSON_Free, als cJSON_Delete Pflege nehmen von allem, während cJSON_free auf die internen Elemente der Struktur angewendet werden muss, bevor die Struktur selbst freigegeben wird, andernfalls haben Sie ein Speicherleck.