paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 04:30:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* ensure the types of all elements emitted in all paths through

Browse Source 
writeaccessproc() are the same, so the reuse of existing defs doesn't
    result in the generation of typecasts for llvm

git-svn-id: trunk@32903 -
This commit is contained in:
Jonas Maebe 2016-01-10 14:01:43 +00:00
parent 4ae8dcc91e
commit 5aadb149ed
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/ncgrtti.pas
View File

@ -428,7 +428,8 @@ implementation
if not(po_virtualmethod in tprocdef(propaccesslist.procdef).procoptions) or
is_objectpascal_helper(tprocdef(propaccesslist.procdef).struct) then
begin
tcb.emit_procdef_const(tprocdef(propaccesslist.procdef));
tcb.queue_init(codeptruinttype);
tcb.queue_emit_proc(tprocdef(propaccesslist.procdef));
typvalue:=1;
end
else