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

* regcall fixes

Browse Source
This commit is contained in:
Tomas Hajny 2004-03-21 20:18:39 +00:00
parent 7915d0e38c
commit b0c948a143
1 changed files with 68 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
rtl/os2/ports.pas
View File

@ -29,7 +29,6 @@ unit Ports;
{ This unit uses classes so ObjFpc mode is required. } { This unit uses classes so ObjFpc mode is required. }
{$Mode ObjFpc} {$Mode ObjFpc}
{$calling StdCall}
interface interface
@ -71,75 +70,137 @@ implementation
{Import syscall to call it nicely from assembler procedures.} {Import syscall to call it nicely from assembler procedures.}
procedure syscall; external name '___SYSCALL'; procedure syscall; external name '___SYSCALL';
{$WARNING Still using EMX - has to be updated once native linking available!}
{$AsmMode ATT} {$AsmMode ATT}
procedure TPort.WritePort (P: word; Data: byte); assembler; procedure TPort.WritePort (P: word; Data: byte); assembler;
asm asm
xorl %ecx, %ecx xorl %ecx, %ecx
{$IFDEF REGCALL}
movw %ax, %cx
pushl %edx
pushl %ecx
{$ELSE REGCALL}
movw P, %cx movw P, %cx
{$ENDIF REGCALL}
movl %ecx, %edx movl %ecx, %edx
movw $0x7F12, %ax movw $0x7F12, %ax
call syscall call syscall
{$IFDEF REGCALL}
popl %edx
popl %eax
{$ELSE REGCALL}
movw P, %dx movw P, %dx
movb Data, %al movb Data, %al
{$ENDIF REGCALL}
outb %al, %dx outb %al, %dx
end {['eax', 'ecx', 'edx']}; end {['eax', 'ecx', 'edx']};
function TPort.ReadPort (P: word): byte; assembler; function TPort.ReadPort (P: word): byte; assembler;
asm asm
xorl %ecx, %ecx xorl %ecx, %ecx
{$IFDEF REGCALL}
movw %ax, %cx
{$ELSE REGCALL}
movw P, %cx movw P, %cx
pushl %ecx
{$ENDIF REGCALL}
movl %ecx, %edx movl %ecx, %edx
movw $0x7F12, %ax movw $0x7F12, %ax
call syscall call syscall
{$IFDEF REGCALL}
popl %edx
{$ELSE REGCALL}
movw P, %dx movw P, %dx
{$ENDIF REGCALL}
inb %dx, %al inb %dx, %al
end {['eax', 'ecx', 'edx']}; end {['eax', 'ecx', 'edx']};
procedure TPortW.WritePort (P: word; Data : word); assembler; procedure TPortW.WritePort (P: word; Data : word); assembler;
asm asm
xorl %ecx, %ecx xorl %ecx, %ecx
{$IFDEF REGCALL}
movw %ax, %cx
pushl %edx
pushl %ecx
{$ELSE REGCALL}
movw P, %cx movw P, %cx
{$ENDIF REGCALL}
movl %ecx, %edx movl %ecx, %edx
movw $0x7F12, %ax movw $0x7F12, %ax
call syscall call syscall
{$IFDEF REGCALL}
popl %edx
popl %eax
{$ELSE REGCALL}
movw P, %dx movw P, %dx
movw Data, %ax movw Data, %ax
{$ENDIF REGCALL}
outw %ax, %dx outw %ax, %dx
end {['eax', 'ecx', 'edx']}; end {['eax', 'ecx', 'edx']};
function TPortW.ReadPort (P: word): word; assembler; function TPortW.ReadPort (P: word): word; assembler;
asm asm
xorl %ecx, %ecx xorl %ecx, %ecx
{$IFDEF REGCALL}
movw %ax, %cx
pushl %ecx
{$ELSE REGCALL}
movw P, %cx movw P, %cx
{$ENDIF REGCALL}
movl %ecx, %edx movl %ecx, %edx
movw $0x7F12, %ax movw $0x7F12, %ax
call syscall call syscall
{$IFDEF REGCALL}
popl %edx
{$ELSE REGCALL}
movw P, %dx movw P, %dx
{$ENDIF REGCALL}
inw %dx, %ax inw %dx, %ax
end {['eax', 'ecx', 'edx']}; end {['eax', 'ecx', 'edx']};
procedure TPortL.WritePort (P: word; Data: longint); assembler; procedure TPortL.WritePort (P: word; Data: longint); assembler;
asm asm
xorl %ecx, %ecx xorl %ecx, %ecx
{$IFDEF REGCALL}
movw %ax, %cx
pushl %edx
pushl %ecx
{$ELSE REGCALL}
movw P, %cx movw P, %cx
{$ENDIF REGCALL}
movl %ecx, %edx movl %ecx, %edx
movw $0x7F12, %ax movw $0x7F12, %ax
call syscall call syscall
{$IFDEF REGCALL}
popl %edx
popl %eax
{$ELSE REGCALL}
movw P, %dx movw P, %dx
movl Data, %eax movl Data, %eax
{$ENDIF REGCALL}
outl %eax, %dx outl %eax, %dx
end {['eax', 'ecx', 'edx']}; end {['eax', 'ecx', 'edx']};
function TPortL.ReadPort (P: word): longint; assembler; function TPortL.ReadPort (P: word): longint; assembler;
asm asm
xorl %ecx, %ecx xorl %ecx, %ecx
{$IFDEF REGCALL}
movw %ax, %cx
pushl %ecx
{$ELSE REGCALL}
movw P, %cx movw P, %cx
{$ENDIF REGCALL}
movl %ecx, %edx movl %ecx, %edx
movw $0x7F12, %ax movw $0x7F12, %ax
call syscall call syscall
{$IFDEF REGCALL}
popl %edx
{$ELSE REGCALL}
movw P, %dx movw P, %dx
{$ENDIF REGCALL}
inl %dx, %eax inl %dx, %eax
end {['eax', 'ecx', 'edx']}; end {['eax', 'ecx', 'edx']};
@ -147,7 +208,10 @@ end.
{ {
$Log$ $Log$
Revision 1.5 2003-12-04 21:22:38 peter Revision 1.6 2004-03-21 20:18:39 hajny
* regcall fixes
Revision 1.5 2003/12/04 21:22:38 peter
* regcall updates (untested) * regcall updates (untested)
Revision 1.4 2003/10/18 16:58:39 hajny Revision 1.4 2003/10/18 16:58:39 hajny