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

* allow taking the address of an indexed array function result

Browse Source 
(mantis #16772)

git-svn-id: trunk@15475 -
This commit is contained in:
Jonas Maebe 2010-06-25 12:42:27 +00:00
parent 04a63ea278
commit e36857742f
3 changed files with 36 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -10509,6 +10509,7 @@ tests/webtbs/tw16668.pp svneol=native#text/plain
tests/webtbs/tw16700.pp svneol=native#text/plain
tests/webtbs/tw1677.pp svneol=native#text/plain
tests/webtbs/tw16770.pp svneol=native#text/plain
tests/webtbs/tw16772.pp svneol=native#text/plain
tests/webtbs/tw1681.pp svneol=native#text/plain
tests/webtbs/tw1696.pp svneol=native#text/plain
tests/webtbs/tw1699.pp svneol=native#text/plain

2
compiler/pexpr.pas
View File

@ -1635,7 +1635,7 @@ implementation
else
{ regular procedure/function call }
do_proc_call(srsym,srsymtable,nil,
(getaddr and not(token in [_CARET,_POINT])),
(getaddr and not(token in [_CARET,_POINT,_LECKKLAMMER])),
again,p1,[]);
end;

34
tests/webtbs/tw16772.pp Normal file
View File

@ -0,0 +1,34 @@
{$ifdef fpc}{$mode delphi}{$endif}
{$ifdef MSWindows}{$apptype console}{$endif}
uses
SysUtils;
type
PByteArray=^TByteArray;
var
g : array [byte] of byte;
function GetArray: PByteArray;
begin
Result:=@g[0];
end;
var
p : PByteArray;
begin
g[0]:=111;
g[1]:=221;
g[2]:=252;
p:=PByteArray(@GetArray[0]);
if p[0]<>111 then
halt(1);
p:=PByteArray(@((GetArray))[1]);
if p[0]<>221 then
halt(2);
p:=PByteArray(@(GetArray[2]));
if p[0]<>252 then
halt(3);
end.