mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 07:26:24 +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
|
bug0246.pp const para can be changed without error
|
||||||
bug0252.pp typecasting not possible within typed const
|
bug0252.pp typecasting not possible within typed const
|
||||||
bug0261.pp problems for assignment overloading
|
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