paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 20:09:19 +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; end;
{$ASMMODE INTEL} {$ASMMODE INTEL}
function do_isdevice (Handle: longint): boolean; assembler; function do_isdevice (Handle: THandle): boolean; assembler;
(* (*
var HT, Attr: longint; var HT, Attr: longint;
begin begin
@ -1333,7 +1333,10 @@ begin
end. end.
{ {
$Log$ $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 + added maxExitCode to all System.pp
* constrained error code to be below maxExitCode in RunError et. al. * constrained error code to be below maxExitCode in RunError et. al.

7
rtl/go32v2/system.pp
View File

@ -1370,7 +1370,7 @@ begin
end; end;
function do_isdevice(handle:longint):boolean; function do_isdevice(handle:THandle):boolean;
var var
regs : trealregs; regs : trealregs;
begin begin
@ -1623,7 +1623,10 @@ Begin
End. End.
{ {
$Log$ $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 + added maxExitCode to all System.pp
* constrained error code to be below maxExitCode in RunError et. al. * constrained error code to be below maxExitCode in RunError et. al.

7
rtl/os2/system.pas
View File

@ -906,7 +906,7 @@ begin
{$endif} {$endif}
end; end;
function do_isdevice (Handle: longint): boolean; function do_isdevice (Handle: THandle): boolean;
var var
HT, Attr: cardinal; HT, Attr: cardinal;
begin begin
@ -1621,7 +1621,10 @@ begin
end. end.
{ {
$Log$ $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 * missing MaxExitCode added
Revision 1.72 2004/07/18 15:20:38 hajny Revision 1.72 2004/07/18 15:20:38 hajny