peter 26 years ago
parent
commit
d26e89ef80
2 changed files with 15 additions and 2 deletions
  1. 13 0
      bugs/bug0273.pp
  2. 2 2
      bugs/readme.txt

+ 13 - 0
bugs/bug0273.pp

@@ -0,0 +1,13 @@
+Program CharArr;
+
+Var CharArray : Array[1..4] Of Char;
+
+    S : String;
+
+Begin
+ CharArray:='BUG?';
+ S:=CharArray;
+ WriteLn(S);         { * This is O.K. * }
+ WriteLn(CharArray); { * GENERAL PROTECTION FAULT. * }
+End.
+

+ 2 - 2
bugs/readme.txt

@@ -313,7 +313,7 @@ Fixed bugs:
   bug0257.pp   problem with procvars in tp mode                     OK 0.99.11 (PM)
   bug0257.pp   problem with procvars in tp mode                     OK 0.99.11 (PM)
   bug0258.pp   bug in small const set extension to large sets       OK 0.99.12 (PM)
   bug0258.pp   bug in small const set extension to large sets       OK 0.99.12 (PM)
   bug0259.pp   problem with optimizer for real math (use -O1)       OK 0.99.12 (PM)
   bug0259.pp   problem with optimizer for real math (use -O1)       OK 0.99.12 (PM)
-  bug0260.pp   problem with VMT generation if non virtual 
+  bug0260.pp   problem with VMT generation if non virtual
                method has a virtual overload                        OK 0.99.12 (PM)
                method has a virtual overload                        OK 0.99.12 (PM)
   bug0261.pp   problems for assignment overloading                  OK 0.99.12a (PM)
   bug0261.pp   problems for assignment overloading                  OK 0.99.12a (PM)
   bug0269.pp   wrong linenumber for repeat until when type mismatch OK 0.99.12b (PM)
   bug0269.pp   wrong linenumber for repeat until when type mismatch OK 0.99.12b (PM)
@@ -361,4 +361,4 @@ bug0268.pp   crash with exceptions
 bug0270.pp   unexpected eof in tp mode with (* and directives
 bug0270.pp   unexpected eof in tp mode with (* and directives
 bug0271.pp   abstract methods can't be assigned to methodpointers
 bug0271.pp   abstract methods can't be assigned to methodpointers
 bug0272.pp   No error issued if wrong parameter in function inside a second function
 bug0272.pp   No error issued if wrong parameter in function inside a second function
-
+bug0273.pp   small array pushing to array of char procedure is wrong