paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:29:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid bug #911, worng unused parameter hints

Browse Source
This commit is contained in:
pierre 2000-04-06 11:28:17 +00:00
parent 33f3467ef0
commit d2aa336b2f
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pass_2.pas
View File

@ -548,7 +548,8 @@ implementation
begin begin
if (psym(p)^.typ=varsym) then if (psym(p)^.typ=varsym) then
pvarsym(p)^.refs:=0; if pvarsym(p)^.refs>1 then
pvarsym(p)^.refs:=1;
end; end;
procedure generatecode(var p : ptree); procedure generatecode(var p : ptree);
@ -843,7 +844,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.62 2000-04-02 12:11:38 florian Revision 1.63 2000-04-06 11:28:17 pierre
* avoid bug 911, worng unused parameter hints
Revision 1.62 2000/04/02 12:11:38 florian
* enumerations with size 1 or 2 weren't handled corretly if they were register * enumerations with size 1 or 2 weren't handled corretly if they were register
variables: in fact they got 32 bit register assigned; fixed variables: in fact they got 32 bit register assigned; fixed