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

* similar change as in r34976 for the generic code: don't assume that if

Browse Source 
a load node for a procsym has a self pointer, that we have to create
    a procvar with a self pointer (e.g. when loading the address of a
    static class method). Avoids the generation of superfluous code to
    load self which is then not used afterwards

git-svn-id: trunk@35005 -
This commit is contained in:
Jonas Maebe 2016-11-27 21:54:50 +00:00
parent 26f9dabf56
commit 1c820e9c8e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgld.pas
View File

@ -521,7 +521,9 @@ implementation
begin begin
if not assigned(procdef) then if not assigned(procdef) then
internalerror(200312011); internalerror(200312011);
if assigned(left) then if assigned(left) and
(resultdef.typ in [symconst.procdef,procvardef]) and
not tabstractprocdef(resultdef).is_addressonly then
begin begin
location_reset(location,LOC_CREGISTER,int_cgsize(voidpointertype.size*2)); location_reset(location,LOC_CREGISTER,int_cgsize(voidpointertype.size*2));
secondpass(left); secondpass(left);