+ fixed mistyped call to BsfWord in test tbsx1.pp

git-svn-id: trunk@26594 -

tests/test/tbsx1.pp

@@ -61,7 +61,7 @@ begin
     end;
   end;
   x16:=0;
-  f:=BsfDWord(x16);
+  f:=BsfWord(x16);
   if (f<>$ff) then
   begin
     writeln('BsfWord(',x16,') returned ',f,', should be ',$ff);