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

* set_varstate must be called after typeconv insertions

Browse Source
This commit is contained in:
pierre 2000-01-07 09:35:12 +00:00
parent eb31271e15
commit c464f091be
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/tccal.pas
View File

@ -209,7 +209,8 @@ implementation
if (defcoll^.paratyp=vs_var) then if (defcoll^.paratyp=vs_var) then
test_protected(p^.left); test_protected(p^.left);
} }
set_varstate(p^.left,defcoll^.paratyp<>vs_var); { set_varstate(p^.left,defcoll^.paratyp<>vs_var);
must only be done after typeconv PM }
{ only process typeconvn and arrayconstructn, else it will { only process typeconvn and arrayconstructn, else it will
break other trees } break other trees }
{ But this is need to get correct varstate !! PM } { But this is need to get correct varstate !! PM }
@ -337,6 +338,9 @@ implementation
make_not_regable(p^.left); make_not_regable(p^.left);
end; end;
if do_count then
set_varstate(p^.left,defcoll^.paratyp<>vs_var);
{ must only be done after typeconv PM }
p^.resulttype:=defcoll^.paratype.def; p^.resulttype:=defcoll^.paratype.def;
end; end;
if p^.left^.registers32>p^.registers32 then if p^.left^.registers32>p^.registers32 then
@ -1220,7 +1224,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.77 2000-01-07 01:14:44 peter Revision 1.78 2000-01-07 09:35:12 pierre
* set_varstate must be called after typeconv insertions
Revision 1.77 2000/01/07 01:14:44 peter
* updated copyright to 2000 * updated copyright to 2000
Revision 1.76 1999/12/19 15:13:56 peter Revision 1.76 1999/12/19 15:13:56 peter
@ -1318,4 +1325,4 @@ end.
Revision 1.51.2.3 1999/07/01 21:32:01 peter Revision 1.51.2.3 1999/07/01 21:32:01 peter
* procvar fixes again * procvar fixes again
} }