paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 14:49:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* extended overload disabled for powerpc

Browse Source
This commit is contained in:
peter 2005-01-17 18:38:48 +00:00
parent 95714e9a4e
commit b89cddc0ec
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/sysutils/sysstr.inc
View File

@ -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

7
rtl/objpas/sysutils/sysstrh.inc
View File

@ -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