Usage de GetMem

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:

---

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

Salut

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

cdlt

Citation:

---

Envoyé par e-ric

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à !

Salut

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

#!/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)

@+

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

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

Pas d'erreur ici non plus (FPC 2.6.4, Windows 8).

J'ai approfondi l'essai et j'ai reproduit ton erreur en exécutant cela :

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 34

program GetMemTest;   uses SysUtils;   type indCourt = record nom : string; adresse : smallInt; nbFFB : longint; end; tabIndCourt = array [1..1] of indCourt;   var CIndex : ^tabIndCourt; CSize: Integer;   begin CSize := 1 * sizeof(indcourt); GetMem (CIndex, CSize); try CIndex^[1].Nom := 'Eric'; CIndex^[2].Nom := 'Autre'; CIndex^[3].Nom := 'Poum!!'; WriteLn(CIndex^[1].Nom); WriteLn(CIndex^[2].Nom); WriteLn(CIndex^[3].Nom); finally FreeMem(CIndex, CSize); end; WriteLn(CIndex^[1].Nom); WriteLn(CIndex^[2].Nom); WriteLn(CIndex^[3].Nom); end.

---

L'erreur se produit dans les dernières lignes (WriteLn) suite à la désallocation par FreeMem, cela semble normal. est-ce que cela s'approche de ton cas ???

Ce qui est moins normal, c'est que j'ai alloué pour un élément de tableau mais les 3 affectations sont acceptées et les 3 premiers WriteLn ne provoquent pas non plus d'erreur, je trouve cela très (très) curieux. Un examen rapide des unités heap.inc et heaph.inc (sous Linux) montre aussi un recalcul de la taille demandée, la taille allouée n'est donc pas celle rigoureusement demandée.

En caviardant le code avec quelques fonctions de la gestion mémoire, on découvre des choses intéressantes (mais mon esprit d'analyse est bien fatigué à cette heure-là).

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 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52

#!/usr/bin/instantfpc //program GetMemTest;   uses SysUtils;   type indCourt = record nom : string; adresse : smallInt; nbFFB : longint; end; tabIndCourt = array [1..1] of indCourt;   var CIndex : ^tabIndCourt; CSize: Integer;   begin CSize := sizeof(indcourt);   writeln('avant GetMem'); WriteLn('CurrHeapFree =', GetFPCHeapStatus.CurrHeapFree); WriteLn('CurrHeapSize =', GetFPCHeapStatus.CurrHeapSize); WriteLn('CurrHeapUsed =', GetFPCHeapStatus.CurrHeapUsed);   GetMem (CIndex, CSize); writeln('après GetMem'); WriteLn('MemSize =', MemSize(CIndex)); WriteLn('CSize =', CSize); WriteLn('CurrHeapFree =', GetFPCHeapStatus.CurrHeapFree); WriteLn('CurrHeapSize =', GetFPCHeapStatus.CurrHeapSize); WriteLn('CurrHeapUsed =', GetFPCHeapStatus.CurrHeapUsed);   CIndex^[1].Nom := 'Eric'; CIndex^[2].Nom := 'Autre'; CIndex^[3].Nom := 'Poum!!';   WriteLn(CIndex^[1].Nom); WriteLn(CIndex^[2].Nom); WriteLn(CIndex^[3].Nom); FreeMem(CIndex, CSize); writeln('après FreeMem'); WriteLn('MemSize =', MemSize(CIndex)); WriteLn('CurrHeapFree =', GetFPCHeapStatus.CurrHeapFree); WriteLn('CurrHeapSize =', GetFPCHeapStatus.CurrHeapSize); WriteLn('CurrHeapUsed =', GetFPCHeapStatus.CurrHeapUsed);   WriteLn(CIndex^[1].Nom); WriteLn(CIndex^[2].Nom); WriteLn(CIndex^[3].Nom); end.

---

Si quelqu'un a des informations claires sur le sujet, ce serait intéressant de les partager.

@+

Merci à tous les deux.
J'utilise devPascal sous window7.
Mon pgm adapté provient de turboPascal, jamais je n'ai eu de problème, de ce type avec windowsXP.
Par ailleurs, j'ai adapté le pgm jumeau (il a des données un peu différentes par commodité), il ne m'indique pas d'erreurs.

Bernard