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

+ 291

Browse Source
This commit is contained in:
peter 1999-09-17 17:12:11 +00:00
parent 4c42fc0a92
commit 5c391dc7e9
2 changed files with 27 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
bugs/bug0291.pp Normal file
View File

@ -0,0 +1,25 @@
{$mode tp}
function ReturnString: string;
begin
ReturnString := 'A string';
end;
procedure AcceptString(S: string);
begin
WriteLn('Got: ', S);
end;
type
TStringFunc = function: string;
const
SF: TStringFunc = ReturnString;
var
S2: TStringFunc;
begin
@S2:=@ReturnString;
AcceptString(ReturnString);
AcceptString(SF);
AcceptString(S2);
end.

3
bugs/readme.txt
View File

@ -339,6 +339,7 @@ Fixed bugs:
bug0286.pp #$08d not allowed as Char constant OK 0.99.13 (PFV) bug0286.pp #$08d not allowed as Char constant OK 0.99.13 (PFV)
bug0287.pp (true > false) not supported OK 0.99.13 (PFV) bug0287.pp (true > false) not supported OK 0.99.13 (PFV)
bug0288.pp crash with virtual method in except part OK 0.99.13 (PFV) bug0288.pp crash with virtual method in except part OK 0.99.13 (PFV)
bug0291.pp @procvar in tp mode bugs OK 0.99.13 (PFV)
Unproducable bugs: Unproducable bugs:
------------------ ------------------
@ -378,4 +379,4 @@ bug0275.pp too many warnings
bug0277.pp typecasting with const not possible bug0277.pp typecasting with const not possible
bug0281.pp dup id checking with property is wrong bug0281.pp dup id checking with property is wrong
bug0289.pp no hint/note for unused types bug0289.pp no hint/note for unused types
bug0290.pp problem with storing hex numbers in integers bug0290.pp problem with storing hex numbers in integers