diff --git a/rtl/objpas/sysutils/sysstr.inc b/rtl/objpas/sysutils/sysstr.inc
index 6e958cd049..0980f8310e 100644
--- a/rtl/objpas/sysutils/sysstr.inc
+++ b/rtl/objpas/sysutils/sysstr.inc
@@ -1246,10 +1246,12 @@ Begin
   Result := TextToFloat(PChar(S), Value, fvDouble);
 End;
 
+{$ifdef FPC_HAS_TYPE_EXTENDED}
 Function TryStrToFloat(Const S : String; Var Value: Extended): Boolean;
 Begin
   Result := TextToFloat(PChar(S), Value);
 End;
+{$endif FPC_HAS_TYPE_EXTENDED}
 
 Function FloatToStr(Value: Extended): String;
 Begin
@@ -2335,7 +2337,10 @@ const
 
 {
   $Log$
-  Revision 1.25  2005-01-16 17:53:27  michael
+  Revision 1.26  2005-01-17 18:38:48  peter
+    * extended overload disabled for powerpc
+
+  Revision 1.25  2005/01/16 17:53:27  michael
   + Patch from Colin Western to implemenet TryStrToFLoat
 
   Revision 1.24  2004/12/26 13:04:30  peter
diff --git a/rtl/objpas/sysutils/sysstrh.inc b/rtl/objpas/sysutils/sysstrh.inc
index 1aad2651a1..895664e261 100644
--- a/rtl/objpas/sysutils/sysstrh.inc
+++ b/rtl/objpas/sysutils/sysstrh.inc
@@ -141,7 +141,9 @@ Function StrToFloat(Const S : String) : Extended;
 Function StrToFloatDef(Const S: String; Const Default: Extended): Extended;
 Function TryStrToFloat(Const S : String; Var Value: Single): Boolean;
 Function TryStrToFloat(Const S : String; Var Value: Double): Boolean;
+{$ifdef FPC_HAS_TYPE_EXTENDED}
 Function TryStrToFloat(Const S : String; Var Value: Extended): Boolean;
+{$endif FPC_HAS_TYPE_EXTENDED}
 Function TextToFloat(Buffer: PChar; Var Value: Extended): Boolean;
 Function TextToFloat(Buffer: PChar; Var Value; ValueType: TFloatValue): Boolean;
 Function FloatToText(Buffer: PChar; Value: Extended; format: TFloatFormat; Precision, Digits: Integer): Longint;
@@ -198,7 +200,10 @@ function BCDToInt(Value: integer): integer;
 
 {
   $Log$
-  Revision 1.12  2005-01-16 17:53:27  michael
+  Revision 1.13  2005-01-17 18:38:48  peter
+    * extended overload disabled for powerpc
+
+  Revision 1.12  2005/01/16 17:53:27  michael
   + Patch from Colin Western to implemenet TryStrToFLoat
 
   Revision 1.11  2004/12/19 17:55:38  michael