paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 07:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Compile fix

Browse Source
This commit is contained in:
daniel 2004-07-03 14:06:35 +00:00
parent 4fb9894eff
commit bbd7f75dbd
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ptconst.pas
View File

@ -193,8 +193,10 @@ implementation
(torddef(t.def).typ=scurrency) (torddef(t.def).typ=scurrency)
{ allow bootstrapping } { allow bootstrapping }
{$ifdef VER1_0} {$ifdef VER1_0}
and (trealconstnode(p).value_real*10000 >= low(int64)) and { I get IE 10 here. I guess it's no problem if a 1.0 bootstrapped
(trealconstnode(p).value_real*10000 <= high(int64)) compiler doesn't display the error here.
and (trealconstnode(p).value_real*10000 >= real(low(int64))) and
(trealconstnode(p).value_real*10000 <= real(high(int64)))}
{$endif VER1_0} {$endif VER1_0}
then then
begin begin
@ -1097,7 +1099,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.89 2004-06-20 20:41:47 florian Revision 1.90 2004-07-03 14:06:35 daniel
* Compile fix
Revision 1.89 2004/06/20 20:41:47 florian
* fixed bootstrapping problems * fixed bootstrapping problems
Revision 1.88 2004/06/20 08:55:30 florian Revision 1.88 2004/06/20 08:55:30 florian