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

* Give message that constant expr is expected when a none constant

Browse Source 
is passed to get_ordinal_value
This commit is contained in:
peter 2003-10-07 18:17:44 +00:00
parent 81449fa691
commit 197cc64800
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/ncon.pas
View File

@ -211,13 +211,16 @@ implementation
function get_ordinal_value(p : tnode) : longint;
{$endif INT64FUNCRESOK}
begin
if p.nodetype=ordconstn then
get_ordinal_value:=tordconstnode(p).value
else
begin
Message(type_e_ordinal_expr_expected);
get_ordinal_value:=0;
end;
get_ordinal_value:=0;
if is_constnode(p) then
begin
if p.nodetype=ordconstn then
get_ordinal_value:=tordconstnode(p).value
else
Message(type_e_ordinal_expr_expected);
end
else
Message(type_e_constant_expr_expected);
end;
@ -908,7 +911,11 @@ begin
end.
{
$Log$
Revision 1.53 2003-10-02 21:18:44 peter
Revision 1.54 2003-10-07 18:17:44 peter
* Give message that constant expr is expected when a none constant
is passed to get_ordinal_value
Revision 1.53 2003/10/02 21:18:44 peter
* niln is also a constnode
Revision 1.52 2003/10/01 20:34:48 peter