mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 19:39:20 +02:00
* handle in do_* changed to THandle
This commit is contained in:
parent
514215ea0d
commit
915800af51
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user