+ added bugs 188-190

bugs/bug0188.pp

@@ -0,0 +1,17 @@
+type testfunc = function:longint;
+
+var test: testfunc;
+
+function test_temp: longint;
+begin
+  test_temp:=12;
+end;
+
+procedure sound(test: testfunc);
+begin
+  writeln(test);
+end; { proc. sound }
+
+begin
+  sound(test_temp);
+end.

bugs/bug0189.pp

@@ -0,0 +1,17 @@
+var m: procedure;
+
+procedure test;
+begin
+end;
+
+procedure test2;
+begin
+end;
+
+begin
+ if @test <> @test2 then
+   writeln('different!');
+
+ if @m <> @test then
+   writeln('hi!');
+end.

bugs/bug0190.pp

@@ -0,0 +1,10 @@
+procedure a(var b: boolean);
+begin
+  b:=true;
+end;
+
+var C: byte;
+
+begin
+  a(boolean(c));
+end.

bugs/readme.txt

@@ -249,3 +249,7 @@ bug0171.pp   missing typecasting in constant expressions
 bug0183.pp   internal error 10
 bug0185.pp   missing range checking for Val and subrange types
 bug0187.pp   constructor in a WIth statement isn't called correct.
+bug0188.pp   can't print function result of procedural var that returns a
+             function.
+bug0189.pp   cant compare adresses of function variables !!
+bug0190.pp   can't have typecast for var params ??