Discussion :

[escargot72]

Bonjour

En TurboPascal, j'utilisais GetMem pur créér des tableaux de grande taille (limités à 32000 octets environ).
Pour transposer en FreePascal, j'ai procédé de même. Pour d'autres adaptations dont un programme jumeau cela fonctionne, mais pas ici.

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
 
type indCourt = record
		          nom     : string6;
                  	  adresse : smallInt;
                	  nbFFB   : longint;
                	end;
         tabIndCourt = array [1..1] of indCourt;
 
var CIndex : ^tabIndCourt;
 
procedure CIndex_Filou;
var Nb_W : word;
      vu : boolean;
begin
  vu:=true;
  nb9899:=1850;
  if vu then Erreurs(30,'début de CIndex_Filou');
 
  nb_w:=nb9899*sizeof(indcourt);
  if vu then writeln('total = ',nb_w);      { soit environ 29000 octets }
  if vu then Erreurs(30,'avant getmem');
  GetMem (CIndex, nb_w);
  if vu then Erreurs(30,'fin de CIndex_Filou'); 
end;

Pourriez-vous me donner un conseil ?
Merci
Bernard

[e-ric]

Salut

Qu'est-ce qui ne fonctionne pas au juste ?

cdlt

[escargot72]

Salut

Qu'est-ce qui ne fonctionne pas au juste ?

cdlt

Au lancement du programme, le message apparaît :
An unhandled exception occurs at $00409828 :
EAccessviolation : Access violation
$xyz...
$xyz...
$xyz...
et retour à l'écran Dos.

Voilà !

[e-ric]

Salut

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
26
27
28
29
30
31
32
 
#!/usr/bin/instantfpc
//program GetMemTest; 
 
type indCourt = record
		          nom     : string;
                  	  adresse : smallInt;
                	  nbFFB   : longint;
                	end;
         tabIndCourt = array [1..1] of indCourt;
 
var CIndex : ^tabIndCourt;
 
procedure CIndex_Filou;
var Nb_W : word;
      vu : boolean;
      nb9899: Integer;
begin
  vu:=true;
  nb9899:=1850;
//  if vu then Erreurs(30,'début de CIndex_Filou');
 
  nb_w:=nb9899*sizeof(indcourt);
//  if vu then writeln('total = ',nb_w);      { soit environ 29000 octets }
//  if vu then Erreurs(30,'avant getmem');
  GetMem (CIndex, nb_w);
//  if vu then Erreurs(30,'fin de CIndex_Filou'); 
end;
 
begin
  CIndex_Filou;
end.

J'ai exécuté le code ci-dessus, sous Linux avec InstantFPC, et n'ai pas reproduit le message d'erreur. J'ai dû mettre en commentaires les éléments non déclarés dans ton premier message.

EAccessViolation: sans doute un pointeur dans un état indéfini.

N'as-tu pas plus de détails ? As-tu débogué avec Lazarus p.exe ?

(Ma config = FPC 2.6.4 sous Debian 7.7 Wheezy)

@+

[escargot72]

J'utilise Dev-Pascal et l'outil "Deboguer" ne signale rien.

[e-ric]

Salut

J'ai installé DevPascal (de manière standard) sur une image virtuelle Windows XP (avec VirtualBox). J'ai compilé le même code et exécuté le binaire obtenu, aucun message d'erreur. Utilises-tu des directives de compilation particulières ?

cdlt