mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 08:29:29 +02:00
+ some more bugs some even already solved
This commit is contained in:
parent
c84c00710e
commit
4069f03938
14
bugs/bug0297.pp
Normal file
14
bugs/bug0297.pp
Normal file
@ -0,0 +1,14 @@
|
||||
program test_int;
|
||||
|
||||
{$ifdef go32v2}
|
||||
uses
|
||||
dpmiexcp;
|
||||
{$endif go32v2}
|
||||
|
||||
procedure int;interrupt;
|
||||
begin
|
||||
end;
|
||||
|
||||
begin
|
||||
int;
|
||||
end.
|
11
bugs/bug0298.pp
Normal file
11
bugs/bug0298.pp
Normal file
@ -0,0 +1,11 @@
|
||||
program test_loc_mem;
|
||||
|
||||
{$ifdef go32v2}
|
||||
uses
|
||||
dpmiexcp;
|
||||
{$endif go32v2}
|
||||
|
||||
var l1,l2 : longint;
|
||||
begin
|
||||
l1+l2:=l1+l2;
|
||||
end.
|
22
bugs/bug0299.pp
Normal file
22
bugs/bug0299.pp
Normal file
@ -0,0 +1,22 @@
|
||||
type
|
||||
TwoChar = Array[0..1] of char;
|
||||
Empty = Record
|
||||
End;
|
||||
const
|
||||
asd : TwoChar = ('a','b');
|
||||
|
||||
procedure Tester(i:TwoChar; a: Empty;l : longint);
|
||||
begin
|
||||
i[0]:=i[1];
|
||||
Writeln('l = ',l,' @l = ',hexstr(longint(@l),8),' @a = ',hexstr(longint(@a),8));
|
||||
end;
|
||||
|
||||
var
|
||||
a : Empty;
|
||||
l : longint;
|
||||
begin
|
||||
l:=6;
|
||||
Writeln(Sizeof(asd));
|
||||
Tester(asd,a,l);
|
||||
Writeln(asd);
|
||||
end.
|
4
bugs/bug0300.pp
Normal file
4
bugs/bug0300.pp
Normal file
@ -0,0 +1,4 @@
|
||||
procedure nonexistent_class_or_object.method; begin end;
|
||||
begin
|
||||
end.
|
||||
|
@ -348,6 +348,7 @@ Fixed bugs:
|
||||
bug0291.pp @procvar in tp mode bugs OK 0.99.13 (PFV)
|
||||
bug0292.pp objects not finalized when disposed OK 0.99.13 (FK)
|
||||
bug0295.pp forward type definition is resolved wrong OK 0.99.13 (PFV)
|
||||
bug0296.pp exit(string) does not work (web form bug 613) OK 0.99.13 (PM)
|
||||
|
||||
|
||||
Unproducable bugs:
|
||||
@ -385,4 +386,7 @@ bug0263.pp export directive is not necessary in delphi anymore
|
||||
bug0265.pp nested proc with for-counter in other lex level
|
||||
bug0281.pp dup id checking with property is wrong
|
||||
bug0293.pp no error with variable name = type name
|
||||
bug0296.pp exit(string) does not work (web form bug 613)
|
||||
bug0297.pp calling of interrupt procedure allowed but wrong code generated
|
||||
bug0298.pp l1+l2:=l1+l2 gives no error
|
||||
bug0299.pp passing Array[0..1] of char by value to proc leads to problems
|
||||
bug0300.pp crash if method on non existing object is parsed (form bug 651)
|
Loading…
Reference in New Issue
Block a user