From 8b55c071fa9bdd63b07b72e63868722cf936e20a Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Tue, 3 Jul 2018 20:14:05 +0000
Subject: [PATCH] + declare the readport and writeport methods as inline in the
 interface part of   the ports unit, so the new inlining of in and out
 instructions actually works

git-svn-id: trunk@39364 -
---
 rtl/msdos/ports.pp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/rtl/msdos/ports.pp b/rtl/msdos/ports.pp
index 3a9d9b00b8..d16d140995 100644
--- a/rtl/msdos/ports.pp
+++ b/rtl/msdos/ports.pp
@@ -20,14 +20,14 @@ interface
 
 type
    tport = object
-      procedure writeport(p : word;data : byte);
-      function  readport(p : word) : byte;
+      procedure writeport(p : word;data : byte);inline;
+      function  readport(p : word) : byte;inline;
       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);inline;
+      function  readport(p : word) : word;inline;
       property pp[w : word] : word read readport write writeport;default;
    end;