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

* throw better error when variable values are used as typed consts, resolves #9333

Browse Source 
git-svn-id: trunk@8188 -
This commit is contained in:
florian 2007-07-29 14:29:19 +00:00
parent a24803c63d
commit 70b0bd1c5d
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/ptconst.pas
View File

@ -169,10 +169,19 @@ implementation
{ this procedure reads typed constants }
procedure read_typed_const_data(list:tasmlist;def:tdef);
procedure parse_orddef(list:tasmlist;def:torddef);
procedure parse_orddef(list:tasmlist;def:torddef);
var
n : tnode;
intvalue : tconstexprint;
procedure do_error;
begin
if is_constnode(n) then
IncompatibleTypes(n.resultdef, def)
else
Message(parser_e_illegal_expression);
end;
begin
n:=comp_expr(true);
case def.ordtype of
@ -181,28 +190,28 @@ implementation
if is_constboolnode(n) then
list.concat(Tai_const.Create_8bit(byte(tordconstnode(n).value.svalue)))
else
IncompatibleTypes(n.resultdef, def);
do_error;
end;
bool16bit :
begin
if is_constboolnode(n) then
list.concat(Tai_const.Create_16bit(word(tordconstnode(n).value.svalue)))
else
IncompatibleTypes(n.resultdef, def);
do_error;
end;
bool32bit :
begin
if is_constboolnode(n) then
list.concat(Tai_const.Create_32bit(longint(tordconstnode(n).value.svalue)))
else
IncompatibleTypes(n.resultdef, def);
do_error;
end;
bool64bit :
begin
if is_constboolnode(n) then
list.concat(Tai_const.Create_64bit(int64(tordconstnode(n).value.svalue)))
else
IncompatibleTypes(n.resultdef, def);
do_error;
end;
uchar :
begin
@ -212,7 +221,7 @@ implementation
(tordconstnode(n).value <= 255)) then
list.concat(Tai_const.Create_8bit(byte(tordconstnode(n).value.svalue)))
else
IncompatibleTypes(n.resultdef, def);
do_error;
end;
uwidechar :
begin
@ -221,7 +230,7 @@ implementation
if is_constwidecharnode(n) then
list.concat(Tai_const.Create_16bit(word(tordconstnode(n).value.svalue)))
else
IncompatibleTypes(n.resultdef, def);
do_error;
end;
s8bit,u8bit,
u16bit,s16bit,
@ -243,7 +252,7 @@ implementation
end;
end
else
IncompatibleTypes(n.resultdef, def);
do_error;
end;
scurrency:
begin