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

* fixed pchar<->[string,chararray] operations

Browse Source
This commit is contained in:
peter 2000-06-18 19:41:19 +00:00
parent fdb8555bdb
commit 724ce958af
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/htypechk.pas
View File

@ -595,15 +595,21 @@ implementation
(ld^.deftype=recorddef) or
(rd^.deftype=recorddef) or
((rd^.deftype=pointerdef) and
not(is_pchar(rd) and (treetyp=addn)) and
not(is_pchar(rd) and
(is_chararray(ld) or
(ld^.deftype=stringdef) or
(treetyp=addn))) and
(not(ld^.deftype in [pointerdef,objectdef,classrefdef,procvardef]) or
not (treetyp in [equaln,unequaln,gtn,gten,ltn,lten,subn])
) and
(not is_integer(ld) or not (treetyp in [addn,subn]))
) or
((ld^.deftype=pointerdef) and
not(is_pchar(ld) and (treetyp=addn)) and
(not(rd^.deftype in [pointerdef,objectdef,classrefdef,procvardef]) and
not(is_pchar(ld) and
(is_chararray(rd) or
(rd^.deftype=stringdef) or
(treetyp=addn))) and
(not(rd^.deftype in [stringdef,pointerdef,objectdef,classrefdef,procvardef]) and
((not is_integer(rd) and (rd^.deftype<>objectdef)
and (rd^.deftype<>classrefdef)) or
not (treetyp in [equaln,unequaln,gtn,gten,ltn,lten,addn,subn])
@ -1121,7 +1127,10 @@ implementation
end.
{
$Log$
Revision 1.69 2000-06-11 07:00:21 peter
Revision 1.70 2000-06-18 19:41:19 peter
* fixed pchar<->[string,chararray] operations
Revision 1.69 2000/06/11 07:00:21 peter
* fixed pchar->string conversion for delphi mode
Revision 1.68 2000/06/06 20:25:43 pierre