paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 01:09:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* guid additions

Browse Source
This commit is contained in:
peter 2001-10-20 19:27:55 +00:00
parent e2719218f8
commit 5a634ebba4
3 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/tbf/tb0111.pp Normal file
View File

@ -0,0 +1,13 @@
{ %VERSION=1.1 }
{$ifdef fpc}{$mode objfpc}{$endif}
type
imyinterface2 = interface
procedure p;
end;
const
iid_imyinterface2 = imyinterface2;
begin
end.

2
tests/tbs/tb0371.pp
View File

@ -1,6 +1,6 @@
{ %VERSION=1.1 } { %VERSION=1.1 }
{$mode delphi} {$mode delphi}
unit test; unit tb0371;
interface interface

8
tests/tbs/tb0372.pp
View File

@ -1,4 +1,7 @@
{ %VERSION=1.1 } { %VERSION=1.1 }
{$ifdef fpc}{$mode objfpc}{$endif}
{$J+}
type type
imyinterface = interface imyinterface = interface
// this program isn't supposed to run so the guid doesn't matter } // this program isn't supposed to run so the guid doesn't matter }
@ -8,10 +11,13 @@ type
const const
iid_imyinterface = imyinterface; iid_imyinterface = imyinterface;
iid2 : tguid = '{00000000-0000-0000-0000-000000000000}';
var var
g : tguid; g : tguid;
begin begin
g:=imyinterface; g:=imyinterface;
g:=iid_imyinterface;
g:=iid2;
iid2:=iid_imyinterface;
end. end.