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

* don't emit the */pointer suffix for procdefs in llvmaddencodedtype_intern(),

Browse Source 
so that if a_loadaddr_ref_reg() is used to load the address of a procdef
    into a register, the getpointerdef(procdef) won't (wrongly) result in two
    *'s
   o the previous behaviour was necessary for the tck_simple_procvar2proc
     special case that was removed in the previous commit

git-svn-id: branches/hlcgllvm@28477 -
This commit is contained in:
Jonas Maebe 2014-08-19 20:22:13 +00:00
parent cc4482d6f8
commit b6fc2f1542
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/llvm/llvmdef.pas
View File

@ -402,7 +402,8 @@ implementation
tprocvardef(def).is_addressonly then
begin
llvmaddencodedproctype(tabstractprocdef(def),'',lpd_procvar,encodedstr);
encodedstr:=encodedstr+'*';
if def.typ=procvardef then
encodedstr:=encodedstr+'*';
end
else
begin