Parcourir la source

* fixed indentation

git-svn-id: branches/hlcgllvm@28106 -
Jonas Maebe il y a 11 ans
Parent
commit
dc57f537d4
1 fichiers modifiés avec 13 ajouts et 13 suppressions
  1. 13 13
      compiler/ptconst.pas

+ 13 - 13
compiler/ptconst.pas

@@ -116,20 +116,20 @@ implementation
 
         { try to parse a section directive }
         if not in_structure and (target_info.system in systems_allow_section) and
-          (symtablestack.top.symtabletype in [staticsymtable,globalsymtable]) and
+           (symtablestack.top.symtabletype in [staticsymtable,globalsymtable]) and
            (idtoken=_SECTION) then
-               begin
-                 try_consume_sectiondirective(section);
-                 if section<>'' then
-                   begin
-                     if (sym.varoptions *[vo_is_external,vo_is_weak_external])<>[] then
-                       Message(parser_e_externals_no_section);
-                     if sym.typ<>staticvarsym then
-                       Message(parser_e_section_no_locals);
-                     tstaticvarsym(sym).section:=section;
-                     include(sym.varoptions, vo_has_section);
-                   end;
-               end;
+          begin
+            try_consume_sectiondirective(section);
+            if section<>'' then
+              begin
+                if (sym.varoptions *[vo_is_external,vo_is_weak_external])<>[] then
+                  Message(parser_e_externals_no_section);
+                if sym.typ<>staticvarsym then
+                  Message(parser_e_section_no_locals);
+                tstaticvarsym(sym).section:=section;
+                include(sym.varoptions, vo_has_section);
+              end;
+          end;
 
         if not(target_info.system in systems_typed_constants_node_init) then
           begin