git-svn-id: branches/wasm@46848 -
@@ -114,6 +114,8 @@ implementation
function TLLVMMachineCodePlaygroundAssembler.sectionname(atype: TAsmSectiontype; const aname: string; aorder: TAsmSectionOrder): string;
begin
+ if atype=sec_fpc then
+ atype:=sec_data;
Result:=inherited sectionname(atype, aname, aorder)+',"",@';
end;