Smart pascal source code


type
TMyObj = class
  function GetSelf: TMyObj;
end;

function TMyObj.GetSelf: TMyObj;
begin
  Result := Self;
end;

{ main.pas }

var
  o = TMyObj.Create;

Begin
  if o <> o.GetSelf then
    Writeln('bug');
    WriteLn(o.GetSelf);
  { ### CONSOLE OUTPUTS ###
   {"ClassType":{"$ClassName":"TMyObj","$Parent":{"$ClassName":"TObject","$Parent":null}}}
}

      var o = null,
         o = TObject.Create($New(TMyObj));
      if (o!==TMyObj.GetSelf(o)) {
         WriteLn("bug");
      }
      WriteLn(TMyObj.GetSelf(o));
	  
/// TMyObj = class (TObject)
///  [line: 72, column: 1, file: uMain]
var TMyObj = {
   $ClassName:"TMyObj",$Parent:TObject
   ,$Init:function ($) {
      TObject.$Init($);
   }
   /// function TMyObj.GetSelf() : TMyObj
   ///  [line: 76, column: 17, file: uMain]
   ,GetSelf:function(Self) {
      return Self;
   }
   ,Destroy:TObject.Destroy
};