+ 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

@@ -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;