* .init section support

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@5835 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 3 insertions, 2 deletions

diff --git a/compiler/aasmbase.pas b/compiler/aasmbase.pas
index 352f8ac844..1c8cd8407b 100644
--- a/compiler/aasmbase.pas
+++ b/compiler/aasmbase.pas
@@ -41,7 +41,7 @@ interface
 
        TAsmsymtype=(
          AT_NONE,AT_FUNCTION,AT_DATA,AT_SECTION,AT_LABEL,
-         { 
+         {
            the address of this code label is taken somewhere in the code
            so it must be taken care of it when creating pic
          }
@@ -81,7 +81,8 @@ interface
          { ELF resources }
          sec_fpc,
          { Table of contents section }
-         sec_toc
+         sec_toc,
+         sec_init
        );
 
        TAsmSectionOrder = (secorder_begin,secorder_default,secorder_end);