+ bug0148 added

This commit is contained in:
Jonas Maebe 1998-07-22 16:18:53 +00:00
parent 61285973f9
commit 49d11de778
2 changed files with 22 additions and 0 deletions

20
bugs/bug0148.pas Normal file
View File

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

View File

@ -196,3 +196,5 @@ bug0144.pp problem with 'with object do'
bug0145.pp typed files with huges records (needs filerec.size:longint)
bug0146.pp no sizeof() for var arrays and the size is pushed incorrect
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