paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 12:49:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
used in the compiler when emitting resourcestrings

git-svn-id: trunk@32208 -
This commit is contained in:
Jonas Maebe 2015-10-30 20:45:19 +00:00
parent 4670e0abc9
commit 0c904e92ff
2 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/inc/objpash.inc
View File

@ -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;

11
rtl/objpas/objpas.pp
View File

@ -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