diff --git a/compiler/i386/cpupi.pas b/compiler/i386/cpupi.pas
index ac7854746c..12fabfd61c 100644
--- a/compiler/i386/cpupi.pas
+++ b/compiler/i386/cpupi.pas
@@ -33,7 +33,7 @@ unit cpupi;
 
     type
        ti386procinfo = class(tcgprocinfo)
-          procedure allocate_interrupt_stackframe;override;
+          procedure allocate_interrupt_parameter;override;
           procedure allocate_framepointer;override;
        end;
 
@@ -41,9 +41,9 @@ unit cpupi;
   implementation
 
     uses
-      cgbase;
+      cgbase, cpubase, rgobj;
 
-    procedure ti386procinfo.allocate_interrupt_stackframe;
+    procedure ti386procinfo.allocate_interrupt_parameter;
       begin
          { we push Flags and CS as long
            to cope with the IRETD
@@ -69,7 +69,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.6  2003-06-12 16:43:07  peter
+  Revision 1.7  2003-06-12 18:12:49  jonas
+    * fixed compilation problems
+
+  Revision 1.6  2003/06/12 16:43:07  peter
     * newra compiles for sparc
 
   Revision 1.5  2003/05/25 10:26:15  peter