paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-28 17:41:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed wrong notes about locals

Browse Source
This commit is contained in:
peter 2001-01-06 18:28:39 +00:00
parent b9cafe5c98
commit e16486a958
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ninl.pas
View File

@ -678,7 +678,7 @@ implementation
exit; exit;
{ last param must be var } { last param must be var }
valid_for_assign(ppn.left,false); valid_for_assign(ppn.left,false);
set_varstate(ppn.left,true); set_varstate(ppn.left,false);
{ first param must be a string or dynamic array ...} { first param must be a string or dynamic array ...}
if not((ppn.left.resulttype^.deftype=stringdef) or if not((ppn.left.resulttype^.deftype=stringdef) or
(is_dynamic_array(ppn.left.resulttype))) then (is_dynamic_array(ppn.left.resulttype))) then
@ -1495,7 +1495,7 @@ implementation
inherited docompare(p) and inherited docompare(p) and
(inlinenumber = tinlinenode(p).inlinenumber); (inlinenumber = tinlinenode(p).inlinenumber);
end; end;
begin begin
@ -1503,7 +1503,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.22 2000-12-31 11:14:10 jonas Revision 1.23 2001-01-06 18:28:39 peter
* fixed wrong notes about locals
Revision 1.22 2000/12/31 11:14:10 jonas
+ implemented/fixed docompare() mathods for all nodes (not tested) + implemented/fixed docompare() mathods for all nodes (not tested)
+ nopt.pas, nadd.pas, i386/n386opt.pas: optimized nodes for adding strings + nopt.pas, nadd.pas, i386/n386opt.pas: optimized nodes for adding strings
and constant strings/chars together and constant strings/chars together

7
compiler/nmat.pas
View File

@ -80,7 +80,7 @@ implementation
begin begin
pass_1:=nil; pass_1:=nil;
firstpass(left); firstpass(left);
set_varstate(right,true); set_varstate(left,true);
firstpass(right); firstpass(right);
set_varstate(right,true); set_varstate(right,true);
if codegenerror then if codegenerror then
@ -528,7 +528,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.12 2001-01-05 17:36:57 florian Revision 1.13 2001-01-06 18:28:39 peter
* fixed wrong notes about locals
Revision 1.12 2001/01/05 17:36:57 florian
* the info about exception frames is stored now on the stack * the info about exception frames is stored now on the stack
instead on the heap instead on the heap