paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 08:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed test tbsx1.pp for a 16-bit objpas.integer type

Browse Source 
git-svn-id: trunk@27050 -
This commit is contained in:
nickysn 2014-03-09 16:45:15 +00:00
parent b11e26cf55
commit 5ac193dfc3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test/tbsx1.pp
View File

@ -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