🚀 go-pugleaf

Może jeszcze dodam, że funkcja
function tCurl.Perform:boolean;
znajduje się w module curlobj.
Wywołuje ona funkcję
function tCurl.DoPerform(aCurl:pCurl):CurlCode;
(źródło w pliku ocurlthd.inc)
w której jest pętla while:

       while (fBusy) do begin //Zapetla sie po 300 wywolaniach
         usleep(fWaitInterval * 1000); //w tym czasie fBusy powinno
                                       //byc juz false, a nie jest
         if Assigned(fOnWait) and ( {$IFNDEF FPC}@{$ENDIF}fOnWait <> nil 
) then begin
           pthread_mutex_lock(fMutex);
           fOnWait(self);
           pthread_mutex_unlock(fMutex);
         end else if Assigned(fWaitCallback) and ( {$IFNDEF 
FPC}@{$ENDIF}fWaitCallback <> nil ) then begin
           pthread_mutex_lock(fMutex);
           fWaitCallback(fWaitData);
           pthread_mutex_unlock(fMutex);
         end;
       end;

Doszedłem już do tego, że zmienna fBusy po 300 wywołaniach
ma cały czas wartość True i nie chce się zmienić na False,
stąd robi się nieskończona pętla.
Pytanie tylko dlaczego? Tu niestety utknąłem w analizie
problemu :(

Sławek