浏览代码

* i8086 medium model fixes in tnodeutils.InsertResourceTablesTable

git-svn-id: trunk@25290 -
nickysn 12 年之前
父节点
当前提交
e4f84b0f5d
共有 1 个文件被更改,包括 2 次插入2 次删除
  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);