mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 15:59:30 +02:00
+ 263,264
This commit is contained in:
parent
9ca18fc55b
commit
39630ae945
15
bugs/bug0263.pp
Normal file
15
bugs/bug0263.pp
Normal file
@ -0,0 +1,15 @@
|
||||
library bug0263;
|
||||
|
||||
{
|
||||
The export directive is not necessary anymore in delphi, it's a leftover
|
||||
from the 16bit model, just like near and far.
|
||||
}
|
||||
|
||||
procedure p;
|
||||
begin
|
||||
end;
|
||||
|
||||
exports
|
||||
p name 'p';
|
||||
|
||||
end.
|
44
bugs/bug0264.pp
Normal file
44
bugs/bug0264.pp
Normal file
@ -0,0 +1,44 @@
|
||||
{$MODE DELPHI}
|
||||
|
||||
type
|
||||
a = class
|
||||
c : procedure of object;
|
||||
|
||||
constructor create; virtual;
|
||||
destructor destroy; override;
|
||||
|
||||
procedure e; virtual;
|
||||
procedure f; virtual;
|
||||
end;
|
||||
|
||||
constructor a.create;
|
||||
begin
|
||||
c := @e;
|
||||
end;
|
||||
|
||||
destructor a.destroy;
|
||||
begin
|
||||
end;
|
||||
|
||||
procedure a.e;
|
||||
begin
|
||||
Writeln('E');
|
||||
c := @f;
|
||||
end;
|
||||
|
||||
procedure a.f;
|
||||
begin
|
||||
Writeln('F');
|
||||
c := @e;
|
||||
end;
|
||||
|
||||
var
|
||||
z : a;
|
||||
|
||||
begin
|
||||
z := a.create;
|
||||
z.c;
|
||||
z.c;
|
||||
z.c;
|
||||
z.free;
|
||||
end.
|
@ -351,4 +351,6 @@ bug0245.pp assigning pointers to address of consts is allowed (refused by BP !
|
||||
bug0246.pp const para can be changed without error
|
||||
bug0252.pp typecasting not possible within typed const
|
||||
bug0261.pp problems for assignment overloading
|
||||
bug0262.pp problems with virtual and overloaded methods
|
||||
bug0262.pp problems with virtual and overloaded methods
|
||||
bug0263.pp export directive is not necessary in delphi anymore
|
||||
bug0264.pp methodpointer bugs
|
||||
|
Loading…
Reference in New Issue
Block a user