mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-25 07:09:17 +02:00
* stdcall fixes again
This commit is contained in:
Tomas Hajny
parent
f659dc38f9
commit
c5df303517
@ -83,7 +83,7 @@ asm
|
||||
movw P, %dx
|
||||
movb Data, %al
|
||||
outb %al, %dx
|
||||
end ['eax', 'ecx', 'edx'];
|
||||
end {['eax', 'ecx', 'edx']};
|
||||
|
||||
function TPort.ReadPort (P: word): byte; assembler;
|
||||
asm
|
||||
@ -94,7 +94,7 @@ asm
|
||||
call syscall
|
||||
movw P, %dx
|
||||
inb %dx, %al
|
||||
end ['eax', 'ecx', 'edx'];
|
||||
end {['eax', 'ecx', 'edx']};
|
||||
|
||||
procedure TPortW.WritePort (P: word; Data : word); assembler;
|
||||
asm
|
||||
@ -106,7 +106,7 @@ asm
|
||||
movw P, %dx
|
||||
movw Data, %ax
|
||||
outw %ax, %dx
|
||||
end ['eax', 'ecx', 'edx'];
|
||||
end {['eax', 'ecx', 'edx']};
|
||||
|
||||
function TPortW.ReadPort (P: word): word; assembler;
|
||||
asm
|
||||
@ -117,7 +117,7 @@ asm
|
||||
call syscall
|
||||
movw P, %dx
|
||||
inw %dx, %ax
|
||||
end ['eax', 'ecx', 'edx'];
|
||||
end {['eax', 'ecx', 'edx']};
|
||||
|
||||
procedure TPortL.WritePort (P: word; Data: longint); assembler;
|
||||
asm
|
||||
@ -129,7 +129,7 @@ asm
|
||||
movw P, %dx
|
||||
movl Data, %eax
|
||||
outl %eax, %dx
|
||||
end ['eax', 'ecx', 'edx'];
|
||||
end {['eax', 'ecx', 'edx']};
|
||||
|
||||
function TPortL.ReadPort (P: word): longint; assembler;
|
||||
asm
|
||||
@ -140,13 +140,16 @@ asm
|
||||
call syscall
|
||||
movw P, %dx
|
||||
inl %dx, %eax
|
||||
end ['eax', 'ecx', 'edx'];
|
||||
end {['eax', 'ecx', 'edx']};
|
||||
|
||||
end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.3 2003-10-07 21:26:35 hajny
|
||||
Revision 1.4 2003-10-18 16:58:39 hajny
|
||||
* stdcall fixes again
|
||||
|
||||
Revision 1.3 2003/10/07 21:26:35 hajny
|
||||
* stdcall fixes and asm routines cleanup
|
||||
|
||||
Revision 1.2 2002/09/07 16:01:25 peter
|
||||
|
||||
@ -394,12 +394,12 @@ function paramcount:longint;assembler;
|
||||
asm
|
||||
movl argc,%eax
|
||||
decl %eax
|
||||
end ['EAX'];
|
||||
end {['EAX']};
|
||||
|
||||
function args:pointer;assembler;
|
||||
asm
|
||||
movl argv,%eax
|
||||
end ['EAX'];
|
||||
end {['EAX']};
|
||||
|
||||
|
||||
function paramstr(l:longint):string;
|
||||
@ -437,7 +437,7 @@ asm
|
||||
call syscall
|
||||
mov word ptr [randseed], cx
|
||||
mov word ptr [randseed + 2], dx
|
||||
end ['eax', 'ecx', 'edx'];
|
||||
end {['eax', 'ecx', 'edx']};
|
||||
|
||||
{$ASMMODE ATT}
|
||||
|
||||
@ -483,19 +483,19 @@ asm
|
||||
jz .LSbrk_End
|
||||
dec %eax { No error - back to previous value }
|
||||
.LSbrk_End:
|
||||
end ['eax', 'edx'];
|
||||
end {['eax', 'edx']};
|
||||
{$ENDIF DUMPGROW}
|
||||
|
||||
function getheapstart:pointer;assembler;
|
||||
|
||||
asm
|
||||
movl heap_base,%eax
|
||||
end ['EAX'];
|
||||
end {['EAX']};
|
||||
|
||||
function getheapsize:longint;assembler;
|
||||
asm
|
||||
movl heap_brk,%eax
|
||||
end ['EAX'];
|
||||
end {['EAX']};
|
||||
|
||||
{$i heap.inc}
|
||||
|
||||
@ -550,6 +550,7 @@ end;
|
||||
|
||||
function do_read(h,addr,len:longint):longint; assembler;
|
||||
asm
|
||||
pushl %ebx
|
||||
movl len,%ecx
|
||||
movl addr,%edx
|
||||
movl h,%ebx
|
||||
@ -559,10 +560,12 @@ asm
|
||||
movw %ax,inoutres;
|
||||
xorl %eax,%eax
|
||||
.LDOSREAD1:
|
||||
end ['eax', 'ebx', 'ecx', 'edx'];
|
||||
popl %ebx
|
||||
end {['eax', 'ebx', 'ecx', 'edx']};
|
||||
|
||||
function do_write(h,addr,len:longint) : longint; assembler;
|
||||
asm
|
||||
pushl %ebx
|
||||
xorl %eax,%eax
|
||||
cmpl $0,len { 0 bytes to write is undefined behavior }
|
||||
jz .LDOSWRITE1
|
||||
@ -574,10 +577,12 @@ asm
|
||||
jnc .LDOSWRITE1
|
||||
movw %ax,inoutres;
|
||||
.LDOSWRITE1:
|
||||
end ['eax', 'ebx', 'ecx', 'edx'];
|
||||
popl %ebx
|
||||
end {['eax', 'ebx', 'ecx', 'edx']};
|
||||
|
||||
function do_filepos(handle:longint): longint; assembler;
|
||||
asm
|
||||
pushl %ebx
|
||||
movw $0x4201,%ax
|
||||
movl handle,%ebx
|
||||
xorl %edx,%edx
|
||||
@ -586,10 +591,12 @@ asm
|
||||
movw %ax,inoutres;
|
||||
xorl %eax,%eax
|
||||
.LDOSFILEPOS:
|
||||
end ['eax', 'ebx', 'ecx', 'edx'];
|
||||
popl %ebx
|
||||
end {['eax', 'ebx', 'ecx', 'edx']};
|
||||
|
||||
procedure do_seek(handle,pos:longint); assembler;
|
||||
asm
|
||||
pushl %ebx
|
||||
movw $0x4200,%ax
|
||||
movl handle,%ebx
|
||||
movl pos,%edx
|
||||
@ -597,10 +604,12 @@ asm
|
||||
jnc .LDOSSEEK1
|
||||
movw %ax,inoutres;
|
||||
.LDOSSEEK1:
|
||||
end ['eax', 'ebx', 'ecx', 'edx'];
|
||||
popl %ebx
|
||||
end {['eax', 'ebx', 'ecx', 'edx']};
|
||||
|
||||
function do_seekend(handle:longint):longint; assembler;
|
||||
asm
|
||||
pushl %ebx
|
||||
movw $0x4202,%ax
|
||||
movl handle,%ebx
|
||||
xorl %edx,%edx
|
||||
@ -609,7 +618,8 @@ asm
|
||||
movw %ax,inoutres;
|
||||
xorl %eax,%eax
|
||||
.Lset_at_end1:
|
||||
end ['eax', 'ebx', 'ecx', 'edx'];
|
||||
popl %ebx
|
||||
end {['eax', 'ebx', 'ecx', 'edx']};
|
||||
|
||||
function do_filesize(handle:longint):longint;
|
||||
|
||||
@ -775,6 +785,7 @@ begin
|
||||
else
|
||||
*)
|
||||
asm
|
||||
push ebx
|
||||
mov ebx, Handle
|
||||
mov eax, 4400h
|
||||
call syscall
|
||||
@ -784,7 +795,8 @@ asm
|
||||
jnz @IsDevEnd
|
||||
dec eax { nope, so result is zero }
|
||||
@IsDevEnd:
|
||||
end ['eax', 'ebx', 'edx'];
|
||||
pop ebx
|
||||
end {['eax', 'ebx', 'edx']};
|
||||
{$ASMMODE ATT}
|
||||
|
||||
|
||||
@ -1165,7 +1177,10 @@ begin
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.47 2003-10-16 15:43:13 peter
|
||||
Revision 1.48 2003-10-18 16:58:39 hajny
|
||||
* stdcall fixes again
|
||||
|
||||
Revision 1.47 2003/10/16 15:43:13 peter
|
||||
* THandle is platform dependent
|
||||
|
||||
Revision 1.46 2003/10/14 21:10:06 hajny
|
||||
|
||||
@ -25,9 +25,6 @@ interface
|
||||
uses
|
||||
Dos;
|
||||
|
||||
type
|
||||
THandle = type Longint;
|
||||
|
||||
{ Include platform independent interface part }
|
||||
{$i sysutilh.inc}
|
||||
|
||||
@ -231,15 +228,9 @@ const
|
||||
specification for DosFindFirst call.}
|
||||
|
||||
{$ASMMODE INTEL}
|
||||
function FileOpen (const FileName: string; Mode: integer): longint;
|
||||
{$IFOPT H+}
|
||||
assembler;
|
||||
{$ELSE}
|
||||
var FN: string;
|
||||
begin
|
||||
FN := FileName + #0;
|
||||
{$ENDIF}
|
||||
function FileOpen (const FileName: string; Mode: integer): longint; assembler;
|
||||
asm
|
||||
push ebx
|
||||
mov eax, Mode
|
||||
(* DenyAll if sharing not specified. *)
|
||||
test eax, 112
|
||||
@ -248,50 +239,24 @@ begin
|
||||
@FOpen1:
|
||||
mov ecx, eax
|
||||
mov eax, 7F2Bh
|
||||
{$IFOPT H+}
|
||||
mov edx, FileName
|
||||
{$ELSE}
|
||||
lea edx, FN
|
||||
inc edx
|
||||
{$ENDIF}
|
||||
call syscall
|
||||
{$IFOPT H-}
|
||||
mov Result, eax
|
||||
{$ENDIF}
|
||||
end ['eax', 'ebx', 'ecx', 'edx'];
|
||||
{$IFOPT H-}
|
||||
end;
|
||||
{$ENDIF}
|
||||
pop ebx
|
||||
end {['eax', 'ebx', 'ecx', 'edx']};
|
||||
|
||||
|
||||
function FileCreate (const FileName: string): longint;
|
||||
{$IFOPT H+}
|
||||
assembler;
|
||||
{$ELSE}
|
||||
var FN: string;
|
||||
begin
|
||||
FN := FileName + #0;
|
||||
{$ENDIF}
|
||||
function FileCreate (const FileName: string): longint; assembler;
|
||||
asm
|
||||
push ebx
|
||||
mov eax, 7F2Bh
|
||||
mov ecx, ofReadWrite or faCreate or doDenyRW (* Sharing to DenyAll *)
|
||||
{$IFOPT H+}
|
||||
mov edx, FileName
|
||||
{$ELSE}
|
||||
lea edx, FN
|
||||
inc edx
|
||||
{$ENDIF}
|
||||
call syscall
|
||||
{$IFOPT H-}
|
||||
mov Result, eax
|
||||
{$ENDIF}
|
||||
end ['eax', 'ebx', 'ecx', 'edx'];
|
||||
{$IFOPT H-}
|
||||
end;
|
||||
{$ENDIF}
|
||||
pop ebx
|
||||
end {['eax', 'ebx', 'ecx', 'edx']};
|
||||
|
||||
|
||||
Function FileCreate (Const FileName : String; Mode:longint) : Longint;
|
||||
function FileCreate (const FileName: string; Mode: longint): longint;
|
||||
begin
|
||||
FileCreate := FileCreate(FileName);
|
||||
end;
|
||||
@ -300,6 +265,7 @@ end;
|
||||
function FileRead (Handle: longint; var Buffer; Count: longint): longint;
|
||||
assembler;
|
||||
asm
|
||||
push ebx
|
||||
mov eax, 3F00h
|
||||
mov ebx, Handle
|
||||
mov ecx, Count
|
||||
@ -308,12 +274,14 @@ asm
|
||||
jnc @FReadEnd
|
||||
mov eax, -1
|
||||
@FReadEnd:
|
||||
end ['eax', 'ebx', 'ecx', 'edx'];
|
||||
pop ebx
|
||||
end {['eax', 'ebx', 'ecx', 'edx']};
|
||||
|
||||
|
||||
function FileWrite (Handle: longint; const Buffer; Count: longint): longint;
|
||||
assembler;
|
||||
asm
|
||||
push ebx
|
||||
mov eax, 4000h
|
||||
mov ebx, Handle
|
||||
mov ecx, Count
|
||||
@ -322,11 +290,13 @@ asm
|
||||
jnc @FWriteEnd
|
||||
mov eax, -1
|
||||
@FWriteEnd:
|
||||
end ['eax', 'ebx', 'ecx', 'edx'];
|
||||
pop ebx
|
||||
end {['eax', 'ebx', 'ecx', 'edx']};
|
||||
|
||||
|
||||
function FileSeek (Handle, FOffset, Origin: longint): longint; assembler;
|
||||
asm
|
||||
push ebx
|
||||
mov eax, Origin
|
||||
mov ah, 42h
|
||||
mov ebx, Handle
|
||||
@ -335,29 +305,32 @@ asm
|
||||
jnc @FSeekEnd
|
||||
mov eax, -1
|
||||
@FSeekEnd:
|
||||
end ['eax', 'ebx', 'edx'];
|
||||
pop ebx
|
||||
end {['eax', 'ebx', 'edx']};
|
||||
|
||||
Function FileSeek (Handle : Longint; FOffset,Origin : Int64) : Int64;
|
||||
function FileSeek (Handle: longint; FOffset, Origin: Int64): Int64;
|
||||
begin
|
||||
{$warning need to add 64bit call }
|
||||
Result:=FileSeek(Handle,Longint(Foffset),Longint(Origin));
|
||||
end;
|
||||
|
||||
procedure FileClose (Handle: longint);
|
||||
begin
|
||||
if Handle > 2 then
|
||||
procedure FileClose (Handle: longint); assembler;
|
||||
asm
|
||||
push ebx
|
||||
mov eax, Handle
|
||||
cmp eax, 2
|
||||
jbe @FCloseEnd
|
||||
mov ebx, eax
|
||||
mov eax, 3E00h
|
||||
mov ebx, Handle
|
||||
call syscall
|
||||
@FCloseEnd:
|
||||
pop ebx
|
||||
end ['eax'];
|
||||
end;
|
||||
end {['eax', 'ebx']};
|
||||
|
||||
|
||||
function FileTruncate (Handle, Size: longint): boolean; assembler;
|
||||
asm
|
||||
push ebx
|
||||
mov eax, 7F25h
|
||||
mov ebx, Handle
|
||||
mov edx, Size
|
||||
@ -371,7 +344,8 @@ asm
|
||||
jnc @FTruncEnd
|
||||
dec eax
|
||||
@FTruncEnd:
|
||||
end ['eax', 'ebx', 'ecx', 'edx'];
|
||||
pop ebx
|
||||
end {['eax', 'ebx', 'ecx', 'edx']};
|
||||
|
||||
|
||||
function FileAge (const FileName: string): longint;
|
||||
@ -388,22 +362,10 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
function FileExists (const FileName: string): boolean;
|
||||
{$IFOPT H+}
|
||||
assembler;
|
||||
{$ELSE}
|
||||
var FN: string;
|
||||
begin
|
||||
FN := FileName + #0;
|
||||
{$ENDIF}
|
||||
function FileExists (const FileName: string): boolean; assembler;
|
||||
asm
|
||||
mov ax, 4300h
|
||||
{$IFOPT H+}
|
||||
mov edx, FileName
|
||||
{$ELSE}
|
||||
lea edx, FN
|
||||
inc edx
|
||||
{$ENDIF}
|
||||
call syscall
|
||||
mov eax, 0
|
||||
jc @FExistsEnd
|
||||
@ -411,13 +373,7 @@ asm
|
||||
jnz @FExistsEnd
|
||||
inc eax
|
||||
@FExistsEnd:
|
||||
{$IFOPT H-}
|
||||
mov Result, eax
|
||||
{$ENDIF}
|
||||
end ['eax', 'ecx', 'edx'];
|
||||
{$IFOPT H-}
|
||||
end;
|
||||
{$ENDIF}
|
||||
end {['eax', 'ecx', 'edx']};
|
||||
|
||||
|
||||
type TRec = record
|
||||
@ -493,6 +449,7 @@ end;
|
||||
|
||||
function FileGetDate (Handle: longint): longint; assembler;
|
||||
asm
|
||||
push ebx
|
||||
mov ax, 5700h
|
||||
mov ebx, Handle
|
||||
call syscall
|
||||
@ -501,7 +458,8 @@ asm
|
||||
mov ax, dx
|
||||
shld eax, ecx, 16
|
||||
@FGetDateEnd:
|
||||
end ['eax', 'ebx', 'ecx', 'edx'];
|
||||
pop ebx
|
||||
end {['eax', 'ebx', 'ecx', 'edx']};
|
||||
|
||||
|
||||
function FileSetDate (Handle, Age: longint): longint;
|
||||
@ -530,128 +488,55 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
function FileGetAttr (const FileName: string): longint;
|
||||
{$IFOPT H+}
|
||||
assembler;
|
||||
{$ELSE}
|
||||
var FN: string;
|
||||
begin
|
||||
FN := FileName + #0;
|
||||
{$ENDIF}
|
||||
function FileGetAttr (const FileName: string): longint; assembler;
|
||||
asm
|
||||
mov ax, 4300h
|
||||
{$IFOPT H+}
|
||||
mov edx, FileName
|
||||
{$ELSE}
|
||||
lea edx, FN
|
||||
inc edx
|
||||
{$ENDIF}
|
||||
call syscall
|
||||
jnc @FGetAttrEnd
|
||||
mov eax, -1
|
||||
@FGetAttrEnd:
|
||||
{$IFOPT H-}
|
||||
mov Result, eax
|
||||
{$ENDIF}
|
||||
end ['eax', 'edx'];
|
||||
{$IFOPT H-}
|
||||
end;
|
||||
{$ENDIF}
|
||||
end {['eax', 'edx']};
|
||||
|
||||
|
||||
function FileSetAttr (const Filename: string; Attr: longint): longint;
|
||||
{$IFOPT H+}
|
||||
assembler;
|
||||
{$ELSE}
|
||||
var FN: string;
|
||||
begin
|
||||
FN := FileName + #0;
|
||||
{$ENDIF}
|
||||
function FileSetAttr (const Filename: string; Attr: longint): longint; assembler;
|
||||
asm
|
||||
mov ax, 4301h
|
||||
mov ecx, Attr
|
||||
{$IFOPT H+}
|
||||
mov edx, FileName
|
||||
{$ELSE}
|
||||
lea edx, FN
|
||||
inc edx
|
||||
{$ENDIF}
|
||||
call syscall
|
||||
mov eax, 0
|
||||
jnc @FSetAttrEnd
|
||||
mov eax, -1
|
||||
@FSetAttrEnd:
|
||||
{$IFOPT H-}
|
||||
mov Result, eax
|
||||
{$ENDIF}
|
||||
end ['eax', 'ecx', 'edx'];
|
||||
{$IFOPT H-}
|
||||
end;
|
||||
{$ENDIF}
|
||||
end {['eax', 'ecx', 'edx']};
|
||||
|
||||
|
||||
function DeleteFile (const FileName: string): boolean;
|
||||
{$IFOPT H+}
|
||||
assembler;
|
||||
{$ELSE}
|
||||
var FN: string;
|
||||
begin
|
||||
FN := FileName + #0;
|
||||
{$ENDIF}
|
||||
function DeleteFile (const FileName: string): boolean; assembler;
|
||||
asm
|
||||
mov ax, 4100h
|
||||
{$IFOPT H+}
|
||||
mov edx, FileName
|
||||
{$ELSE}
|
||||
lea edx, FN
|
||||
inc edx
|
||||
{$ENDIF}
|
||||
call syscall
|
||||
mov eax, 0
|
||||
jc @FDeleteEnd
|
||||
inc eax
|
||||
@FDeleteEnd:
|
||||
{$IFOPT H-}
|
||||
mov Result, eax
|
||||
{$ENDIF}
|
||||
end ['eax', 'edx'];
|
||||
{$IFOPT H-}
|
||||
end;
|
||||
{$ENDIF}
|
||||
end {['eax', 'edx']};
|
||||
|
||||
|
||||
function RenameFile (const OldName, NewName: string): boolean;
|
||||
{$IFOPT H+}
|
||||
assembler;
|
||||
{$ELSE}
|
||||
var FN1, FN2: string;
|
||||
begin
|
||||
FN1 := OldName + #0;
|
||||
FN2 := NewName + #0;
|
||||
{$ENDIF}
|
||||
function RenameFile (const OldName, NewName: string): boolean; assembler;
|
||||
asm
|
||||
push edi
|
||||
mov ax, 5600h
|
||||
{$IFOPT H+}
|
||||
mov edx, OldName
|
||||
mov edi, NewName
|
||||
{$ELSE}
|
||||
lea edx, FN1
|
||||
inc edx
|
||||
lea edi, FN2
|
||||
inc edi
|
||||
{$ENDIF}
|
||||
call syscall
|
||||
mov eax, 0
|
||||
jc @FRenameEnd
|
||||
inc eax
|
||||
@FRenameEnd:
|
||||
{$IFOPT H-}
|
||||
mov Result, eax
|
||||
{$ENDIF}
|
||||
end ['eax', 'edx', 'edi'];
|
||||
{$IFOPT H-}
|
||||
end;
|
||||
{$ENDIF}
|
||||
pop edi
|
||||
end {['eax', 'edx', 'edi']};
|
||||
|
||||
|
||||
{****************************************************************************
|
||||
@ -725,22 +610,10 @@ end;
|
||||
|
||||
|
||||
{$ASMMODE INTEL}
|
||||
function DirectoryExists (const Directory: string): boolean;
|
||||
{$IFOPT H+}
|
||||
assembler;
|
||||
{$ELSE}
|
||||
var FN: string;
|
||||
begin
|
||||
FN := Directory + #0;
|
||||
{$ENDIF}
|
||||
function DirectoryExists (const Directory: string): boolean; assembler;
|
||||
asm
|
||||
mov ax, 4300h
|
||||
{$IFOPT H+}
|
||||
mov edx, Directory
|
||||
{$ELSE}
|
||||
lea edx, FN
|
||||
inc edx
|
||||
{$ENDIF}
|
||||
call syscall
|
||||
mov eax, 0
|
||||
jc @FExistsEnd
|
||||
@ -748,13 +621,7 @@ asm
|
||||
jz @FExistsEnd
|
||||
inc eax
|
||||
@FExistsEnd:
|
||||
{$IFOPT H-}
|
||||
mov Result, eax
|
||||
{$ENDIF}
|
||||
end ['eax', 'ecx', 'edx'];
|
||||
{$IFOPT H-}
|
||||
end;
|
||||
{$ENDIF}
|
||||
end {['eax', 'ecx', 'edx']};
|
||||
|
||||
|
||||
{****************************************************************************
|
||||
@ -764,6 +631,7 @@ end;
|
||||
procedure GetLocalTime (var SystemTime: TSystemTime); assembler;
|
||||
asm
|
||||
(* Expects the default record alignment (word)!!! *)
|
||||
push edi
|
||||
mov ah, 2Ah
|
||||
call syscall
|
||||
mov edi, SystemTime
|
||||
@ -788,7 +656,8 @@ asm
|
||||
shl eax, 16
|
||||
mov al, dh
|
||||
stosd
|
||||
end ['eax', 'ecx', 'edx', 'edi'];
|
||||
pop edi
|
||||
end {['eax', 'ecx', 'edx', 'edi']};
|
||||
{$asmmode default}
|
||||
|
||||
{****************************************************************************
|
||||
@ -886,7 +755,10 @@ end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.33 2003-10-13 21:17:31 hajny
|
||||
Revision 1.34 2003-10-18 16:58:39 hajny
|
||||
* stdcall fixes again
|
||||
|
||||
Revision 1.33 2003/10/13 21:17:31 hajny
|
||||
* longint to cardinal corrections
|
||||
|
||||
Revision 1.32 2003/10/08 05:22:47 yuri
|
||||
|
||||
Loading…
Reference in New Issue
Block a user