Browse Source

+ some more bugs some even already solved

pierre 26 years ago
parent
commit
4069f03938
5 changed files with 56 additions and 1 deletions
  1. 14 0
      bugs/bug0297.pp
  2. 11 0
      bugs/bug0298.pp
  3. 22 0
      bugs/bug0299.pp
  4. 4 0
      bugs/bug0300.pp
  5. 5 1
      bugs/readme.txt

+ 14 - 0
bugs/bug0297.pp

@@ -0,0 +1,14 @@
+program test_int;
+
+{$ifdef go32v2}
+  uses
+    dpmiexcp;
+{$endif go32v2}
+
+procedure int;interrupt;
+begin
+end;
+
+begin
+  int;
+end.

+ 11 - 0
bugs/bug0298.pp

@@ -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 - 0
bugs/bug0299.pp

@@ -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 - 0
bugs/bug0300.pp

@@ -0,0 +1,4 @@
+ procedure nonexistent_class_or_object.method; begin end;
+begin
+end.
+

+ 5 - 1
bugs/readme.txt

@@ -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)