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

* remove multiple typeconvs for procvar

Browse Source
This commit is contained in:
peter 2005-01-24 21:39:03 +00:00
parent ebe13d3423
commit bb7b812beb
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ptconst.pas
View File

@ -802,9 +802,9 @@ implementation
p.free;
exit;
end;
{ remove typeconvn, that will normally insert a lea
{ remove typeconvs, that will normally insert a lea
instruction which is not necessary for us }
if p.nodetype=typeconvn then
while p.nodetype=typeconvn do
begin
hp:=ttypeconvnode(p).left;
ttypeconvnode(p).left:=nil;
@ -1081,7 +1081,10 @@ implementation
end.
{
$Log$
Revision 1.99 2005-01-09 15:05:29 peter
Revision 1.100 2005-01-24 21:39:03 peter
* remove multiple typeconvs for procvar
Revision 1.99 2005/01/09 15:05:29 peter
* fix interface vtbl optimization
* replace ugly pointer construct of ioffset()