"Т > BLib.MAlloc 1.03 23Jul2006 +Т v1.03 23Jul2006 JGH: m_zalloc() added ,Т v1.02 15Sep1989 JGH: m_realloc() added (@Т v1.01 08Sep1989 JGH: Bug in reuse of released memory fixed 29Т v1.00 06Sep1989 JGH: m_alloc() and m_free() written <: F Т Memory Allocation Routines P Т ~~~~~~~~~~~~~~~~~~~~~~~~~~ Z: d: n'щєm_alloc(size%):ЙA%,B%:Гsize%<1:=0 x/m_heap%=m_heap%:A%=m_heap%:Гsize%<4:size%=4 ┌4ГA%:Г!A%=size% └ A%=0 ▄&ГA%=0:ч A% size%+3:!A%=size%:=A%+4 √=Г!A%>size%+7:!A%=!A%-size%-8:A%!(!A%+4)=size%+4:=A%+!A%+8 ═ ГB%:B%!4=A%!4 ▀ m_heap%=A%!4 ╙ =A%+4 Є: ЎщРm_free(ptr%):Гptr%=0:А х0m_heap%=m_heap%:!ptr%=m_heap%:m_heap%=ptr%-4 рAГ!ptr%=ptr%-4+ptr%!-4:ptr%!-4=ptr%!-4+!(!ptr%-4):!ptr%=!!ptr% эА Ф: П:щєm_realloc(ptr%,size%):Рm_free(ptr%):=єm_alloc(size%) З: 5щєm_zalloc(size%):ЙA%:A%=єm_alloc(size%):ГA%=0:=0 *УA%?size%=0:size%=size%-1:Щsize%<0:=A% Ъ