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

* make HResult unique type

Browse Source
This commit is contained in:
peter 2003-04-01 15:36:31 +00:00
parent 06a8a4e5d1
commit 51219f6cad
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/systemh.inc
View File

@ -176,9 +176,9 @@ Type
{$ifndef HASCURRENCY}
Currency = Int64;
{$endif HASCURRENCY}
HRESULT = Longint;
TDateTime = Double;
Error = Longint;
HRESULT = type Longint;
TDateTime = type Double;
Error = type Longint;
PSingle = ^Single;
PDouble = ^Double;
@ -665,7 +665,10 @@ const
{
$Log$
Revision 1.64 2003-03-17 14:30:11 peter
Revision 1.65 2003-04-01 15:36:31 peter
* make HResult unique type
Revision 1.64 2003/03/17 14:30:11 peter
* changed address parameter/return values to pointer instead
of longint