[v4 beta4] Bizarrerie = procedure + liste chaînée [Corrigé]

[Sehka]

Salut à toutes et à tous,
Je viens de tomber sur un truc bizarre dont voici le code à éxécuter en mode debug :

Code : Tout sélectionner

Structure TFile
  Name.s
  Size.l
EndStructure

Procedure.l LoadFilesToList(Directory$, Type$,ListFiles.TFile())
   
  FileFound.l
  Debug "Directory$ : " + Directory$
  Debug "Type$ : " + Type$
EndProcedure

Procedure List_Import( Dir$, Typ$) 

  NewList ListFiles.TFile()
  
  Debug " Dir$ : " + Dir$
  Debug " Typ$ : " + Typ$
  
  LoadFilesToList(Dir$,Typ$,ListFiles())

EndProcedure 

List_Import("D:\Media","*.jpg")

Lorsque je lance j'ai des erreurs dans les valeurs affichées...
Par contre, si je supprime la liste chaînée en paramètre ( voir le code ci-dessous), là ça roule.

Code : Tout sélectionner

Structure TFile
  Name.s
  Size.l
EndStructure

Procedure.l LoadFilesToList(Directory$, Type$)
   
  FileFound.l
  Debug "Directory$ : " + Directory$
  Debug "Type$ : " + Type$
EndProcedure

Procedure List_Import( Dir$, Typ$) 

  NewList ListFiles.TFile()
  
  Debug " Dir$ : " + Dir$
  Debug " Typ$ : " + Typ$
  
  LoadFilesToList(Dir$,Typ$)

EndProcedure 

List_Import("D:\Media","*.jpg")

Si quelqu'un a une idée
Merci.

[comtois]

oui j'ai une idée , attends que ça soit débuggué

regarde ici , surtout à la fin du post
http://forums.purebasic.com/english/vie ... hp?t=19897

Et aussi ici

http://forums.purebasic.com/english/vie ... hp?t=19918

[Sehka]

Merci Comtois,
On t'appelle speedy gonzales
Très intéressant ces liens...Je viens de refaire des tests et voici la solution :

Code : Tout sélectionner

Structure TFile
  Name.s
  Size.l
EndStructure

Procedure.l LoadFilesToList(ListFiles.TFile(),Directory$, Type$)
   
  FileFound.l
  Debug "Directory$ : " + Directory$
  Debug "Type$ : " + Type$
EndProcedure

Procedure List_Import( Dir$, Typ$) 

  NewList ListFiles.TFile()
  
  Debug " Dir$ : " + Dir$
  Debug " Typ$ : " + Typ$
  
  LoadFilesToList(ListFiles(),Dir$,Typ$)

EndProcedure 

List_Import("D:\Media","*.jpg")

En fait dans la construction de la procédure j'ai mis la liste chaînée en premier, c'est fou, non

Je suspecte un Bug
Et toi ?

[Fred]

Effectivement, c'etait un bug maintenant corrigé.

[Sehka]

Ok
Merci FRED...