paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 20:09:18 +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 else if is_constrealnode(p) and
(torddef(t.def).typ=scurrency) (torddef(t.def).typ=scurrency)
{ allow bootstrapping } { allow bootstrapping }
{$ifndef VER1_0} {$ifdef VER1_0}
and (trealconstnode(p).value_real*10000 >= low(int64)) and and (trealconstnode(p).value_real*10000 >= low(int64)) and
(trealconstnode(p).value_real*10000 <= high(int64)) (trealconstnode(p).value_real*10000 <= high(int64))
{$endif ndef VER1_0} {$endif VER1_0}
then then
begin 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); intvalue:=round(trealconstnode(p).value_real*10000);
{$endif VER1_0}
end end
else else
begin begin
@ -1092,7 +1097,10 @@ implementation
end. end.
{ {
$Log$ $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 * logs truncated
Revision 1.87 2004/06/18 15:16:46 peter 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 } MaxDateTime: TDateTime = 2958465.99999; { 12/31/9999 11:59:59.999 PM }
{$ifndef VER1_0} {$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; MinCurrency: Currency = -922337203685477.5807;
MaxCurrency: Currency = 922337203685477.5807; MaxCurrency: Currency = 922337203685477.5807;
{$else} {$else}
@ -190,7 +190,10 @@ function BCDToInt(Value: integer): integer;
{ {
$Log$ $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 * fixed some bootstrapping problems as well as some 64 bit stuff
Revision 1.5 2004/06/12 13:23:17 michael Revision 1.5 2004/06/12 13:23:17 michael