В процесс эксплорере показывает что прилада берет гиг памяти. И если в конце поставить месаг после фрии - видно что освобождает.
Не знаю что еще сказать.
Код: Выделить всё
PROGRAM
MAP
module('runtime')
malloc(signed),long,name('_malloc')
free(long),name('_free')
memcpy(Long,Long,Unsigned),Name('_memcpy')
end
END
msize long(1024*1024*1024)
mem long
buff &byte
all long
CODE
mem = malloc(msize)
! пишем в память
LOOP W# = 1 TO msize
buff &= (mem+W#-1)
buff = 1
END
! читаем из памяти
LOOP W# = 1 TO msize
buff &= (mem+W#-1)
all += buff
END
MESSAGE(all)
free(mem)