Exception SigSegv avec TQueue.push(pointeur)

Version imprimable

Bonjour,

J'ai besoin de stocker dans une file de type TQueue une suite de dix entiers.
TQueue.push demande un pointeur. J'ai donc testé

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
type
   PInteger = ^integer; //PInteger est un type "pointeur d'entiers"
 
var
   Pointeur : PInteger; //Pointeur est de type PInteger
   maFile : TQueue;
   i : integer;
 
begin
    maFile.Create;
    writeLn ( 'on enfile ... ');
    new(Pointeur); // Création du pointeur
    for i:= 1 to 10 do
        begin
            writeLn( i );
            Pointeur^ := i; // L'élément pointé reçoit la valeur de i
            maFile.push(Pointeur); // Et on fait avancer la file
        end;
    dispose(Pointeur); //Suppression du pointeur
end.

... qui me fait un beau SigSegv. Là, je ne comprends pas. Puis-je avoir un début d'explication ?

18/09/2010, 20h20
pomalo

bonjour

et

Code:

pointer := @i;

ça donne quoi?

cordialement
Claude

Mille excuses, j'étais certaine d'être abonnée au sujet, ce qui m'aurait permis de voir ta réponse.

Bref !
J'ai trouvé une solution :

Code:

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
26
27
28
29
30
31
32
33
program Test;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes,
  contnrs;   // c'est le unit qui contient TQueue
 
  { you can add units after this }
 
{$IFDEF WINDOWS}{$R Test.rc}{$ENDIF}
 
var
   maFile : TQueue;
   i : integer;
   j : integer;
   Pointeur : ^INTEGER; //Pointeur est de type pointeur d'entiers
 
begin
  new(Pointeur); // Création du pointeur
  maFile:=TQueue.Create; //Création de maFile en tant que TQueue
  writeLn ( 'on enfile ... ');
  for i:= 1 to 10 do
    begin
      writeLn( i );
      Pointeur^ := i; // L'élément pointé reçoit la valeur de i
      maFile.push(Pointeur); // Et on fait avancer la file
    end;
  dispose(Pointeur); //Suppression du pointeur
end.

Étape suivante, trouver comment réussir à sortir les entiers de la file. Car, comme de juste, un bête

Code:

1
2
3
4
5
6
7
8
  new(Pointeur);
  for i:= maFile.Count downto 1 do
    begin
      Pointeur := maFile.pop;
      j := Pointeur^;
      writeLn(j);
    end;
  dispose(Pointeur);

m'affiche tout sauf "10, 9, 8, 7, 6, 5, 4, 3, 2, 1". (ça aurait été étonnant.)