mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-02-04 05:34:53 +01:00
* handle type changed to thandle in do_isdevice
This commit is contained in:
parent
605ee59e81
commit
d3b5672fea
@ -337,7 +337,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function do_isdevice(handle:longint):boolean;
|
||||
function do_isdevice(handle:THandle):boolean;
|
||||
begin
|
||||
do_isdevice:=false;
|
||||
InOutRes:=0;
|
||||
@ -550,7 +550,10 @@ begin
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.15 2004-09-03 19:25:32 olle
|
||||
Revision 1.16 2004-09-18 11:18:44 hajny
|
||||
* handle type changed to thandle in do_isdevice
|
||||
|
||||
Revision 1.15 2004/09/03 19:25:32 olle
|
||||
+ added maxExitCode to all System.pp
|
||||
* constrained error code to be below maxExitCode in RunError et. al.
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user