Procedimientos INLINE

[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 Noteví]

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