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

* TGUID definition is now imported from the system unit

Browse Source
This commit is contained in:
florian 2001-04-04 17:58:36 +00:00
parent f9e28f053f
commit 64d54c2fcb
1 changed files with 5 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/win32/wininc/struct.inc
View File

@ -4401,21 +4401,7 @@
TSERVICEADDRESSES = SERVICE_ADDRESSES;
PSERVICEADDRESSES = ^SERVICE_ADDRESSES;
GUID = record
case integer of
1 : (
Data1 : cardinal;
Data2 : word;
Data3 : word;
Data4 : array[0..7] of byte;
);
2 : (
D1 : cardinal;
D2 : word;
D3 : word;
D4 : array[0..7] of byte;
);
end;
GUID = system.tguid;
LPGUID = ^GUID;
_GUID = GUID;
TGUID = GUID;
@ -6961,7 +6947,10 @@ type
{
$Log$
Revision 1.5 2000-12-18 17:28:58 jonas
Revision 1.6 2001-04-04 17:58:36 florian
* TGUID definition is now imported from the system unit
Revision 1.5 2000/12/18 17:28:58 jonas
* fixed range check errors
Revision 1.4 2000/11/21 08:49:14 jonas