Browse Source

+ also added the fpc_x86_*port* intrinsics to the i386 system unit

git-svn-id: trunk@39369 -
nickysn 7 years ago
parent
commit
a1bf5e2f07
1 changed files with 6 additions and 0 deletions
  1. 6 0
      rtl/i386/cpuh.inc

+ 6 - 0
rtl/i386/cpuh.inc

@@ -26,3 +26,9 @@ const
   has_sse3_support : boolean = false;
   has_mmx_support : boolean = false;
 
+function fpc_x86_inportb(port : word) : byte;[internproc:fpc_in_x86_inportb];
+function fpc_x86_inportw(port : word) : word;[internproc:fpc_in_x86_inportw];
+function fpc_x86_inportl(port : word) : longint;[internproc:fpc_in_x86_inportl];
+procedure fpc_x86_outportb(port : word;data : byte);[internproc:fpc_in_x86_outportb];
+procedure fpc_x86_outportw(port : word;data : word);[internproc:fpc_in_x86_outportw];
+procedure fpc_x86_outportl(port : word;data : longint);[internproc:fpc_in_x86_outportl];