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

* allow implicit conversions from/to packed char arrays under the

Browse Source 
same conditions as from/two regular char arrays (since a packed
    char array is the same as a string in ISO Pascal)

git-svn-id: trunk@4468 -
This commit is contained in:
Jonas Maebe 2006-08-20 15:14:07 +00:00
parent 7eb023d7cd
commit 47eb589d54
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/defcmp.pas
View File

@ -601,9 +601,17 @@ implementation
case def_from.deftype of case def_from.deftype of
arraydef : arraydef :
begin begin
{ from/to packed array } { from/to packed array -- packed chararrays are }
if is_packed_array(def_from) xor { strings in ISO Pascal (at least if the lower bound }
is_packed_array(def_to) then { is 1, but GPC makes all equal-length chararrays }
{ compatible), so treat those the same as regular }
{ char arrays }
if (is_packed_array(def_from) and
not is_chararray(def_from) and
not is_widechararray(def_from)) xor
(is_packed_array(def_to) and
not is_chararray(def_to) and
not is_widechararray(def_to)) then
{ both must be packed } { both must be packed }
begin begin
compare_defs_ext:=te_incompatible; compare_defs_ext:=te_incompatible;