paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* widestring conversions added to allowed operator check

Browse Source
This commit is contained in:
peter 2004-02-20 21:55:19 +00:00
parent f967fa5f74
commit a4732d1009
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/htypechk.pas
View File

@ -184,14 +184,17 @@ implementation
allowed:=false;
exit;
end;
{ not chararray+[char,string,chararray] }
{ not chararray+[(wide)char,(wide)string,(wide)chararray] }
if is_chararray(ld) and
(treetyp in [addn,equaln,unequaln,gtn,gten,ltn,lten]) and
(is_char(rd) or
is_widechar(rd) or
is_pchar(rd) or
is_pwidechar(rd) or
is_integer(rd) or
(rd.deftype=stringdef) or
is_chararray(rd) or
is_widechararray(rd) or
(rt=niln)) then
begin
allowed:=false;
@ -222,8 +225,11 @@ implementation
begin
if ((rd.deftype=stringdef) or
is_char(rd) or
is_widechar(rd) or
is_pchar(rd) or
is_chararray(rd)) and
is_pwidechar(rd) or
is_chararray(rd) or
is_widechararray(rd)) and
(treetyp in [addn,equaln,unequaln,gtn,gten,ltn,lten]) then
begin
allowed:=false;
@ -938,7 +944,10 @@ implementation
end.
{
$Log$
Revision 1.79 2004-02-13 15:42:21 peter
Revision 1.80 2004-02-20 21:55:19 peter
* widestring conversions added to allowed operator check
Revision 1.79 2004/02/13 15:42:21 peter
* compare_defs_ext has now a options argument
* fixes for variants