Harbour. The Lost of Memory. 2 Parte ( UPDATE )

Aplicando un pequeño parche al codigo;

function play_doc(  )
   Local oTarifas
   Local cEncoding := "ISO-8859-1"

  
   oTarifas := Twebtarifas():New()
   for x := 1 to 10
       oTarifas:Append( X )
   next

   UAddHeader( "Content-Type", "text/xml;charset=utf-8" )
   UWrite( oTarifas:WriteXML() )
  
   // PATCH

   oTarifas := NIL
   HB_GCALL( .F. ) // limpia basuras .T. fuerza

RETURN nil

Pero si miramos el gráfico, los picos de memoria en la imagen gráfica amarilla, llega a hasta a 9Mb RAM , finalmente se queda en 5Megas RAM

Pero ojo, esto se queda así , y se va acumulando cada vez que hay más y más peticiones.

A la larga, el programa necesita ser reiniciado por el consumo excesivo de memoria.