mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-06 11:18:36 +02:00
+ 293,294,295
This commit is contained in:
parent
167f8d654f
commit
0950b2201a
28
bugs/bug0293.pp
Normal file
28
bugs/bug0293.pp
Normal file
@ -0,0 +1,28 @@
|
|||||||
|
program bug0293;
|
||||||
|
|
||||||
|
{$ifdef fpc}{$mode objfpc}{$endif}
|
||||||
|
|
||||||
|
TYPE Ttype = class
|
||||||
|
field :LONGINT;
|
||||||
|
CONSTRUCTOR DOSOMETHING;
|
||||||
|
END;
|
||||||
|
|
||||||
|
CONSTRUCTOR TTYPE.DOSOMETHING;
|
||||||
|
BEGIN
|
||||||
|
END;
|
||||||
|
|
||||||
|
var
|
||||||
|
longint : longint;
|
||||||
|
|
||||||
|
procedure p;
|
||||||
|
VAR
|
||||||
|
TTYPE : TTYPE;
|
||||||
|
BEGIn
|
||||||
|
ttype:=ttype.dosomething;
|
||||||
|
END;
|
||||||
|
|
||||||
|
begin
|
||||||
|
p;
|
||||||
|
end.
|
||||||
|
|
||||||
|
|
7
bugs/bug0294.pp
Normal file
7
bugs/bug0294.pp
Normal file
@ -0,0 +1,7 @@
|
|||||||
|
function test(test:longint):longint;
|
||||||
|
begin
|
||||||
|
test:=1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
begin
|
||||||
|
end.
|
18
bugs/bug0295.pp
Normal file
18
bugs/bug0295.pp
Normal file
@ -0,0 +1,18 @@
|
|||||||
|
type
|
||||||
|
t1=longint;
|
||||||
|
|
||||||
|
procedure p;
|
||||||
|
type
|
||||||
|
pt1=^t1;
|
||||||
|
t1=string;
|
||||||
|
var
|
||||||
|
t : t1;
|
||||||
|
p : pt1;
|
||||||
|
begin
|
||||||
|
p:=@t;
|
||||||
|
p^:='test';
|
||||||
|
end;
|
||||||
|
|
||||||
|
begin
|
||||||
|
p;
|
||||||
|
end.
|
@ -365,7 +365,7 @@ bug0243.pp Arguments of functions are computed from right to left this
|
|||||||
but only BP respects this convention Delphi and GPC also
|
but only BP respects this convention Delphi and GPC also
|
||||||
use right to left pushing !!
|
use right to left pushing !!
|
||||||
bug0290.pp problem with storing hex numbers in integers
|
bug0290.pp problem with storing hex numbers in integers
|
||||||
|
bug0294.pp parameter with the same name as function is allowed in tp7/delphi
|
||||||
|
|
||||||
Wishlist bugs:
|
Wishlist bugs:
|
||||||
--------------
|
--------------
|
||||||
@ -382,3 +382,5 @@ bug0262.pp problems with virtual and overloaded methods
|
|||||||
bug0263.pp export directive is not necessary in delphi anymore
|
bug0263.pp export directive is not necessary in delphi anymore
|
||||||
bug0265.pp nested proc with for-counter in other lex level
|
bug0265.pp nested proc with for-counter in other lex level
|
||||||
bug0281.pp dup id checking with property is wrong
|
bug0281.pp dup id checking with property is wrong
|
||||||
|
bug0293.pp no error with variable name = type name
|
||||||
|
bug0295.pp forward type definition is resolved wrong
|
||||||
|
Loading…
Reference in New Issue
Block a user