paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 01:29:41 +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; pguid = ^tguid;
tguid = packed record tguid = packed record
D1: LongWord; case integer of
D2: Word; 1 : (
D3: Word; Data1 : DWord;
D4: array[0..7] of Byte; Data2 : word;
Data3 : word;
Data4 : array[0..7] of byte;
);
2 : (
D1 : DWord;
D2 : word;
D3 : word;
D4 : array[0..7] of byte;
);
end; end;
pinterfaceentry = ^tinterfaceentry; pinterfaceentry = ^tinterfaceentry;
@ -270,7 +279,10 @@
end; end;
{ {
$Log$ $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 moved to systemh
+ some types like PDispatch added + some types like PDispatch added