Consumo de processamento

[bencz]

Olá, estava fazendo alguns testes, envolvendo INKEY, e pude notar, q quando eu utilizo o HB_BackGround e o Inkey, ele da um consumo absurdo de memoria... para simular o erro, foi feito o seguinte código:

Código: Selecionar todos

function main
   Private nCount := 0
   Private nConta := 0
   Private Tempo  := Seconds()
   setmode(25,80)

   Cls

   hb_idleSleepMsec( 100 )
   nId := HB_IdleAdd( {|| MyTask() } )
   nIdle := HB_IdleAdd( {|| HB_BackGroundRun() } )
   nId := HB_BackgroundAdd( {||MyTask() }, 1 )

   SET   BACKGROUND     TASKS ON
   SET   BACKGROUNDTICK 100   // Default is 1000

   Do While .T.
      ? "oi: ", ++nConta
      INKEY(0)
*     For i = 1 to 2
*         HB_IdleState()
*     next i
   EndDo
Return

Function MyTask()
     ? "MyTask: ", ++nCount, Seconds() - Tempo
     Tempo := Seconds()
     INKEY(0)
Return

Estou utilizando o xHarbour.com, nao consigo encontrar o pq deste consumo, caso alguem tenha alguma forma p/ solucionar este problema, ou, puder me ajudar com este problema, eu agradeço, e muito.

Foto:

[sygecom]

Olá Alexandre,
Eu não tenho esse problema, deve ser um problema da sua versão, tente compilar usando Harbour com o mesmo exemplo para ver se obtém o mesmo resultado, tenho quase certeza que não...