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