|
@@ -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
|