Discussion :

[Roland Chastain]

Bonjour !

En travaillant sur le sujet du défi 2012, j'ai rencontré une erreur de compilation que je ne m'explique pas très bien.

Voici un exemple :

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
20
21
22
23
24
25
program Exemple;
 
{$IfDef VirtualPascal}
{&PmType Vio}
{$Else}
{$IfnDef Ver70}{$AppType Console}{$EndIf}
{$EndIf}
 
type
  t1 = array[0..1] of integer;
  t2 = array[0..2] of t1;
 
const
  c1: t1 = (2,3);
  c2: t1 = (4,0);
 
var
  v: t2;
 
begin
  v[0] := c1;
 
  if v[0] = c1 then { erreur 41 } 
    WriteLn('RAS');
end.

Comment se fait-il qu'on puisse attribuer la valeur, mais pas la tester ?

[Alcatîz]

Bonjour,

En Pascal, la comparaison de deux tableaux ne peut se faire avec l'opérateur "=".

Il y a diverses manières de contourner le problème, la seule limite étant l'imagination.
Par exemple :

Code :

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

1
2
3
Uses {...}, Strings;
 
if StrLComp(pChar(@v[0]),pChar(@c1),SizeOf(t1)) = 0 then

(tordu mais performant)

[Roland Chastain]

Très instructif. Merci Alcatîz !

[Paul TOTH]

CompareMem() me semble plus indiqué

[Roland Chastain]

Merci Paul pour la réponse. Cela fait une corde de plus à mon arc.

Code :

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

  if SysUtils.CompareMem(@v[0], @c1, SizeOf(t1)) then

[Alcatîz]

Le code Assembleur généré par les deux fonctions est pratiquement identique.

P.S. Je n'arrive pas à obtenir l'output Assembleur avec l'éditeur natif de Free Pascal, comment fait-on ?

[Paul TOTH]

Le code Assembleur généré par les deux fonctions est pratiquement identique.

P.S. Je n'arrive pas à obtenir l'output Assembleur avec l'éditeur natif de Free Pascal, comment fait-on ?

sous Delphi 6, StrLComp utilise SCASB alors que CompareMem commence par un "REPE CMPSD" 32bits, c'est supposé être plus rapide

et avec Delphi >= 2009 il vaut mieux utiliser des pointeurs que des PChar à mon avis

je viens de regarder sous XE2, StrLComp en version PChar utilise des PWideChar, ce qui double la paramètre MaxLen ! ... quand au code CompareMem il est très surprenant, je ne suis pas assez calé en Assembleur pour avoir une idée objective sur ce code mais il me semble anormalement complexe.

[Roland Chastain]

P.S. Je n'arrive pas à obtenir l'output Assembleur avec l'éditeur natif de Free Pascal, comment fait-on ?

Je viens de trouver une manière de le faire avec la ligne de commande. Voici mon fichier .bat :

Code :

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

1
2
3
4
5
6
@echo off
rem Compilation FreePascal
set c="C:\FPC\bin\i386-win32\ppc386.exe"
set f="factorielle.pas"
%c% -a %f%
pause

Soit dit en passant, j'ai aussi trouvé comment enlever le dessin du bureau : il suffit de supprimer le fichier fp.ans.