OpenEuphoria

Re: free seems not work

• Posted by PtitChaud Feb 22, 2011
• 1768 views

Sorry, very sorry. I've changed my code without good test. OK with this new code :

function allocate_bcl(sequence ptr_liste)                           -- 
    for j=1 to BOUCLE do                                            -- 
        ptr_liste[j]=allocate(10000)                                -- 
    end for                                                         -- 
    return ptr_liste                                                --  
end function                                                        -- 
--                                                                  -- 
procedure UnCycleComplet()                                          -- 
    sequence ptr_liste                                              -- 
    ptr_liste = repeat(0,BOUCLE)                                    -- 
    for i=1 to NOMBRE_CYCLE do                                      -- 
        ptr_liste=allocate_bcl(ptr_liste)                           -- 
        free_bcl(ptr_liste)                                         -- 
    end for                                                         -- 
end procedure                                                       -- 

i observe that with wmmap and processexplorer programmes of sysinternals :
before the first call of UnCycleComplet(), the programme use 8MB of private memory and the heap memory type is about 5MB
after the last call of UnCycleComplet(), the programme use 15MB of private memory
and the virtual memory is 32MB.
with vmmap.exe, i notice that : private size of heap memory type is about 12MB.
Is it the normal behavior of the free statement ?