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

* In TP-style INLINE, allowed the > modifier for global vars and relaxed range checks.

Browse Source
This commit is contained in:
Yuriy Sydorov 2021-08-16 17:35:23 +03:00
parent fdaa1a12d0
commit 3ca73da912
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pstatmnt.pas
View File

@ -1161,6 +1161,8 @@ implementation
else else
def:=sizesinttype; def:=sizesinttype;
end; end;
if cv.uvalue>get_max_value(def).uvalue then
def:=get_unsigned_inttype(def);
adaptrange(def,cv,rc_implicit); adaptrange(def,cv,rc_implicit);
result:=cv.svalue; result:=cv.svalue;
end; end;
@ -1239,7 +1241,7 @@ implementation
begin begin
{ Address of the static symbol or base offset for local symbols } { Address of the static symbol or base offset for local symbols }
consume(_ID); consume(_ID);
if (sym.typ=staticvarsym) and (actype<>aitconst_128bit) then if (sym.typ=staticvarsym) and not (actype in [aitconst_128bit,aitconst_ptr]) then
Message1(type_e_integer_expr_expected,sym.name); Message1(type_e_integer_expr_expected,sym.name);
{ Additional offset } { Additional offset }
if token in [_PLUS,_MINUS] then if token in [_PLUS,_MINUS] then