paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 23:59:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fix compilation with fpc 2.2.3 (jesusra, please review)

Browse Source 
git-svn-id: trunk@17633 -
This commit is contained in:
paul 2008-11-30 06:25:43 +00:00
parent c928dcd787
commit 691a58c76b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/postscriptunicode.pas
View File

@ -309,7 +309,11 @@ end;
procedure TPsUnicode.OutputString(S: string);
var
{$IFDEF FPC_HAS_UNICODESTRING}
UStr: UnicodeString;
{$ELSE}
UStr: WideString;
{$ENDIF}
w: word;
i, b: Integer;
c: byte;