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

* handle string-open array of (wide)char without variants

Browse Source
This commit is contained in:
peter 2005-01-07 16:22:47 +00:00
parent 61fe0f1e7c
commit ed7084e0b6
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/htypechk.pas
View File

@ -229,7 +229,9 @@ implementation
exit;
end;
{ not chararray+[(wide)char,(wide)string,(wide)chararray] }
if (is_chararray(ld) or is_widechararray(ld)) and
if (is_chararray(ld) or is_widechararray(ld) or
(is_open_array(ld) and (is_char(tarraydef(ld).elementtype.def) or is_widechar(tarraydef(ld).elementtype.def)))
) and
((rd.deftype in [stringdef,orddef,enumdef]) or
is_pchar(rd) or
is_pwidechar(rd) or
@ -269,7 +271,8 @@ implementation
is_pchar(rd) or
is_pwidechar(rd) or
is_chararray(rd) or
is_widechararray(rd)) then
is_widechararray(rd) or
(is_open_array(rd) and (is_char(tarraydef(rd).elementtype.def) or is_widechar(tarraydef(rd).elementtype.def)))) then
begin
allowed:=false;
exit;
@ -1971,7 +1974,10 @@ implementation
end.
{
$Log$
Revision 1.106 2004-12-05 12:28:10 peter
Revision 1.107 2005-01-07 16:22:47 peter
* handle string-open array of (wide)char without variants
Revision 1.106 2004/12/05 12:28:10 peter
* procvar handling for tp procvar mode fixed
* proc to procvar moved from addrnode to typeconvnode
* inlininginfo is now allocated only for inline routines that