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

* allow absolutes on open arrays (use of this is doubtful though), resolves #41147

Browse Source
This commit is contained in:
florian 2025-02-11 22:45:19 +01:00
parent 637fa74c5c
commit 29b3b09251
3 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/ncnv.pas
View File

@ -4667,6 +4667,7 @@ implementation
if result and if result and
{ don't try to check the size of an open array } { don't try to check the size of an open array }
(is_open_array(resultdef) or (is_open_array(resultdef) or
is_open_array(left.resultdef) or
(resultdef.size<left.resultdef.size) or (resultdef.size<left.resultdef.size) or
((resultdef.size=left.resultdef.size) and ((resultdef.size=left.resultdef.size) and
(left.resultdef.size<sizeof(aint)) and (left.resultdef.size<sizeof(aint)) and

2
compiler/x86/aoptx86.pas
View File

@ -23,7 +23,7 @@ unit aoptx86;
{$i fpcdefs.inc} {$i fpcdefs.inc}
{$define DEBUG_AOPTCPU} { $define DEBUG_AOPTCPU}
{$ifdef EXTDEBUG} {$ifdef EXTDEBUG}
{$define DEBUG_AOPTCPU} {$define DEBUG_AOPTCPU}

15
tests/webtbs/tw41147.pp Normal file
View File

@ -0,0 +1,15 @@
{ %norun }
{ the code makes no sense, but it should compile }
{$MODE OBJFPC}
{$MODESWITCH ADVANCEDRECORDS+}
program test;
procedure Resolve(out Unsigned: array of QWord);
var
Signed: array of Int64 absolute Unsigned;
begin
SetLength(Signed, 0);
end;
begin
end.