Browse Source

+ bug0148 added

Jonas Maebe 27 years ago
parent
commit
49d11de778
2 changed files with 22 additions and 0 deletions
  1. 20 0
      bugs/bug0148.pas
  2. 2 0
      bugs/readme.txt

+ 20 - 0
bugs/bug0148.pas

@@ -0,0 +1,20 @@
+unit test;
+
+interface
+
+Function t(a: Byte): byte;
+Function DoT(b: byte): Byte;
+
+implementation
+
+Function t(a: Byte): Byte;
+var f: byte;
+Begin
+  DoT := f;
+End;
+
+Function DoT(b: byte): Byte;
+Begin
+End;
+
+end.

+ 2 - 0
bugs/readme.txt

@@ -196,3 +196,5 @@ 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
 bug0146.pp   no sizeof() for var arrays and the size is pushed incorrect
 bug0147.pp   function b; is not allowed in implementation
 bug0147.pp   function b; is not allowed in implementation
+bug0148.pp   triple fault exception when setting function result of a declared
+             but not yet implemented function in another function