paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 05:26:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for bug #891

Browse Source
This commit is contained in:
pierre 2000-03-28 21:14:18 +00:00
parent 78ed10ebd4
commit ac98c4c444
1 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/tcadd.pas
View File

@ -781,7 +781,26 @@ implementation
convdone:=true; convdone:=true;
end end
else else
{ compare pchar to char arrays by addresses
like BP/Delphi }
if (is_pchar(ld) and is_chararray(rd)) or
(is_pchar(rd) and is_chararray(ld)) then
begin
if is_chararray(rd) then
begin
p^.right:=gentypeconvnode(p^.right,ld);
firstpass(p^.right);
end
else
begin
p^.left:=gentypeconvnode(p^.left,rd);
firstpass(p^.left);
end;
p^.location.loc:=LOC_REGISTER;
calcregisters(p,1,0,0);
convdone:=true;
end
else
{ is one of the operands a string?, { is one of the operands a string?,
chararrays are also handled as strings (after conversion) } chararrays are also handled as strings (after conversion) }
if (rd^.deftype=stringdef) or (ld^.deftype=stringdef) or if (rd^.deftype=stringdef) or (ld^.deftype=stringdef) or
@ -1266,7 +1285,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.72 2000-03-20 10:16:51 florian Revision 1.73 2000-03-28 21:14:18 pierre
* fix for bug 891
Revision 1.72 2000/03/20 10:16:51 florian
* fixed <dword>/<dword>, <int64>/<int64> and <qword>/<qword> * fixed <dword>/<dword>, <int64>/<int64> and <qword>/<qword>
Revision 1.71 2000/03/18 15:01:19 jonas Revision 1.71 2000/03/18 15:01:19 jonas