Browse Source

* i8086 medium model fixes in tnodeutils.InsertResourceTablesTable

git-svn-id: trunk@25290 -
nickysn 12 years ago
parent
commit
e4f84b0f5d
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/ngenutil.pas

+ 2 - 2
compiler/ngenutil.pas

@@ -824,8 +824,8 @@ implementation
         begin
         begin
           If (hp.flags and uf_has_resourcestrings)=uf_has_resourcestrings then
           If (hp.flags and uf_has_resourcestrings)=uf_has_resourcestrings then
             begin
             begin
-              ResourceStringTables.concat(Tai_const.Createname(make_mangledname('RESSTR',hp.localsymtable,'START'),0));
-              ResourceStringTables.concat(Tai_const.Createname(make_mangledname('RESSTR',hp.localsymtable,'END'),0));
+              ResourceStringTables.concat(Tai_const.Createname(make_mangledname('RESSTR',hp.localsymtable,'START'),AT_DATA,0));
+              ResourceStringTables.concat(Tai_const.Createname(make_mangledname('RESSTR',hp.localsymtable,'END'),AT_DATA,0));
               inc(count);
               inc(count);
             end;
             end;
           hp:=tmodule(hp.next);
           hp:=tmodule(hp.next);