paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 06:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bootstrapping problems

Browse Source
This commit is contained in:
florian 2004-06-20 20:41:47 +00:00
parent 835505d547
commit 61cf2984c7
2 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/ptconst.pas
View File

@ -192,13 +192,18 @@ implementation
else if is_constrealnode(p) and
(torddef(t.def).typ=scurrency)
{ allow bootstrapping }
{$ifndef VER1_0}
{$ifdef VER1_0}
and (trealconstnode(p).value_real*10000 >= low(int64)) and
(trealconstnode(p).value_real*10000 <= high(int64))
{$endif ndef VER1_0}
{$endif VER1_0}
then
begin
{$ifdef VER1_0}
{ only trunc is 64 bit in 1.0.x so use trunc here to allow bootstrapping }
intvalue:=trunc(trealconstnode(p).value_real*10000);
{$else VER1_0}
intvalue:=round(trealconstnode(p).value_real*10000);
{$endif VER1_0}
end
else
begin
@ -1092,7 +1097,10 @@ implementation
end.
{
$Log$
Revision 1.88 2004-06-20 08:55:30 florian
Revision 1.89 2004-06-20 20:41:47 florian
* fixed bootstrapping problems
Revision 1.88 2004/06/20 08:55:30 florian
* logs truncated
Revision 1.87 2004/06/18 15:16:46 peter

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

@ -45,7 +45,7 @@ const
MaxDateTime: TDateTime = 2958465.99999; { 12/31/9999 11:59:59.999 PM }
{$ifndef VER1_0}
{$if defined(FPC_HAS_TYPE_EXTENDED) or defined(FPC_HAS_TYPE_FLOAT)}
{$if defined(FPC_HAS_TYPE_EXTENDED) or defined(FPC_HAS_TYPE_FLOAT128)}
MinCurrency: Currency = -922337203685477.5807;
MaxCurrency: Currency = 922337203685477.5807;
{$else}
@ -190,7 +190,10 @@ function BCDToInt(Value: integer): integer;
{
$Log$
Revision 1.6 2004-06-13 10:49:50 florian
Revision 1.7 2004-06-20 20:42:37 florian
* fixed bootstrapping problems
Revision 1.6 2004/06/13 10:49:50 florian
* fixed some bootstrapping problems as well as some 64 bit stuff
Revision 1.5 2004/06/12 13:23:17 michael