Browse Source

* mark asmsymbols created for procdefs as AT_FUNCTION

git-svn-id: branches/hlcgllvm@28779 -
Jonas Maebe 10 years ago
parent
commit
b84e9a3577
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/aasmcnst.pas

+ 1 - 1
compiler/aasmcnst.pas

@@ -1207,7 +1207,7 @@ implementation
 
 
    procedure ttai_typedconstbuilder.queue_emit_proc(pd: tprocdef);
    procedure ttai_typedconstbuilder.queue_emit_proc(pd: tprocdef);
      begin
      begin
-       emit_tai(Tai_const.Createname(pd.mangledname,fqueue_offset),pd.getcopyas(procvardef,pc_address_only));
+       emit_tai(Tai_const.Createname(pd.mangledname,AT_FUNCTION,fqueue_offset),pd.getcopyas(procvardef,pc_address_only));
        fqueue_offset:=low(fqueue_offset);
        fqueue_offset:=low(fqueue_offset);
      end;
      end;