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

* TGUID definition from win32/wininc/struct.inc copied

Browse Source
This commit is contained in:
florian 2001-04-04 17:56:45 +00:00
parent 4e2655cdc5
commit f9e28f053f
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/inc/objpash.inc
View File

@ -69,10 +69,19 @@
pguid = ^tguid;
tguid = packed record
D1: LongWord;
D2: Word;
D3: Word;
D4: array[0..7] of Byte;
case integer of
1 : (
Data1 : DWord;
Data2 : word;
Data3 : word;
Data4 : array[0..7] of byte;
);
2 : (
D1 : DWord;
D2 : word;
D3 : word;
D4 : array[0..7] of byte;
);
end;
pinterfaceentry = ^tinterfaceentry;
@ -270,7 +279,10 @@
end;
{
$Log$
Revision 1.9 2001-03-22 23:26:37 florian
Revision 1.10 2001-04-04 17:56:45 florian
* TGUID definition from win32/wininc/struct.inc copied
Revision 1.9 2001/03/22 23:26:37 florian
* some types moved to systemh
+ some types like PDispatch added