paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 15:32:21 +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; exit;
end; end;
{ not chararray+[(wide)char,(wide)string,(wide)chararray] } { 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 ((rd.deftype in [stringdef,orddef,enumdef]) or
is_pchar(rd) or is_pchar(rd) or
is_pwidechar(rd) or is_pwidechar(rd) or
@ -269,7 +271,8 @@ implementation
is_pchar(rd) or is_pchar(rd) or
is_pwidechar(rd) or is_pwidechar(rd) or
is_chararray(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 begin
allowed:=false; allowed:=false;
exit; exit;
@ -1971,7 +1974,10 @@ implementation
end. end.
{ {
$Log$ $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 * procvar handling for tp procvar mode fixed
* proc to procvar moved from addrnode to typeconvnode * proc to procvar moved from addrnode to typeconvnode
* inlininginfo is now allocated only for inline routines that * inlininginfo is now allocated only for inline routines that