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

- removed obsolete special case for range checking of cardinal constants

Browse Source 
at compile time
This commit is contained in:
Jonas Maebe 2000-12-20 15:59:40 +00:00
parent fe583e251f
commit f2c918935a
1 changed files with 14 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
compiler/types.pas
View File

@ -792,33 +792,15 @@ implementation
if (def^.deftype=orddef) and
(porddef(def)^.typ=u32bit) then
begin
if lv<=hv then
begin
if (l<lv) or (l>hv) then
begin
if (cs_check_range in aktlocalswitches) then
Message(parser_e_range_check_error)
else
Message(parser_w_range_check_error);
end;
error := true;
end
else
{ 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 < cardinal(lv)) or
(l > cardinal(hv)) then
begin
if (cs_check_range in aktlocalswitches) then
Message(parser_e_range_check_error)
else
Message(parser_w_range_check_error);
end;
error := true;
end;
if (l < cardinal(lv)) or
(l > cardinal(hv)) then
begin
if (cs_check_range in aktlocalswitches) then
Message(parser_e_range_check_error)
else
Message(parser_w_range_check_error);
error := true;
end;
end
else if (l<lv) or (l>hv) then
begin
@ -1740,7 +1722,11 @@ implementation
end.
{
$Log$
Revision 1.26 2000-12-11 19:13:54 jonas
Revision 1.27 2000-12-20 15:59:40 jonas
- removed obsolete special case for range checking of cardinal constants
at compile time
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)