mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 13:19:12 +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)
|
bug0291.pp @procvar in tp mode bugs OK 0.99.13 (PFV)
|
||||||
bug0292.pp objects not finalized when disposed OK 0.99.13 (FK)
|
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)
|
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:
|
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
|
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
|
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