Visualizza wikitesto di Deallocare un'area di memoria precedentemente allocata con alloc() e assicurarsi che il Puntatore non punti a un indirizzo rilevante di memoria

Come è noto, la memoria allocata tramite la funzione "Alloc()" è "persistente": ossia continua ad esistere fino al termine del programma.

Essa può essere deallocata, liberata esplicitamente anche prima del termine del programma, mediante la funzione '''Free()'''. Questa funzione rende quell'area di memoria, ormai deallocata, non è più utilizzabile tramite il ''Puntatore'', non potendosi ora accedere al contenuto (l'indirizzo di memoria dell'area ormai deallocata) del predetto ''Puntatore''.

V'è comunque da precisare che il ''Puntatore'', seppur assoggettato alla Funzione "Free()", <SPAN Style="text-decoration:underline">non diventa ''nullo''</span>, come dimostra questo esempio di codice:
 Public Sub Main()
  
  Dim p As Pointer
  
  p = Alloc(SizeOf(gb.Byte), 16) 
  Print "Memoria allocata --> "; p
    
  '''Free'''(p)
  Print "Free(Puntatore)  --> "; p
    
 End

===Assicurasi che il ''Puntatore'' non punti a un indirizzo rilevante di memoria===
Dopo aver deallocato un'area di memoria, e quindi aver reso ''nullo'' il suo ''Puntatore'', mediante la funzione "Free()", è opportuno assegnargli il valore <SPAN Style="text-decoration:underline">''zero''</span> (&h00).
<BR>Questa ulteriore procedura fa in modo che il ''Puntatore'' non punti a un indirizzo rilevante di memoria, eliminando così in modo sicuro e definitivo il precedente puntamento del ''Puntatore'' all'area di memoria, ormai comunque già deallocata con la funzione "Free()". Insomma detto assegnamento del valore "zero" annulla la variabile di tipo ''Puntatore''.

L'effetto può essere verificato, infatti, per mezzo del seguente codice:
 Public Sub Main()
  
  Dim p As Pointer
  
  p = Alloc(SizeOf(gb.Byte), 16) 
  Print "Memoria allocata --> "; p
    
  Free(p)
  Print "Free(Puntatore)  --> "; p
    
  <FONT Color=#B22222><B>p = 0</b></font>
  Print "Puntatore = 0    --> "; p
    
 End
Va ad ogni modo precisato che l'eventuale assegnazione del valore di ''default'' (zero) al ''Puntatore'' di un'area di memoria, da deallocare, <SPAN Style="text-decoration:underline">deve essere comunque preceduta</span> dal passaggio del ''Puntatore'' medesimo per la funzione "Free()", non potendosene prescindere pena la sollevazione in console dell'avviso:
 "''1 allocation(s) non freed''".
Ai fini descritti nella presente pagina utilizzeremo, pertanto, in necessaria sequenza - prima - l'istruzione "Free()" di de-allocazione e - dopo - l'annullamento del ''Puntatore'' mediante l'assegnamento ad esso del valore "zero":
 Public Sub Main()
  
  Dim p As Pointer
  
  p = Alloc(SizeOf(gb.Byte), 16) 
   
    
  <FONT Color=#B22222>Free(p)
 
  '''p = 0'''</font>
        
 End