* fixed output of test if a failure happens

git-svn-id: trunk@26505 -

tests/test/tbsx1.pp

@@ -19,7 +19,7 @@ begin
     r:=BsrByte(x8);
     if r<>i then
     begin
-      writeln('BsrByte(',x8,') returned ',f,', should be ',i);
+      writeln('BsrByte(',x8,') returned ',r,', should be ',i);
       exit(false);
     end;
   end;
@@ -33,7 +33,7 @@ begin
   r:=BsrByte(x8);
   if r<>$ff then
   begin
-    writeln('BsrByte(',x8,') returned ',f,', should be ',$ff);
+    writeln('BsrByte(',x8,') returned ',r,', should be ',$ff);
     exit(false);
   end;
   result:=true;
@@ -56,7 +56,7 @@ begin
     r:=BsrWord(x16);
     if r<>i then
     begin
-      writeln('BsrWord(',x16,') returned ',f,', should be ',i);
+      writeln('BsrWord(',x16,') returned ',r,', should be ',i);
       exit(false);
     end;
   end;
@@ -70,7 +70,7 @@ begin
   r:=BsrWord(x16);
   if r<>$ff then
   begin
-    writeln('BsrWord(',x16,') returned ',f,', should be ',$ff);
+    writeln('BsrWord(',x16,') returned ',r,', should be ',$ff);
     exit(false);
   end;
   result:=true;
@@ -93,7 +93,7 @@ begin
     r:=BsrDWord(x32);
     if r<>i then
     begin
-      writeln('BsrDWord(',x32,') returned ',f,', should be ',i);
+      writeln('BsrDWord(',x32,') returned ',r,', should be ',i);
       exit(false);
     end;
   end;
@@ -107,7 +107,7 @@ begin
   r:=BsrDWord(x32);
   if r<>$ff then
   begin
-    writeln('BsrDWord(',x32,') returned ',f,', should be ',$ff);
+    writeln('BsrDWord(',x32,') returned ',r,', should be ',$ff);
     exit(false);
   end;
   result:=true;
@@ -142,7 +142,7 @@ begin
   r:=BsrQWord(x64);
   if r<>$ff then
   begin
-    writeln('BsrQWord(',x64,') returned ',f,', should be ',$ff);
+    writeln('BsrQWord(',x64,') returned ',r,', should be ',$ff);
     exit(false);
   end;
   result:=true;