Sepi

Name
  MakeProcOfRegisterMethod

Parent
  ScDelphiLanguage

Visibility
  PUBLIC

Description
  Construit une routine équivalente à une méthode register
MakeProcOfMethod permet d'obtenir un pointeur sur une routine, construite
dynamiquement, qui équivaut à une méthode. Ce qui signifie que la routine
renvoyée commence par ajouter un paramètre supplémentaire, avant d'appeler
la méthode initiale.
La procédure devra être libérée avec FreeProcOfMethod une fois utilisée.
Vous devez déterminer UsedRegCount et MoveStackCount d'après la délcaration de
la *procédure*. UsedRegCount est le nombre de registres utilisés pour la
transmission des paramètres (dans l'ordre EAX, EDX et ECX). Si les trois sont
utilisés, le paramètre MoveStackCount doit renseigner le nombre de "cases" de
pile (de doubles mots) utilisés par les paramètres déclarés *après* le
paramètre transmis dans ECX.

Source code
  function MakeProcOfRegisterMethod ( const Method : TMethod ; UsedRegCount : Byte ; MoveStackCount : Word = 0 ) : Pointer

Parameters
 
Parameter Description
Method : TMethod Méthode à convertir
UsedRegCount : BYTE Nombre de registres utilisés dans l'appel de procédure
MoveStackCount : WORD Nombre de cases de pile empilées après ECX

Return
 
Types Description
Pointer Pointeur vers le code de la procédure créée

Sepi


Copyright (c) 2006-2010 Sébastien Doeraene
Created with DelphiCodeToDoc. To obtain the latest revision, please visit http://dephicodetodoc.sourceforge.net/