+ 191,192

bugs/bug0191.pp

@@ -0,0 +1,20 @@
+type
+  trec=record
+   a,b : longint;
+  end;
+  prec=^trec;
+
+const
+  s  : string = 'test';
+  pc : pchar = @s[1];
+
+  cfg : array[1..2] of trec=(
+   (a:1;b:2),
+   (a:3;b:4)
+  );
+  pcfg : prec = @cfg[2];
+
+  l : ^longint = @cfg[1].b; { l^ should be 2 }
+
+begin
+end.

bugs/bug0192.pp

@@ -0,0 +1,8 @@
+var
+  k,l : word;
+begin
+  if (k<>l)=false then
+   ;
+  if (k<>l)=true then
+   ;
+end.

bugs/readme.txt

@@ -253,3 +253,6 @@ 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 ??
+bug0191.pp   missing vecn constant evaluation
+bug0192.pp   can't compare boolean result with true/false, because the
+             boolean result is already in the flags