[v4 beta1] Le débogueur fausse un calcul ? [Corrigé]

filperj · Message par **filperj** » lun. 06/févr./2006 19:27

Sans débogueur, la proc renvoie des valeurs correctes.
Avec débogueur, ben... j'comprend pas trop

EDIT:
Ah, ça le fait que si on coche "threadsafe" dans les options du compilo.

Procedure.l MandPoint(cr.d, ci.d, max.l)
   cnt.l = 0
   While cnt.l <= max
      ni.d = 2 * zr.d * zi.d
      zr = zr * zr - zi * zi + cr
      zi = ni + ci
      If zr * zr + zi * zi > 4
         ProcedureReturn cnt
      EndIf
      cnt + 1
   Wend
   ProcedureReturn -1
EndProcedure

a.l = MandPoint(0.1, 0.6, 1000)

MessageRequester("", Str(a))

a.l = MandPoint(0.8, 0.6, 1000)

MessageRequester("", Str(a))

nico · Message par **nico** » lun. 06/févr./2006 19:52

J'ai le même résultat pour les deux: -1 et 2

filperj · Message par **filperj** » lun. 06/févr./2006 20:21

Pardon, j'avais pas précisé que c'est avec la béta.
Ou bien est-ce que j'ai loupé une MAJ ?

comtois · Message par **comtois** » lun. 06/févr./2006 20:24

Comme Nico , -1 et 2 dans les deux cas , et avec la beta 1

filperj · Message par **filperj** » lun. 06/févr./2006 20:31

Ca le fait qu'en mode threadsafe, je vient de m'appercevoir

comtois · Message par **comtois** » lun. 06/févr./2006 20:33

Effectivement

Message par **Fred** » lun. 06/févr./2006 20:34

C'est corrigé.

filperj · Message par **filperj** » lun. 06/févr./2006 20:52

Déjà ! Ah ben ça rigole pas !