paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-29 17:22:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed 1.9.8 compilation

Browse Source 
git-svn-id: trunk@7114 -
This commit is contained in:
mattias 2005-04-28 17:24:29 +00:00
parent 358a3b59a8
commit 009e16028b
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/lresources.pp
View File

@ -267,6 +267,9 @@ procedure WriteLRSReversedWords(s: TStream; p: Pointer; Count: integer);
implementation
{$IFDEF HASWIDESTRING}{$IFNDEF VER1_9_8}
{$DEFINE HASTOKENWIDESTRING}
{$ENDIF}{$ENDIF}
const
LineEnd: ShortString = LineEnding;
@ -1679,7 +1682,7 @@ var
end;
toString:
begin
{$IFDEF HASWIDESTRING}
{$IFDEF HASTOKENWIDESTRING}
toStringBuf := parser.TokenWideString;
{$ELSE}
toStringBuf := parser.TokenString;
@ -1688,10 +1691,10 @@ var
begin
parser.NextToken; // Get next string fragment
parser.CheckToken(toString);
{$IFDEF HASWIDESTRING}
toStringBuf := toStringBuf + parser.TokenString;
{$ELSE}
{$IFDEF HASTOKENWIDESTRING}
toStringBuf := toStringBuf + parser.TokenWideString;
{$ELSE}
toStringBuf := toStringBuf + parser.TokenString;
{$ENDIF}
end;
{$IFDEF HASWIDESTRING}