+ 171,172,173

bugs/bug0171.pp

@@ -0,0 +1,7 @@
+type
+  pstring=^string;
+const
+  drivestr:string='c:';
+  pdrivestr:pstring=@drivestr;
+begin
+end.

bugs/bug0172.pp

@@ -0,0 +1,11 @@
+type
+  rec=record
+    a : longint;
+  end;
+    
+var
+  r1 : rec absolute $40:$49;
+begin
+  with r1 do
+   a:=1;
+end.     

bugs/bug0173.pp

@@ -0,0 +1,9 @@
+var
+  secondbug : word;
+procedure p;assembler;
+begin
+  if secondbug=0 then;
+end;
+
+begin
+end.

bugs/readme.txt

@@ -222,3 +222,6 @@ bug0152.pp   End value of loop variable must be calculated before loop
              variable is initialized.
 bug0163.pp   missing <= and >= operators for sets.
 bug0169.pp   missing new(type) support for not object/class
+bug0171.pp   missing typecasting in constant expressions
+bug0172.pp   with with absolute seg:ofs should not be possible
+bug0173.pp   secondbug is parsed as asm, but should be normal pascalcode