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

* don't emit default values for local variables in generic routines: those

Browse Source 
default values are not used, and they are not type-correct (and hence
    cause trouble with LLVM)

git-svn-id: trunk@33992 -
This commit is contained in:
Jonas Maebe 2016-06-15 18:32:02 +00:00
parent 5313db710b
commit 899add8c7d
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/pdecvar.pas
View File

@ -1056,6 +1056,7 @@ implementation
var
vs : tabstractnormalvarsym;
tcsym : tstaticvarsym;
templist : tasmlist;
begin
vs:=tabstractnormalvarsym(sc[0]);
if sc.count>1 then
@ -1068,9 +1069,19 @@ implementation
begin
tcsym:=cstaticvarsym.create('$default'+vs.realname,vs_const,vs.vardef,[],true);
include(tcsym.symoptions,sp_internal);
vs.defaultconstsym:=tcsym;
symtablestack.top.insert(tcsym);
read_typed_const(current_asmdata.asmlists[al_typedconsts],tcsym,false);
templist:=tasmlist.create;
read_typed_const(templist,tcsym,false);
{ in case of a generic routine, this initialisation value is not
used, and will be re-parsed during specialisations (and the
current version is not type-correct and hence breaks code
generation for LLVM) }
if not parse_generic then
begin
vs.defaultconstsym:=tcsym;
current_asmdata.asmlists[al_typedconsts].concatlist(templist);
end;
templist.free;
end;
staticvarsym :
begin