diff --git a/compiler/new/alpha/cpubase.pas b/compiler/new/alpha/cpubase.pas
index 8769dd751b..8186fb8c60 100644
--- a/compiler/new/alpha/cpubase.pas
+++ b/compiler/new/alpha/cpubase.pas
@@ -203,6 +203,13 @@ procedure disposereference(var r : preference);
 
 function reg2str(r : tregister) : string;
 
+{*****************************************************************************
+                                  Init/Done
+*****************************************************************************}
+
+  procedure InitCpu;
+  procedure DoneCpu;
+  
 implementation
 
 uses
@@ -252,10 +259,25 @@ begin
   r:=Nil;
 end;
 
+{*****************************************************************************
+                                  Init/Done
+*****************************************************************************}
+
+  procedure InitCpu;
+    begin
+    end;
+    
+  procedure DoneCpu;
+    begin
+    end;
+  
 end.
 {
   $Log$
-  Revision 1.13  1999-08-06 16:41:10  jonas
+  Revision 1.14  1999-08-23 23:27:55  pierre
+   + dummy InitCpu/DoneCpu
+
+  Revision 1.13  1999/08/06 16:41:10  jonas
     * PowerPC compiles again, several routines implemented in cgcpu.pas
     * added constant to cpubase of alpha and powerpc for maximum
       number of operands
diff --git a/compiler/new/powerpc/cpubase.pas b/compiler/new/powerpc/cpubase.pas
index d4f925a9ae..430e5bd31c 100644
--- a/compiler/new/powerpc/cpubase.pas
+++ b/compiler/new/powerpc/cpubase.pas
@@ -421,6 +421,13 @@ const
 
     function is_calljmp(o:tasmop):boolean;
 
+{*****************************************************************************
+                                  Init/Done
+*****************************************************************************}
+
+  procedure InitCpu;
+  procedure DoneCpu;
+  
 
 implementation
 
@@ -486,10 +493,25 @@ begin
   new_reference:=r;
 end;
 
+{*****************************************************************************
+                                  Init/Done
+*****************************************************************************}
+
+  procedure InitCpu;
+    begin
+    end;
+    
+  procedure DoneCpu;
+    begin
+    end;
+  
 end.
 {
   $Log$
-  Revision 1.4  1999-08-06 16:41:12  jonas
+  Revision 1.5  1999-08-23 23:27:54  pierre
+   + dummy InitCpu/DoneCpu
+
+  Revision 1.4  1999/08/06 16:41:12  jonas
     * PowerPC compiles again, several routines implemented in cgcpu.pas
     * added constant to cpubase of alpha and powerpc for maximum
       number of operands