From 5ac193dfc3e8dff2d1d31b589395a04d75462379 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sun, 9 Mar 2014 16:45:15 +0000
Subject: [PATCH] * fixed test tbsx1.pp for a 16-bit objpas.integer type

git-svn-id: trunk@27050 -
---
 tests/test/tbsx1.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/test/tbsx1.pp b/tests/test/tbsx1.pp
index d69560cf16..fe5aa1b524 100644
--- a/tests/test/tbsx1.pp
+++ b/tests/test/tbsx1.pp
@@ -83,7 +83,7 @@ var
 begin
   for i:=0 to 31 do
   begin
-    x32:=1 shl i;
+    x32:=cardinal(1) shl i;
     f:=BsfDWord(x32);
     if (f<>i) then
     begin