Browse Source

Fix compilation with 2.6.x

objpas.pp:
  * ResourceStringTable: use a pointer to ResourceStringTableVar instead of ResourceStringTable itself...

git-svn-id: branches/svenbarth/packages@28902 -
svenbarth 10 years ago
parent
commit
3261a99906
1 changed files with 2 additions and 1 deletions
  1. 2 1
      rtl/objpas/objpas.pp

+ 2 - 1
rtl/objpas/objpas.pp

@@ -359,7 +359,7 @@ var
   ResourceStringTable : PResourceStringTableList; external name '_FPC_ResourceStringTables';
 {$else}
   ResourceStringTableVar : TResourceStringTableList; External Name 'FPC_RESOURCESTRINGTABLES';
-  ResourceStringTable : PResourceStringTableList = @ResourceStringTable;
+  ResourceStringTable : PResourceStringTableList = @ResourceStringTableVar;
 {$endif}
 
 Procedure SetResourceStrings (SetFunction :  TResourceIterator;arg:pointer);
@@ -635,6 +635,7 @@ end;
 Initialization
 {  ResetResourceTables;}
 finalization
+  Writeln('ObjPas Finalize');
   FinalizeResourceTables;
 {$endif FPC_HAS_FEATURE_RESOURCES}
 end.