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

* fixed llvm compiler compilation with -O3/-Oodfa

Browse Source 
git-svn-id: branches/debug_eh@40590 -
This commit is contained in:
Jonas Maebe 2018-12-18 21:13:56 +00:00
parent 752a28a41d
commit 1a0ffbc82b
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/expunix.pas
View File

@ -139,6 +139,7 @@ begin
anyhasalias:=false; anyhasalias:=false;
{ if the procedure has the exported name as one of its aliases, we don't { if the procedure has the exported name as one of its aliases, we don't
need a separate stub } need a separate stub }
pd:=nil;
for i:=0 to tprocsym(hp.sym).procdeflist.count-1 do for i:=0 to tprocsym(hp.sym).procdeflist.count-1 do
begin begin
pd:=tprocdef(tprocsym(hp.sym).procdeflist[i]); pd:=tprocdef(tprocsym(hp.sym).procdeflist[i]);

1
compiler/llvm/hlcgllvm.pas
View File

@ -217,6 +217,7 @@ implementation
(orgsize<>size) and (orgsize<>size) and
assigned(cgpara.location^.next); assigned(cgpara.location^.next);
paralocidx:=0; paralocidx:=0;
fielddef:=nil;
while assigned(location) do while assigned(location) do
begin begin
if userecord then if userecord then