Prechádzať zdrojové kódy

+ add a .text section directive before each procedure

git-svn-id: branches/wasm@46840 -
nickysn 4 rokov pred
rodič
commit
c69dce34c4
1 zmenil súbory, kde vykonal 1 pridanie a 0 odobranie
  1. 1 0
      compiler/wasm32/hlcgcpu.pas

+ 1 - 0
compiler/wasm32/hlcgcpu.pas

@@ -1726,6 +1726,7 @@ implementation
          current_asmdata.asmlists[al_procedures].empty then
         current_asmdata.asmlists[al_procedures].concat(tai_align.Create(4));
       tcpuprocdef(pd).exprasmlist:=TAsmList.create;
+      new_section(tcpuprocdef(pd).exprasmlist,sec_code,lower(pd.mangledname),current_settings.alignment.procalign);
       tcpuprocdef(pd).exprasmlist.concatlist(code);
       if assigned(data) and
          not data.empty then