usr/share/lazarus/1.6/components/codetools/tests/laztests/bug28877.pas · bee / lazarus v1.6 - deb package | Gemfury

Gemfury

Why Gemfury? Push, build, and install RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

bee / lazarus deb

Repository URL to install this package:

Details

lazarus / usr / share / lazarus / 1.6 / components / codetools / tests / laztests / bug28877.pas

program bug28877;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };

operator := (AValue : Integer) : TGUID;
begin
  Result.Data1{declaration:system.TGUID.Data1};
end;

function Test : TGUID;
begin
  Result.Data1{declaration:system.TGUID.Data1};
end;

begin
end.