Discussion :

[parhelie]

Bonjour,

Je suis en train de traduire un de mes vieux projets Delphi pour Lazarus CodeTyphon.
Tout se passe plutôt bien avec les outils de conversion. Super

Par contre, j'ai une erreur que je traque et je tombe sur ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
type ...
Plot3D = Array[1..21,1..3] of extended;
...
var ...
Cdef: Plot3d;
...
 
 for i := 2 to 5 do
    begin
    Cdef[i,1]:= (x2-x1)/5*(I-1)+x1 ;
    Jonct[3].Eval(Cdef[i,1],Cdef[i,2],Cdef[i,3]);
    end;

J'ai mis un point d'arrêt sur la ligne 13, quelques points de suivi et voici le résultat au second passage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
i                               3
x1                            547.904
x2                            0
(x2-x1)/5*(I-1)+x1   328.7426
Cdef[i,1]                  0
Cdef[2,1]                 473.2240
Cdef[3,1]                 0

Par la suite, je n'obtiens plus que des '0' dans le tableau.
ça m'a rappelé un phénomène que j'avais déjà rencontré avec l'optimisation de code, j'ai donc encadré ce bout de code des directives {$o-} et {$o+}, sans succès.

Inutile de préciser que ça tournait sous Delphi comme ça.

Merci de votre aide,

Patrick

[parhelie]

Mon projet au départ tourne sous Win (delphi), et maintenant, je veux le compiler pour Linux.
A tout hazard, je l'ai recompilé sous CodeTyphon + Win, et là, miracle, ça roule!

Et je ne suis pas plus avancé!

[tintinux]

Bonjour,

Dans ton code, on ne voit pas quand Cdef[i,2],Cdef[i,3] recoivent une valeur.
On ne sait pas ce que sont Jonct et Eval, et s'ils servent à cela ?

[parhelie]

Merci Tintinux pour ta réponse.

Dans ton code, on ne voit pas quand Cdef[i,2],Cdef[i,3] recoivent une valeur.
On ne sait pas ce que sont Jonct et Eval, et s'ils servent à cela ?

Bien deviné, mais ça n'est pas le problème.

En ligne 13, tu vois que j'assigne une valeur à Cdef[i,1].
Quand i = 3, dans cet exemple d'exécution, cette valeur est (x2-x1)/5*(I-1)+x1 = 328.7426 (ligne 5 de mes points de suivi)

ET ligne 8

Cdef[3,1] = 0!

L'assignation n'a pas fonctionné! C'est la dessus que je bute.

[tourlourou]

Je ne sais pas pourquoi, mais avec un code de test similaire sous Windows, j'obtenais une erreur à l'exécution jusqu'à ce que j'initialise la variable Cdef grâce à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FillByte(Cdef, SizeOf(Cdef), 0);

[tourlourou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Button2Click(Sender: TObject);
type
  Plot3D = Array[1..21,1..3] of Extended;
var
  Cdef: Plot3d;
  i: integer;
  x1, x2, z: Extended;
begin
  //FillByte(Cdef, SizeOf(Cdef), 0);
  x1 := 547.904;
  x2 := 0;
  for i := 2 to 5 do
    begin
    Cdef[i,1]:= (x2-x1)/5*(I-1)+x1 ;
    Cdef[i,2] := Cdef[i,1] * Cdef[i,3];
    end;
  ShowMessage(FloatToStr(Cdef[3,1]));
 
end;

passe sans problème sous Ubuntu et CT64 mais pas sans le FillByte sous Windows7 et CT32...

[parhelie]

Merci tourlourou d'avoir repris mon code.

Si je fais la même chose que toi, Ubuntu T64, ça va.
pour autant, mon pgm entier ne tourne pas sous ubuntu T64. (sous WT60, oui)
Si je rajoute .

FillByte(Cdef, SizeOf(Cdef), 0);
ça n'arrange rien!

Un problème de débordement?
Ma langue au chat. (ou au toutou d'oubountoulourou).