peter 27 years ago
parent
commit
3a10beb991
2 changed files with 12 additions and 0 deletions
  1. 11 0
      bugs/bug0146.pp
  2. 1 0
      bugs/readme.txt

+ 11 - 0
bugs/bug0146.pp

@@ -0,0 +1,11 @@
+procedure myfunction(var t : array of char);
+begin
+  writeln(sizeof(t)); { should be 51 }
+end;
+
+var
+  mycharstring : array[0..50] of char;
+
+begin
+  myfunction(mycharstring);
+end.

+ 1 - 0
bugs/readme.txt

@@ -194,4 +194,5 @@ bug0142.pp   sizeof(object) is not tp7 compatible when no constructor is used
 bug0143.pp   cannot concat string and array of char in $X+ mode
 bug0143.pp   cannot concat string and array of char in $X+ mode
 bug0144.pp   problem with 'with object do'
 bug0144.pp   problem with 'with object do'
 bug0145.pp   typed files with huges records (needs filerec.size:longint)
 bug0145.pp   typed files with huges records (needs filerec.size:longint)
+bug0146.pp   no sizeof() for var arrays and the size is pushed incorrect