RosettaCodeData/Task/Memory-allocation/PureBasic/memory-allocation.purebasic
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

15 lines
354 B
Text

*buffer=AllocateMemory(20)
*newBuffer = ReAllocateMemory(*buffer, 2000) ;increase size of buffer
;*buffer value is still valid if newBuffer wasn't able to be reallocated
If *newBuffer <> 0
*buffer = *newBuffer : *newBuffer = 0
EndIf
FreeMemory(*buffer)
size=20
; allocate an image for use with image functions
CreateImage(1,size,size)
FreeImage(1)