fb:porticula NoPaste
8.2: Mutex-Fehler im rekursiven Aufruf
Uploader: | nemored |
Datum/Zeit: | 09.10.2011 21:38:34 |
Hinweis: Dieser Quelltext ist Bestandteil des Projekts OpenBook: 2D-Spieleprogrammierung, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.
' *** CODE 8.2: Mutex-Fehler im rekursiven Aufruf
FUNCTION fehlerhafteRekursion(zahl AS INTEGER) AS INTEGER
DIM AS INTEGER rueckgabe
MUTEXLOCK einMutex ' Schutz der Variablen 'param'
IF zahl > param THEN
' ACHTUNG: der naechste Aufruf wird fuer Probleme sorgen!
rueckgabe = fehlerhafteRekursion(zahl - param)
ELSE
rueckgabe = zahl
END IF
MUTEXUNLOCK einMutex
RETURN rueckgabe
END FUNCTION