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

* mereg from fixes-0_99_12 branch

Browse Source
This commit is contained in:
pierre 1999-06-26 00:24:53 +00:00
parent 5684c3ed28
commit 2083621f3e
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/pexpr.pas
View File

@ -112,6 +112,8 @@ unit pexpr;
procedure check_tp_procvar(var p : ptree);
var
p1 : ptree;
Store_valid : boolean;
begin
if (m_tp_procvar in aktmodeswitches) and
{ (not afterassignment) and }
@ -119,7 +121,10 @@ unit pexpr;
(p^.treetype in [loadn]) then
begin
{ support if procvar then for tp7 and many other expression like this }
Store_valid:=Must_be_valid;
Must_be_valid:=false;
firstpass(p);
Must_be_valid:=Store_valid;
if p^.resulttype^.deftype=procvardef then
begin
p1:=gencallnode(nil,nil);
@ -838,6 +843,9 @@ unit pexpr;
(not ((m_tp in aktmodeswitches) and
(afterassignment or in_args))) then
begin
if ((pvarsym(sym)=opsym) and
((p^.flags and pi_operator)<>0)) then
inc(opsym^.refs);
if ((pvarsym(sym)=opsym) and
((p^.flags and pi_operator)<>0)) then
inc(opsym^.refs);
@ -2027,20 +2035,17 @@ unit pexpr;
end.
{
$Log$
Revision 1.115 1999-06-17 13:19:52 pierre
* merged from 0_99_12 branch
Revision 1.116 1999-06-26 00:24:53 pierre
* mereg from fixes-0_99_12 branch
Revision 1.112.2.4 1999/06/26 00:22:30 pierre
* wrong warnings in -So mode suppressed
Revision 1.112.2.3 1999/06/17 12:51:44 pierre
* changed is_assignment_overloaded into
function assignment_overloaded : pprocdef
to allow overloading of assignment with only different result type
Revision 1.114 1999/06/15 18:58:33 peter
* merged
Revision 1.113 1999/06/13 22:41:05 peter
* merged from fixes
Revision 1.112.2.2 1999/06/15 18:54:52 peter
* more procvar fixes