paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 12:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* set the stdcall calling convention explicitly for each method, that requires

Browse Source 
it, instead of using {$calling stdcall} in the go32v2 ports unit

git-svn-id: trunk@39402 -
This commit is contained in:
nickysn 2018-07-06 15:59:26 +00:00
parent 8df686ed2e
commit 3673f03841
3 changed files with 12 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/go32v2/ports.pp
View File

@ -16,10 +16,6 @@
unit ports;
{$ifdef VER3_0}
{$Calling StdCall}
{$endif VER3_0}
{$inline ON}
interface

12
rtl/i386/ports.inc
View File

@ -19,7 +19,7 @@
{ to give easy port access like tp with port[] }
{$ifdef VER3_0}
procedure tport.writeport(p : word;data : byte);assembler;
procedure tport.writeport(p : word;data : byte);assembler;stdcall;
asm
movw p,%dx
movb data,%al
@ -27,14 +27,14 @@ asm
end;
function tport.readport(p : word) : byte;assembler;
function tport.readport(p : word) : byte;assembler;stdcall;
asm
movw p,%dx
inb %dx,%al
end;
procedure tportw.writeport(p : word;data : word);assembler;
procedure tportw.writeport(p : word;data : word);assembler;stdcall;
asm
movw p,%dx
movw data,%ax
@ -42,14 +42,14 @@ asm
end;
function tportw.readport(p : word) : word;assembler;
function tportw.readport(p : word) : word;assembler;stdcall;
asm
movw p,%dx
inw %dx,%ax
end;
procedure tportl.writeport(p : word;data : longint);assembler;
procedure tportl.writeport(p : word;data : longint);assembler;stdcall;
asm
movw p,%dx
movl data,%eax
@ -57,7 +57,7 @@ asm
end;
function tportl.readport(p : word) : longint;assembler;
function tportl.readport(p : word) : longint;assembler;stdcall;
asm
movw p,%dx
inl %dx,%eax

12
rtl/i386/portsh.inc
View File

@ -17,20 +17,20 @@
type
{$ifdef VER3_0}
tport = object
procedure writeport(p : word;data : byte);
function readport(p : word) : byte;
procedure writeport(p : word;data : byte);stdcall;
function readport(p : word) : byte;stdcall;
property pp[w : word] : byte read readport write writeport;default;
end;
tportw = object
procedure writeport(p : word;data : word);
function readport(p : word) : word;
procedure writeport(p : word;data : word);stdcall;
function readport(p : word) : word;stdcall;
property pp[w : word] : word read readport write writeport;default;
end;
tportl = object
procedure writeport(p : word;data : longint);
function readport(p : word) : longint;
procedure writeport(p : word;data : longint);stdcall;
function readport(p : word) : longint;stdcall;
property pp[w : word] : longint read readport write writeport;default;
end;
{$else VER3_0}