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

* use Windows THandle

Browse Source
This commit is contained in:
peter 2003-06-05 14:45:06 +00:00
parent d204c70f35
commit 38985f89ca
3 changed files with 33 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fv/fvcommon.pas
View File

@ -62,6 +62,11 @@ UNIT FVCommon;
{$I Platform.inc}
{====================================================================}
{$ifdef win32}
uses
Windows;
{$endif}
{***************************************************************************}
{ PUBLIC CONSTANTS }
{***************************************************************************}
@ -153,7 +158,7 @@ TYPE
THandle = LongInt; { Handles are 32 bits }
{$ENDIF}
{$IFDEF OS_WINDOWS} { WIN/NT DEFINITIONS }
THandle = sw_Integer; { Can be either }
THandle = Windows.THandle; { Can be either }
{$ENDIF}
{$IFDEF OS_OS2} { OS2 DEFINITIONS }
THandle = sw_Integer; { Can be either }
@ -416,7 +421,10 @@ END;
END.
{
$Log$
Revision 1.4 2002-09-07 15:06:36 peter
Revision 1.5 2003-06-05 14:45:06 peter
* use Windows THandle
Revision 1.4 2002/09/07 15:06:36 peter
* old logs removed and tabs fixed
Revision 1.3 2002/06/04 11:12:41 marco

12
fvision/fvcommon.pas
View File

@ -62,6 +62,11 @@ UNIT FVCommon;
{$I Platform.inc}
{====================================================================}
{$ifdef win32}
uses
Windows;
{$endif}
{***************************************************************************}
{ PUBLIC CONSTANTS }
{***************************************************************************}
@ -153,7 +158,7 @@ TYPE
THandle = LongInt; { Handles are 32 bits }
{$ENDIF}
{$IFDEF OS_WINDOWS} { WIN/NT DEFINITIONS }
THandle = sw_Integer; { Can be either }
THandle = Windows.THandle; { Can be either }
{$ENDIF}
{$IFDEF OS_OS2} { OS2 DEFINITIONS }
THandle = sw_Integer; { Can be either }
@ -416,7 +421,10 @@ END;
END.
{
$Log$
Revision 1.4 2002-09-07 15:06:36 peter
Revision 1.5 2003-06-05 14:45:06 peter
* use Windows THandle
Revision 1.4 2002/09/07 15:06:36 peter
* old logs removed and tabs fixed
Revision 1.3 2002/06/04 11:12:41 marco

14
rtl/inc/objects.pp
View File

@ -59,6 +59,11 @@ UNIT Objects;
{$V-} { Turn off strict VAR strings }
{====================================================================}
{$ifdef win32}
uses
Windows;
{$endif}
{***************************************************************************}
{ PUBLIC CONSTANTS }
{***************************************************************************}
@ -148,7 +153,11 @@ TYPE
{---------------------------------------------------------------------------}
type
FNameStr = String;
{$ifdef win32}
THandle = Windows.THandle;
{$else}
THandle = longint;
{$endif}
const
MaxReadBytes = $7fffffff;
invalidhandle = -1;
@ -2901,7 +2910,10 @@ END;
END.
{
$Log$
Revision 1.18 2003-01-05 16:27:05 hajny
Revision 1.19 2003-06-05 14:45:56 peter
* use Windows THandle
Revision 1.18 2003/01/05 16:27:05 hajny
* PString inherited from System
Revision 1.17 2002/12/07 14:37:15 carl