paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 01:16:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed command line internationalization

Browse Source 
git-svn-id: trunk@3703 -
This commit is contained in:
mattias 2002-12-16 23:27:01 +00:00
parent 669851157c
commit 4e18f83f77
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/finddeclarationtool.pas
View File

@ -284,6 +284,7 @@ const
xtAllRealTypes = [xtReal, xtConstReal, xtSingle, xtDouble, xtExtended,
xtCurrency, xtComp];
xtAllStringTypes = [xtConstString, xtShortString, xtString, xtAnsiString];
xtAllStringCompatibleTypes = xtAllStringTypes+[xtChar];
xtAllPointerTypes = [xtPointer, xtNil];
xtAllIntegerConvertibles = xtAllIntegerTypes;
xtAllRealConvertibles = xtAllRealTypes+xtAllIntegerTypes;
@ -4329,10 +4330,10 @@ begin
if (Src[BinaryOperator.StartPos]='+')
and (LeftOperand.Desc in [xtAnsiString,xtShortString,xtString,xtChar])
and (LeftOperand.Desc in xtAllStringCompatibleTypes)
then begin
// string/char '+'
if (RightOperand.Desc in [xtAnsiString,xtShortString,xtString,xtChar])
if (RightOperand.Desc in xtAllStringCompatibleTypes)
then
Result.Desc:=xtConstString
else begin