* more testbench fixes

git-svn-id: trunk@1600 -

tests/tbs/tb0309.pp

@@ -51,7 +51,7 @@ begin
    p:=new(pa,init);
    p^.p;
    { the vmt pointer gets an invalid value: }
-   plongint(p)^:=longint(@data);
+   pptrint(p)^:=ptrint(@data);
    { causes runerror }
    p^.p;
    halt(1);

tests/webtbf/tw3626.pp

@@ -1,4 +1,4 @@
-{ %skipcpu=x86_64 }
+{ %skipcpu=x86_64,powerpc64 }
 { %fail }
 
 { Source provided for Free Pascal Bug Report 3626 }