diff --git a/rtl/inc/dosh.inc b/rtl/inc/dosh.inc
index 0fda4f3fbe..5286fb933f 100644
--- a/rtl/inc/dosh.inc
+++ b/rtl/inc/dosh.inc
@@ -68,9 +68,11 @@ Type
 Var
   DosError : integer;
 
+{$ifdef cpui386}
 {Interrupt}
 Procedure Intr(intno: byte; var regs: registers);
 Procedure MSDos(var regs: registers);
+{$endif cpui386}
 
 {Info/Date/Time}
 Function  DosVersion: Word;