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

+ declare the readport and writeport methods as inline in the interface part of

Browse Source 
the ports unit, so the new inlining of in and out instructions actually works

git-svn-id: trunk@39364 -
This commit is contained in:
nickysn 2018-07-03 20:14:05 +00:00
parent ddb501bddf
commit 8b55c071fa
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/msdos/ports.pp
View File

@ -20,14 +20,14 @@ interface
type type
tport = object tport = object
procedure writeport(p : word;data : byte); procedure writeport(p : word;data : byte);inline;
function readport(p : word) : byte; function readport(p : word) : byte;inline;
property pp[w : word] : byte read readport write writeport;default; property pp[w : word] : byte read readport write writeport;default;
end; end;
tportw = object tportw = object
procedure writeport(p : word;data : word); procedure writeport(p : word;data : word);inline;
function readport(p : word) : word; function readport(p : word) : word;inline;
property pp[w : word] : word read readport write writeport;default; property pp[w : word] : word read readport write writeport;default;
end; end;