Realloc ()
La funzione della libreria di C
void *realloc (void *__ptr, size_t __size)
ridimensiona il blocco di memoria precedentemente dimensionato con una chiamata alle funzioni di C malloc() o a calloc() e puntato dal Puntatore ptr.
Volendola utilizzare in Gambas, bisognerà dichiararla con Extern, nonché dichiarare la libreria di C: libc.so.6, nella quale la funzione è contenuta. Da sottolineare che, poiché questa funzione esterna di C "realloc()" è omonima alla funzione di Gambas "Realloc()", bisognerà assegnarle un nome a piacere, ma si dovrà anche richiamare il suo vero nome con il comando Exec.
Dunque avremo ad esempio:
Private Extern realloc_C(__ptr As Pointer, __size As Long) As Pointer In "libc:6" Exec "realloc"
La funzione realloc() va utilizzata in Gambas per attribuire una nuova dimensione ad una area di memoria precedentemente dimensionata soltanto con le funzioni esterni malloc() o calloc(), e non dalla funzione di Gambas Alloc().
Semplice esempio di uso in Gambas:
Library "libc:6"
' void *malloc (size_t __size)
' Allocate SIZE bytes of memory.
Private Extern malloc(__size As Long) As Pointer
' void *realloc (void *__ptr, size_t __size)
' Re-allocate the previously allocated block in PTR, making the new block SIZE bytes long.
Private Extern realloc_C(__ptr As Pointer, __size As Long) As Pointer Exec "realloc"
' void free (void *__ptr)
' Free a block allocated by `malloc', `realloc' or `calloc'.
Private Extern free_C(__ptr As Pointer) Exec "free"
Public Sub Main()
Dim p1, p2 As Pointer
Dim st As Stream
' Viene allocata mediante la funzione esterna "malloc()" un'area di memoria pari a 4 byte:
p1 = malloc(4)
If p1 = 0 Then Error.Raise("Impossibile allocare memoria !")
' Nell'area di memoria allocata vengono scritti alcuni valori:
st = Memory p1 For Write
Write #st, 11 As Byte
Write #st, 22 As Byte
Write #st, 33 As Byte
Write #st, 44 As Byte
st.Close
' Dereferenziamo il "Puntatore" alla'area di memoria allocata, per vedere i valori or ora memorizzati:
Print Byte@(p1)
Print Byte@(p1 + 1)
Print Byte@(p1 + 2)
Print Byte@(p1 + 3)
' Utilizziamo, dunque, la funzione esterna "realloc()" per ridefinire la quantità di memoria riservata:
p2 = realloc_C(p1, 8 * SizeOf(gb.Byte))
If p2 = 0 Then Error.Raise("Impossibile riallocare la memoria già allocata !")
' Scriviamo alcuni valori nei byte aggiunti alla memoria allocata:
st = Memory p2 For Write
Seek #st, 4
Write #st, 55 As Byte
Write #st, 66 As Byte
Write #st, 77 As Byte
Write #st, 88 As Byte
st.Close
' Andiamo a vedere i valori or ora memorizzati nei byte di memoria allocata aggiunti:
Print Byte@(p2 + 4)
Print Byte@(p2 + 5)
Print Byte@(p2 + 6)
Print Byte@(p2 + 7)
' Liberiamo la memoria complesivamente allocata. Dovremo utilizzare la funzione esterna "free()" !
free_C(p2)
End
In quest'altro esempio di allocazione dinamica di un'area di meoria si utilizzeranno le seguenti funzioni esterne:
- malloc( ), per allocare inizialmente un'area di memoria;
- memset( ), per scrivere un dato all'interno della memoria allocata;
- realloc( ), per allocare una nuova quantità dell'area memoria precedentemente riservata;
- free( ), per liberare la memoria allocata.
Library "libc:6"
' void *malloc (size_t __size)
' Allocate SIZE bytes of memory.
Private Extern malloc(__size As Long) As Pointer
' void * memset(void *buffer, int c, size_t count)
' Copies the character c (an unsigned char) to the first count characters of the string pointed to, by the argument buffer.
Private Extern memset(dest As Pointer, c As Integer, count As Long) As Pointer
' void *realloc (void *__ptr, size_t __size)
' Re-allocate the previously allocated block in PTR, making the new block SIZE bytes long.
Private Extern realloc_C(__ptr As Pointer, __size As Long) As Pointer Exec "realloc"
' void free(void *__ptr)
' Free a block allocated by `malloc', `realloc' or `calloc'.
Private Extern free_C(__ptr As Pointer) Exec "free"
Public Sub Main()
Dim p As Pointer
Dim all, i As Integer
all = 1
' Effettua una prima allocazione dell'area di memoria necessaria:
p = malloc(all * SizeOf(gb.Byte))
If p = 0 Then Error.Raise("Impossibile allocare un'area di memoria !")
While i < 20
' Scrive un dato nell'area di memoria riservata:
memset(p + i, i * 10, 1)
Inc all
' Alloca una nuova quantità di memoria:
p = realloc_C(p, all)
If p = 0 Then Error.Raise("Impossibile riallocare l'area di memoria !")
Inc i
Wend
' Verifica il risultato:
For i = 0 To 19
Print Byte@(p + i)
Next
' Liberia la memoria allocata:
free_C(p)
' Si assicura che il Puntatore non punti più ad alcuna cella di memoria:
p = 0
End
