Explorar el Código

* i8086 medium model fixes in tnodeutils.InsertResourceTablesTable

git-svn-id: trunk@25290 -
nickysn hace 12 años
padre
commit
e4f84b0f5d
Se han modificado 1 ficheros con 2 adiciones y 2 borrados
  1. 2 2
      compiler/ngenutil.pas

+ 2 - 2
compiler/ngenutil.pas

@@ -824,8 +824,8 @@ implementation
         begin
           If (hp.flags and uf_has_resourcestrings)=uf_has_resourcestrings then
             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);
             end;
           hp:=tmodule(hp.next);