diff options
| author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-03-20 15:42:28 +0000 |
|---|---|---|
| committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-03-20 15:42:28 +0000 |
| commit | d61c787947d7a7c30ba73d7e5db6660cfda98140 (patch) | |
| tree | faa4e211ef5d73b01b7381d0554d69470dee9c5f /compiler/x86/agx86int.pas | |
| parent | a259ec39031954c3b7e35d69ff5dd732de647a8e (diff) | |
| download | fpc-d61c787947d7a7c30ba73d7e5db6660cfda98140.tar.gz | |
+ user section type
+ parsing of section directive for variables
+ section test
+ write section names in the assembler/binary writers correctly
* allow section only after ; and for embedded targets
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/usersections@17154 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/x86/agx86int.pas')
| -rw-r--r-- | compiler/x86/agx86int.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/x86/agx86int.pas b/compiler/x86/agx86int.pas index 739c3b4e39..545a71e361 100644 --- a/compiler/x86/agx86int.pas +++ b/compiler/x86/agx86int.pas @@ -59,7 +59,7 @@ implementation const line_length = 70; - secnames : array[TAsmSectiontype] of string[4] = ('', + secnames : array[TAsmSectiontype] of string[4] = ('','', 'CODE','DATA','DATA','DATA','BSS','', '','','','','','', '','','','', @@ -109,7 +109,7 @@ implementation '' ); - secnamesml64 : array[TAsmSectiontype] of string[7] = ('', + secnamesml64 : array[TAsmSectiontype] of string[7] = ('','', '_TEXT','_DATE','_DATA','_DATA','_BSS','', '','','','', 'idata$2','idata$4','idata$5','idata$6','idata$7','edata', @@ -978,7 +978,7 @@ implementation { better do this at end of WriteTree, but then there comes a trouble with al_const which does not have leading ait_section and thus goes out of segment } - + { TODO: probably ml64 needs 'closing' last section, too } if LastSecType <> sec_none then AsmWriteLn('_'+secnames[LasTSecType]+#9#9'ENDS'); |