Procedimientos INLINE

[Ñuño Martínez]

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?

[dec]

Hola,

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

[Ñuño Martínez]

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

[dec]

Hola,

Empezado por Ñuño Martínez

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

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...

[ecfisa]

Hola.

Al parecer el funcionamiento es similar en Lazarus:

11.9.4 inline:
Procedures that are declared inline are copied to the places where they are called. This has the effect that there is no actual procedure call, the code of the procedure is just copied to where the procedure is needed, this results in faster execution speed if the function or procedure is used a lot. It is obvious that inlining large functions does not make sense.

By default, inline procedures are not allowed. Inline code must be enabled using the command-line switch -Si or {$inline on} directive.

Remark:

1. inline is only a hint for the compiler. This does not automatically mean that all calls are inlined; sometimes
   the compiler may decide that a function simply cannot be inlined, or that a particular call to the function cannot be inlined. If so, the compiler will emit a warning.
   
2. In old versions of Free Pascal, inline code was not exported from a unit. This meant that when calling an inline procedure from another unit, a normal procedure call will be performed. Only inside units, Inline procedures are really inlined. As of version 2.0.2, inline works accross units.
3. Recursive inline functions are not allowed. i.e. an inline function that calls itself is not allowed.

(http://lazarus-ccr.sourceforge.net/f...7-14400011.9.4)

Saludos

[roman]

Pero esto del inline, ¿qué es?

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

// Saludos

[dec]

Hola,

Empezado por roman

Pero esto del inline, ¿qué es?

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

// Saludos

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

[[Al González]]

Empezado por dec

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.

[Ñuño Martínez]

Empezado por dec

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...

En realidad, ese "alguien" he sido yo.

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).

Empezado por dec

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

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

[Casimiro Notevi]

Empezado por Ñuño Martínez

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

Juraría haberlo usado alguna vez en delphi 5

[[nlsgarcia]]

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:

Empezado por embarcadero

New Delphi language features since Delphi 7

Espero sea útil

Nelson.

[roman]

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

[roman]

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

[[nlsgarcia]]

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

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

Espero sea útil

Nelson.

[roman]

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

[Ñuño Martínez]

Empezado por nlsgarcia

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.

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

[[nlsgarcia]]

Ñuño Martínez,

Empezado por Ñuño Martínez

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

Revisa esta imagen:



Espero sea útil

Nelson.

[Ñuño Martínez]

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