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

* fixed crash

Browse Source
This commit is contained in:
peter 1999-05-06 21:40:16 +00:00
parent 4e4a83bfe8
commit 9abbb34b34
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/pexpr.pas
View File

@ -537,8 +537,7 @@ unit pexpr;
procedure handle_procvar(procvar : pprocvardef;var t : ptree); procedure handle_procvar(procvar : pprocvardef;var t : ptree);
begin begin
if (t^.treetype=calln) and if ((procvar^.options and pomethodpointer)<>0) then
((procvar^.options and pomethodpointer)<>0) then
begin begin
if (t^.methodpointer^.resulttype^.deftype=objectdef) and if (t^.methodpointer^.resulttype^.deftype=objectdef) and
(pobjectdef(t^.methodpointer^.resulttype)^.isclass) and (pobjectdef(t^.methodpointer^.resulttype)^.isclass) and
@ -1946,12 +1945,15 @@ unit pexpr;
begin begin
p:=comp_expr(true); p:=comp_expr(true);
do_firstpass(p); do_firstpass(p);
if (p^.treetype<>ordconstn) and if not codegenerror then
(p^.resulttype^.deftype=orddef) and begin
not(Porddef(p^.resulttype)^.typ in [uvoid,uchar,bool8bit,bool16bit,bool32bit]) then if (p^.treetype<>ordconstn) and
Message(cg_e_illegal_expression) (p^.resulttype^.deftype=orddef) and
else not(Porddef(p^.resulttype)^.typ in [uvoid,uchar,bool8bit,bool16bit,bool32bit]) then
get_intconst:=p^.value; Message(cg_e_illegal_expression)
else
get_intconst:=p^.value;
end;
disposetree(p); disposetree(p);
end; end;
@ -1980,8 +1982,8 @@ unit pexpr;
end. end.
{ {
$Log$ $Log$
Revision 1.102 1999-05-06 10:13:20 peter Revision 1.103 1999-05-06 21:40:16 peter
* check for calln in handle_procvar * fixed crash
Revision 1.101 1999/05/06 09:05:21 peter Revision 1.101 1999/05/06 09:05:21 peter
* generic write_float and str_float * generic write_float and str_float