From 487c4f76a439c7551ad8620d8bbe0fc479e51058 Mon Sep 17 00:00:00 2001
From: tom_at_work <tom_at_work@idefix.freepascal.org>
Date: Wed, 26 Oct 2005 21:42:20 +0000
Subject: [PATCH] * more testbench fixes

git-svn-id: trunk@1600 -
---
 tests/tbs/tb0309.pp    | 2 +-
 tests/webtbf/tw3626.pp | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/tbs/tb0309.pp b/tests/tbs/tb0309.pp
index e3dd5788bd..d898d49148 100644
--- a/tests/tbs/tb0309.pp
+++ b/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);
diff --git a/tests/webtbf/tw3626.pp b/tests/webtbf/tw3626.pp
index 01a976b6e7..e4b74805e1 100644
--- a/tests/webtbf/tw3626.pp
+++ b/tests/webtbf/tw3626.pp
@@ -1,4 +1,4 @@
-{ %skipcpu=x86_64 }
+{ %skipcpu=x86_64,powerpc64 }
 { %fail }
 
 { Source provided for Free Pascal Bug Report 3626 }