fpc/tests/tppu/bug41291/bug41291_mseclasses.pas

unit bug41291_mseclasses;

interface

uses
  bug41291_mclasses,
  bug41291_mseifiglob;

procedure alive(acomponent: TMyType);

implementation

uses
  bug41291_mseapplication;

procedure alive(acomponent: TMyType); inline;
begin
end;


end.