paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-30 01:50:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

* slice() doesn't support packed arrays

Browse Source 
git-svn-id: trunk@4454 -
This commit is contained in:
Jonas Maebe 2006-08-19 16:18:42 +00:00
parent 07813a54a7
commit be39a88daa
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ninl.pas
View File

@ -1851,7 +1851,9 @@ implementation
result:=nil;
resulttype:=tcallparanode(left).left.resulttype;
if (resulttype.def.deftype <> arraydef) then
CGMessagePos(left.fileinfo,type_e_mismatch);
CGMessagePos(left.fileinfo,type_e_mismatch)
else if is_packed_array(resulttype.def) then
CGMessagePos2(left.fileinfo,type_e_got_expected_unpacked_array,'1',resulttype.def.typename);
if not(is_integer(tcallparanode(tcallparanode(left).right).left.resulttype.def)) then
CGMessagePos1(tcallparanode(left).right.fileinfo,
type_e_integer_expr_expected,