paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-05 05:38:13 +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 implementation
{$IFDEF HASWIDESTRING}{$IFNDEF VER1_9_8}
{$DEFINE HASTOKENWIDESTRING}
{$ENDIF}{$ENDIF}
const const
LineEnd: ShortString = LineEnding; LineEnd: ShortString = LineEnding;
@ -1679,7 +1682,7 @@ var
end; end;
toString: toString:
begin begin
{$IFDEF HASWIDESTRING} {$IFDEF HASTOKENWIDESTRING}
toStringBuf := parser.TokenWideString; toStringBuf := parser.TokenWideString;
{$ELSE} {$ELSE}
toStringBuf := parser.TokenString; toStringBuf := parser.TokenString;
@ -1688,10 +1691,10 @@ var
begin begin
parser.NextToken; // Get next string fragment parser.NextToken; // Get next string fragment
parser.CheckToken(toString); parser.CheckToken(toString);
{$IFDEF HASWIDESTRING} {$IFDEF HASTOKENWIDESTRING}
toStringBuf := toStringBuf + parser.TokenString;
{$ELSE}
toStringBuf := toStringBuf + parser.TokenWideString; toStringBuf := toStringBuf + parser.TokenWideString;
{$ELSE}
toStringBuf := toStringBuf + parser.TokenString;
{$ENDIF} {$ENDIF}
end; end;
{$IFDEF HASWIDESTRING} {$IFDEF HASWIDESTRING}