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

* handle type changed to thandle in do_isdevice

Browse Source
This commit is contained in:
Tomas Hajny 2004-09-18 11:12:09 +00:00
parent 9e930c445d
commit 605ee59e81
3 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/emx/system.pas
View File

@ -705,7 +705,7 @@ begin
end;
{$ASMMODE INTEL}
function do_isdevice (Handle: longint): boolean; assembler;
function do_isdevice (Handle: THandle): boolean; assembler;
(*
var HT, Attr: longint;
begin
@ -1333,7 +1333,10 @@ begin
end.
{
$Log$
Revision 1.27 2004-09-03 19:25:41 olle
Revision 1.28 2004-09-18 11:12:49 hajny
* handle type changed to thandle in do_isdevice
Revision 1.27 2004/09/03 19:25:41 olle
+ added maxExitCode to all System.pp
* constrained error code to be below maxExitCode in RunError et. al.

7
rtl/go32v2/system.pp
View File

@ -1370,7 +1370,7 @@ begin
end;
function do_isdevice(handle:longint):boolean;
function do_isdevice(handle:THandle):boolean;
var
regs : trealregs;
begin
@ -1623,7 +1623,10 @@ Begin
End.
{
$Log$
Revision 1.38 2004-09-03 19:25:49 olle
Revision 1.39 2004-09-18 11:17:17 hajny
* handle type changed to thandle in do_isdevice
Revision 1.38 2004/09/03 19:25:49 olle
+ added maxExitCode to all System.pp
* constrained error code to be below maxExitCode in RunError et. al.

7
rtl/os2/system.pas
View File

@ -906,7 +906,7 @@ begin
{$endif}
end;
function do_isdevice (Handle: longint): boolean;
function do_isdevice (Handle: THandle): boolean;
var
HT, Attr: cardinal;
begin
@ -1621,7 +1621,10 @@ begin
end.
{
$Log$
Revision 1.73 2004-09-11 19:43:11 hajny
Revision 1.74 2004-09-18 11:12:09 hajny
* handle type changed to thandle in do_isdevice
Revision 1.73 2004/09/11 19:43:11 hajny
* missing MaxExitCode added
Revision 1.72 2004/07/18 15:20:38 hajny