* moved TResourceStringRecord from the objpas to the system unit so it can be

    used in the compiler when emitting resourcestrings

git-svn-id: trunk@32208 -

rtl/inc/objpash.inc

@@ -439,3 +439,20 @@
   const
     { for safe as operator support }
     IObjectInstance: TGuid = '{D91C9AF4-3C93-420F-A303-BF5BA82BFD23}';
+
+
+{*****************************************************************************
+                              Resourcestring support
+*****************************************************************************}
+
+  type
+    PResourceStringRecord = ^TResourceStringRecord;
+    TResourceStringRecord = Packed Record
+       Name,
+       CurrentValue,
+       DefaultValue : AnsiString;
+       HashValue    : LongWord;
+  {$ifdef cpu64}
+       Dummy        : LongWord; // alignment
+  {$endif cpu64}
+     end;

rtl/objpas/objpas.pp

@@ -313,17 +313,6 @@ begin
 end;
 
 Type
-  PResourceStringRecord = ^TResourceStringRecord;
-  TResourceStringRecord = Packed Record
-     Name,
-     CurrentValue,
-     DefaultValue : AnsiString;
-     HashValue    : LongWord;
-{$ifdef cpu64}
-     Dummy        : LongWord; // alignment
-{$endif cpu64}
-   end;
-
    TResourceStringTableList = Packed Record
      Count : sizeint;
      Tables : Array[{$ifdef cpu16}Byte{$else cpu16}Word{$endif cpu16}] of record