Discussion :

[tintinux]

Bonjour

Je cherche quelqu'un qui pourrait essayer de compiler mon projet gestinux (0.5) en Linux 64 bits, car on m'a signalé une erreur de compilation que je n'ai pas en 32 bits, et je n'ai pas de machine 64 bits.

J'ai expliqué comment faire (en anglais) dans cette page et je suis bien entendu prêt à vous donner toute l'information qui manquerait.

Merci !

[pomalo]

Bonjour Tintinux

Sur la page cité. Tu dit utiliser Zeos 6.6.6
zeosdbo 6 n'est pas compatible 64 bits. le 64 bits à été ajouté dans la version 7

Linux.
* #0000190 [normal] 64-bit support : first step (comon + mysql driver)

dans le changelog de la version 7 béta.

Il faut aussi faire des modifications mineures dans le code en modifiant le type de certain pointeurs pour les rendre compatible 64bits

c'est comme ça que j'ai du procéder pour compiler une de mes applications sur une Debian amd64
PS il y a un patch 64bits qui traine pour la version 6 mais j'ai jamais réussis à installer le composant patché

cordialement
Claude

[tintinux]

OK, merci pour l'info, il faut effectivement patcher ou installer la bonne version de Zeos.

Cependant, il y a d'abord et surtout une erreur dans la compilation du source applicatif, avec un message qui parle de code assembleur et qui me fait plutôt penser à un bug dans le compilateur 64 bits :

Code :

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

1
2
unitreconciliation.pas(169,13) Error: Asm: [movsxd mem64,reg32] invalid combination of opcode and operands
unitreconciliation.pas(557,1) Fatal: There were 1 errors compiling module, stopping

Le code en cause n'est qu'un simple appel de fonctions :

Code :

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

1
2
3
4
5
 
function TFormReconciliation.GetAmount(aRow: integer): integer;
begin
  {169} Result := DecodeAmount(Grid.Cells[Col_Debit, aRow]) - DecodeAmount(Grid.Cells[Col_Credit, aRow]);
end;

Avec la fonction déclarée ainsi :

Code :

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

function  DecodeAmount ( const aString : string ): Integer ;

C'est cette erreur que j'aurais voulu expliquer et si possible éviter...

[CapJack]

Ouch ! De l'assembleur conçu à la base pour du 32 bits... va savoir pourquoi ça le fait pas.

J'aurais bien aimé donner un coup de main, mais l'assembleur 64 bits je connais vraiment pas... le seul conseil que je pourrais te donner est d'ordre général : essaie de te procurer une fonction DecodeAmount écrite en Pascal "pur". Et en général, débarrasse-toi de tout ce qui est en assembleur !

Elle est longue, cette fonction ?

[tintinux]

Bonjour

Non, Non, la fonction DecodeAmount est du "pur pascal", sans assembleur :

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
 
// EmptyString = '' ;
// DecimalMultiplicator = 2 ;
 
function  DecodeAmount ( const aString : string ): Integer ;
 
var
  Curr : Currency ;
 
begin
  result := 0 ;
  if aString <> EmptyString then
  begin
    // can't be done in one instruction
    // SIGSEGV in case aString is not valid
    Curr := StrToCurr(aString);
    result := Round(Curr* DecimalMultiplicator);
  end;
end;

L'erreur de compilation en 64bits est détectée à l'appel de la fonction (appelée très souvent ailleurs), et non pas dans le corps de la fonction.

Il serait intéressant de regarder ce que ça donne sur une machine et un compilateur 64 bits, en ne gardant que :

Code :

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

result := 0 ;

[CapJack]

L'erreur que tu cites vient d'un code en assembleur, non ?

Code :

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

unitreconciliation.pas(169,13) Error: Asm: [movsxd mem64,reg32] invalid combination of opcode and operands

Il n'y aurait pas un include pervers, par hasard ?