paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 19:39:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* declare segments as use16 or use32 in the nasm asm writer

Browse Source 
git-svn-id: trunk@31493 -
This commit is contained in:
nickysn 2015-09-03 13:57:36 +00:00
parent 672ff1d863
commit 3b36e3d0b5
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/x86/agx86nsm.pas
View File

@ -557,6 +557,10 @@ interface
{ yes -> write the section attributes as well }
if atype=sec_stack then
AsmWrite(' stack');
if atype in [sec_debug_frame,sec_debug_info,sec_debug_line,sec_debug_abbrev] then
AsmWrite(' use32')
else
AsmWrite(' use16');
AsmWrite(' class='+omf_segclass[atype]+
' align='+tostr(omf_sectiontype2align(atype)));
FSectionsUsed.Add(secname,nil);