Smart pascal source code


{ unit e.pas }
unit E;

interface

uses 
  SmartCL.System;

type
   TMyClass = class
      class procedure Test1; safecall;
      procedure Test2; stdcall;
      method Test3; virtual; cdecl;
   end;

implementation

{ TMyClass }
procedure Test4; register;
begin
  //
end;

procedure Test5; overload; pascal;
begin
  //
end;

class procedure TMyClass.Test1;
begin
  Test4;
end;

procedure TMyClass.Test2;
begin
  Test5;
end;

method TMyClass.Test3;
begin
  Test5;
end;

end.

{ uMain.pas }
uses e;

var
  m : TMyClass;

BEGIN
  m := TMyClass.Create;
  m.Test1;
  m.Test2;
  m.Test3;

      var m = null;
      m = TObject.Create($New(TMyClass));
      TMyClass.Test1(m.ClassType);
      TMyClass.Test2(m);
      TMyClass.Test3(m);

var TMyClass = {
   $ClassName:"TMyClass",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   /// procedure TMyClass.Test1()
   ///  [line: 31, column: 26, file: E]
   ,Test1:function(Self) {
      Test4();
   }
   /// procedure TMyClass.Test2()
   ///  [line: 36, column: 20, file: E]
   ,Test2:function(Self) {
      Test5();
   }
   /// method TMyClass.Test3()
   ///  [line: 41, column: 17, file: E]
   ,Test3:function(Self) {
      Test5();
   }
   ,Destroy:TObject.Destroy
};
function Test5() {
   /* null */
};
function Test4() {
   /* null */
};