Pointeur vers pointeur et fonction NewHandle dans (Think) Pascal

Question

Quel est le but de Pascal pour déclarer une variable pointeur sur un pointeur? J'ai un code dans Mac Think Pascal. Voici certaines parties du code que je ne comprends pas:

type 
    my_array = array[1..100] of integer; 
    my_array_pointer = ^my_array; 
    my_array_handle = ^my_array_pointer; 
    ... 
var 
    xx : my_array_handle; 
    ... 
begin 
    xx:= my_array_handle(NewHandle(sizeof(my_array))); 

Comme vous le voyez, la dernière ligne est une affectation d'un type my_array_handle à la variable xx. Qu'est-ce que ça veut dire? Que fait la fonction NewHandle? (Ceci est une fonction interne de Think Pascal). En fait, je dois convertir un programme Think Pascal en Windows Pascal. Cependant, je ne trouve pas la description de la fonction NewHandle, et je ne sais pas comment implémenter cette fonction en utilisant les fonctions de pointeur standard (New(), GetMem() etc).

Answer 1

Ceci est une fonctionnalité classique de macos, pas typiquement quelque chose de Pascal.

Je ne sais pas exactement, mais cela avait quelque chose à voir avec la relocalisation du programme chargé dans un environnement non-MP.

Notez que le pointeur indirect est alloué via une fonction OS, ce qui signifie probablement qu'il est alloué dans une table qui est gérée par le système d'exploitation. (pour que le système d'exploitation puisse déplacer/déplacer le programme?)

Dans la programmation Mac moderne (et autre), ce principe est étranger. Juste le nettoyer.

(ajouté) Si vous voulez garder ces redirections, vous pouvez tenter votre chance avec quelque chose comme:

 function newhandle(nrbytes:integer):ppointer; 
    var xx : ppointer; 
    begin 
     new(xx); 
     getmem(xx^,nrbytes); 
     newhandle:=xx; 
    end; 

Je n'ai pas ajouté cette origine, mais je vous recommande simplement nettoyer ces références indirectes anachroniques et utilisent des pointeurs basés sur my_array_pointer et getmem ou new directement.

La signification de ces références indirectes n'a aucune utilité sur les systèmes Mac OS classiques autres que m68k, même si les versions ultérieures de PPC les supportent encore un peu. (Le mode PPC est toujours protégé)

Si vous voulez vraiment les détails, vous voudrez probablement vous abonner à la liste mac-pascal.