* fixed test

git-svn-id: trunk@2975 -

tests/webtbs/tw4534.pp

@@ -12,8 +12,10 @@ begin
     begin
       if (p1^ xor p2^) = $80 then
         halt(0);
-      halt(1);
+      inc(p1); 
+      inc(p2);
     end;
+  halt(1);
 end;
 
 var x,y:extended;