paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 09:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* handle in do_* changed to THandle

Browse Source
This commit is contained in:
Tomas Hajny 2004-05-16 20:39:59 +00:00
parent 514215ea0d
commit 915800af51
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/emx/system.pas
View File

@ -352,7 +352,7 @@ begin
if p[i]='/' then p[i]:='\'; if p[i]='/' then p[i]:='\';
end; end;
procedure do_close(h:longint); procedure do_close (H: THandle);
begin begin
{ Only three standard handles under real OS/2 } { Only three standard handles under real OS/2 }
@ -402,7 +402,7 @@ begin
end ['eax', 'edx', 'edi']; end ['eax', 'edx', 'edi'];
end; end;
function do_read(h:longint;addr:pointer;len:longint):longint; assembler; function do_read (H: THandle; Addr: pointer; Len: longint): longint; assembler;
asm asm
pushl %ebx pushl %ebx
{$IFNDEF REGCALL} {$IFNDEF REGCALL}
@ -421,7 +421,8 @@ asm
popl %ebx popl %ebx
end {['eax', 'ebx', 'ecx', 'edx']}; end {['eax', 'ebx', 'ecx', 'edx']};
function do_write(h:longint;addr:pointer;len:longint) : longint; assembler; function do_write (H: THandle; Addr: pointer; Len: longint): longint;
assembler;
asm asm
pushl %ebx pushl %ebx
{$IFDEF REGCALL} {$IFDEF REGCALL}
@ -443,7 +444,7 @@ asm
popl %ebx popl %ebx
end {['eax', 'ebx', 'ecx', 'edx']}; end {['eax', 'ebx', 'ecx', 'edx']};
function do_filepos(handle:longint): longint; assembler; function do_filepos (Handle: THandle): longint; assembler;
asm asm
pushl %ebx pushl %ebx
{$IFDEF REGCALL} {$IFDEF REGCALL}
@ -461,7 +462,7 @@ asm
popl %ebx popl %ebx
end {['eax', 'ebx', 'ecx', 'edx']}; end {['eax', 'ebx', 'ecx', 'edx']};
procedure do_seek(handle,pos:longint); assembler; procedure do_seek (Handle: THandle; Pos: longint); assembler;
asm asm
pushl %ebx pushl %ebx
{$IFDEF REGCALL} {$IFDEF REGCALL}
@ -478,7 +479,7 @@ asm
popl %ebx popl %ebx
end {['eax', 'ebx', 'ecx', 'edx']}; end {['eax', 'ebx', 'ecx', 'edx']};
function do_seekend(handle:longint):longint; assembler; function do_seekend (Handle: THandle): longint; assembler;
asm asm
pushl %ebx pushl %ebx
{$IFDEF REGCALL} {$IFDEF REGCALL}
@ -496,7 +497,7 @@ asm
popl %ebx popl %ebx
end {['eax', 'ebx', 'ecx', 'edx']}; end {['eax', 'ebx', 'ecx', 'edx']};
function do_filesize(handle:longint):longint; function do_filesize (Handle: THandle): longint;
var aktfilepos:longint; var aktfilepos:longint;
@ -506,7 +507,7 @@ begin
do_seek(handle,aktfilepos); do_seek(handle,aktfilepos);
end; end;
procedure do_truncate(handle,pos:longint); assembler; procedure do_truncate (Handle: THandle; Pos: longint); assembler;
asm asm
pushl %ebx pushl %ebx
(* DOS function 40h isn't safe for this according to EMX documentation *) (* DOS function 40h isn't safe for this according to EMX documentation *)
@ -1318,7 +1319,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.24 2004-04-22 21:10:56 peter Revision 1.25 2004-05-16 20:39:59 hajny
* handle in do_* changed to THandle
Revision 1.24 2004/04/22 21:10:56 peter
* do_read/do_write addr argument changed to pointer * do_read/do_write addr argument changed to pointer
Revision 1.23 2004/01/20 23:05:31 hajny Revision 1.23 2004/01/20 23:05:31 hajny