paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 13:29:29 +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} {$I Platform.inc}
{====================================================================} {====================================================================}
{$ifdef win32}
uses
Windows;
{$endif}
{***************************************************************************} {***************************************************************************}
{ PUBLIC CONSTANTS } { PUBLIC CONSTANTS }
{***************************************************************************} {***************************************************************************}
@ -153,7 +158,7 @@ TYPE
THandle = LongInt; { Handles are 32 bits } THandle = LongInt; { Handles are 32 bits }
{$ENDIF} {$ENDIF}
{$IFDEF OS_WINDOWS} { WIN/NT DEFINITIONS } {$IFDEF OS_WINDOWS} { WIN/NT DEFINITIONS }
THandle = sw_Integer; { Can be either } THandle = Windows.THandle; { Can be either }
{$ENDIF} {$ENDIF}
{$IFDEF OS_OS2} { OS2 DEFINITIONS } {$IFDEF OS_OS2} { OS2 DEFINITIONS }
THandle = sw_Integer; { Can be either } THandle = sw_Integer; { Can be either }
@ -416,7 +421,10 @@ END;
END. END.
{ {
$Log$ $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 * old logs removed and tabs fixed
Revision 1.3 2002/06/04 11:12:41 marco 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} {$I Platform.inc}
{====================================================================} {====================================================================}
{$ifdef win32}
uses
Windows;
{$endif}
{***************************************************************************} {***************************************************************************}
{ PUBLIC CONSTANTS } { PUBLIC CONSTANTS }
{***************************************************************************} {***************************************************************************}
@ -153,7 +158,7 @@ TYPE
THandle = LongInt; { Handles are 32 bits } THandle = LongInt; { Handles are 32 bits }
{$ENDIF} {$ENDIF}
{$IFDEF OS_WINDOWS} { WIN/NT DEFINITIONS } {$IFDEF OS_WINDOWS} { WIN/NT DEFINITIONS }
THandle = sw_Integer; { Can be either } THandle = Windows.THandle; { Can be either }
{$ENDIF} {$ENDIF}
{$IFDEF OS_OS2} { OS2 DEFINITIONS } {$IFDEF OS_OS2} { OS2 DEFINITIONS }
THandle = sw_Integer; { Can be either } THandle = sw_Integer; { Can be either }
@ -416,7 +421,10 @@ END;
END. END.
{ {
$Log$ $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 * old logs removed and tabs fixed
Revision 1.3 2002/06/04 11:12:41 marco 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 } {$V-} { Turn off strict VAR strings }
{====================================================================} {====================================================================}
{$ifdef win32}
uses
Windows;
{$endif}
{***************************************************************************} {***************************************************************************}
{ PUBLIC CONSTANTS } { PUBLIC CONSTANTS }
{***************************************************************************} {***************************************************************************}
@ -148,7 +153,11 @@ TYPE
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
type type
FNameStr = String; FNameStr = String;
{$ifdef win32}
THandle = Windows.THandle;
{$else}
THandle = longint; THandle = longint;
{$endif}
const const
MaxReadBytes = $7fffffff; MaxReadBytes = $7fffffff;
invalidhandle = -1; invalidhandle = -1;
@ -2901,7 +2910,10 @@ END;
END. END.
{ {
$Log$ $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 * PString inherited from System
Revision 1.17 2002/12/07 14:37:15 carl Revision 1.17 2002/12/07 14:37:15 carl