Procedimientos INLINE
 

Resulta que unos programadores han trabajado en adaptar uno de mis proyectos a Delphi. El resultado no me gusta mucho (demasiados {$ifdef ...}) así que estoy haciéndolo más bonito.

Mi duda está en que ellos han puesto todos los modificadores "INLINE" dentro de directivas {$ifdef...} para que únicamente se usen en FreePascal. Hace mucho que no manejo Delphi, pero recuerdo que sí admitía INLINE, incluso si se diera el caso de no poder aplicarlo (por opciones, o por el tipo de procedimiento o lo que fuese) simplemente lo ignora y lo compila como una llamada "normal".

¿Acaso ha cambiado esto desde Delphi 6/7?

Hola,

Acabo de leer este texto y no se mencionan cambios. Echa tú un vistazo Ñuño que seguro te resulta útil. ;)

Por lo que leo parece que funciona igual que antes. O sea, que si puede hacerlo lo hace, y si no, simplemente lo ignora.

Hola,

Eso parece. Se trata de una sugerencia para el compilador, pero, este puede hacer lo que crea más conveniente. Supongo que lo normal es no usar "inline" si de veras no se trata de conseguir la optimización prometida. O en Lazarus esto funciona de otra forma o a alguien se le ha ocurrido que usando "inline" a tutiplén es mejor...

Hola.

Al parecer el funcionamiento es similar en Lazarus:
(http://lazarus-ccr.sourceforge.net/f...7-14400011.9.4)

Saludos :)

Pero esto del inline, ¿qué es?

Lo pruebo en Delphi 7 y no compila. ¿No será más bien una funcionalidad nueva?

// Saludos

Hola,

Luego de buscar un poco por Google parece que la directiva "inline" se introdujo en Delphi 2005. ;)

Oh, sí. ;) http://www.clubdelphi.com/foros/showthread.php?t=15848

InLine permite que una rutina sea compilada como si fuera parte del código de las rutinas que la llaman (su código máquina queda insertado en el lugar de la llamada en vez de la instrucción Call). Esto permite ahorrar algo de CPU (normalmente mejora la velocidad de ejecución), a cambio de un ligero aumento en el tamaño del módulo ejecutable. Considerando las excepciones ya mencionadas.

Un saludo.

En realidad, ese "alguien" he sido yo. :D

Todos esos procedimientos y funciones con "INLINE" de mi proyecto se deben a que son "moldes" para llamar a funciones C. Es decir, hacen una simple llamada, nada más. Al menos en Free Pascal funcionan como dice Al González, por lo tanto sí optimizan (no hace dos llamadas seguidas, sino sólo una, a la función C).

Pues yo juraría haberlo usado con Delphi 6... ¿Habré inventado ese recuerdo? :confused:

Juraría haberlo usado alguna vez en delphi 5

Club Delphi,

Revisen este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function SumNum(x1, x2 : Double) : Double; Inline;
begin
   Result := x1 + x2;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   x1, x2 : Double;
begin
   Randomize;
   x1 := Random(100) + Random;
   x2 := Random(100) + Random;
   ShowMessage(FormatFloat('#,###,###.00',SumNum(x1,x2)));
end;

end.

El código de prueba anterior con la directiva Inline compilo y funciono correctamente en Delphi 2006, Delphi 2010 y Delphi XE4, no compilo en Delphi 7.

La directiva Inline fue incorporada a Delphi después de la versión 7 según esta información:
Espero sea útil :)

Nelson.

Este es un claro ejemplo de cómo puede recordarse el futuro :)

Aunque posiblemente la confusión venga de que, al parecer, inline sí existía en versiones más antiguas. La ayuda de delphi 7 la mencion como algo obsoleto. A mi me parece recordar, sin embargo, que ese uso antiguo de inline tenía más que ver con poner directamente en el código instrucciones del cpu (más que en esamblador).

El uso de ahora, según lo describen, más se asemeja a los -también muy antiguos- macros de C. O sea que, como quien dice, se reinventó la rueda :)

// Saludos

Miren, aquí un ejemplo:

Código Delphi [-]
procedure PrintScreen;
begin
  inline($55/$CD/$05/$5D);
end;

Tomado de http://www.aprendeaprogramar.com/mod...iew.php?id=472.

// Saludos

Roman,

Revisa esta información tomada de la ayuda de Delphi 7:



Pregunto: ¿Compatibilidad con que si no compila en Delphi 7?, he probado el código que propones en el Msg #13 y da error de compilación en Delphi 7 :confused:

Revisa este código:

Código Delphi [-]
procedure PrintScreen;
begin
  asm
    push bp
    int 5
    pop bp
  end
end;

El código anterior es equivalente al propuesto en el Msg #13 y si compila en Delphi 7, aunque da error de Access Violation en ejecución :(

Según entiendo por este link (Ampliación 5. Ensamblador desde Turbo Pascal), esta directiva era parte de Turbo Pascal, de ahí quizás se originen los comentarios de los mensajes anteriores :rolleyes:

Espero sea útil :)

Nelson.

Sí, ya había visto esa parte de la ayuda y sí que es raro. Primero pensé que no compilaba porque había puesto el inline como si fuera una directiva (como en el uso actual), pero probándolo como en el ejemplo del PrintScreen tampoco. Quizá el texto de la ayuda quedó de delphi 6 o menor, o quizá requiera alguna directiva de compilación pero no veo cuál puede ser.

// Saludos

¿Que no compila en Delphi7? ¿Con qué mensaje de error?

Ñuño Martínez,

Revisa esta imagen:



Espero sea útil :)

Nelson.

Pues tendré que rebuscar en mis viejos cedeses, a ver si encuentro mi copia de Delphi 6 "de evaluación (:rolleyes:)", y comprobarlo. Porque ya digo que recuerdo haber usado inline en esa época...