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

+ ttai_typedconstbuilder.emit_procdef_const() helper

Browse Source 
git-svn-id: branches/hlcgllvm@28780 -
This commit is contained in:
Jonas Maebe 2014-10-06 20:54:31 +00:00
parent b84e9a3577
commit f6e486a8b5
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/aasmcnst.pas
View File

@ -230,6 +230,8 @@ type
function emit_shortstring_const(const str: shortstring): tdef;
{ emit a guid constant }
procedure emit_guid_const(const guid: tguid);
{ emit a procdef constant }
procedure emit_procdef_const(pd: tprocdef);
{ emit an ordinal constant }
procedure emit_ord_const(value: int64; def: tdef);
@ -1052,6 +1054,11 @@ implementation
maybe_end_aggregate(rec_tguid);
end;
procedure ttai_typedconstbuilder.emit_procdef_const(pd: tprocdef);
begin
emit_tai(Tai_const.Createname(pd.mangledname,AT_FUNCTION,0),pd.getcopyas(procvardef,pc_address_only));
end;
procedure ttai_typedconstbuilder.emit_ord_const(value: int64; def: tdef);
begin
@ -1207,7 +1214,9 @@ implementation
procedure ttai_typedconstbuilder.queue_emit_proc(pd: tprocdef);
begin
emit_tai(Tai_const.Createname(pd.mangledname,AT_FUNCTION,fqueue_offset),pd.getcopyas(procvardef,pc_address_only));
if fqueue_offset<>0 then
internalerror(2014092101);
emit_procdef_const(pd);
fqueue_offset:=low(fqueue_offset);
end;