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

* fixed range checking of cardinal constants

Browse Source 
* fixed range checking of "qword constants" (they don't really exist,
    but values > high(int64) were set to zero if assigned to qword)
This commit is contained in:
Jonas Maebe 2000-12-11 19:13:54 +00:00
parent 585b5f2e00
commit 4b7aa484f1
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/types.pas
View File

@ -776,7 +776,9 @@ implementation
begin
if (l<0) and (porddef(def)^.typ=u64bit) then
begin
l:=0;
{ don't zero the result, because it may come from hex notation
like $ffffffffffffffff! (JM)
l:=0; }
if (cs_check_range in aktlocalswitches) then
Message(parser_e_range_check_error)
else
@ -805,9 +807,10 @@ implementation
{ this happens with the wrap around problem }
{ if lv is positive and hv is over $7ffffff }
{ so it seems negative }
{ fix with typecasts (JM) }
begin
if ((l>=0) and (l<lv)) or
((l<0) and (l>hv)) then
if (l < cardinal(lv)) or
(l > cardinal(hv)) then
begin
if (cs_check_range in aktlocalswitches) then
Message(parser_e_range_check_error)
@ -1737,7 +1740,12 @@ implementation
end.
{
$Log$
Revision 1.25 2000-12-08 14:06:11 jonas
Revision 1.26 2000-12-11 19:13:54 jonas
* fixed range checking of cardinal constants
* fixed range checking of "qword constants" (they don't really exist,
but values > high(int64) were set to zero if assigned to qword)
Revision 1.25 2000/12/08 14:06:11 jonas
* fix for web bug 1245: arrays of char with size >255 are now passed to
overloaded procedures which expect ansistrings instead of shortstrings
if possible