#i105680# remove warnings, in vb params, not inout

2 files changed, 9 insertions, 9 deletions

diff --git a/testtools/source/bridgetest/bridgetest.cxx b/testtools/source/bridgetest/bridgetest.cxx
index 97227fa5d2e7..45edf5f53392 100644
--- a/testtools/source/bridgetest/bridgetest.cxx
+++ b/testtools/source/bridgetest/bridgetest.cxx
@@ -550,7 +550,7 @@ static sal_Bool performTest(
                 bRet = check( memcmp(&aIn, &aOut, sizeof(BigStruct)) == 0, "big struct test" ) && bRet;
         }
         {
-                AllFloats aIn(1.1, 2.2, 3.3, 4.4);
+                AllFloats aIn(1.1f, 2.2f, 3.3f, 4.4f);
                 AllFloats aOut = xLBT->echoAllFloats(aIn);
                 bRet = check( memcmp(&aIn, &aOut, sizeof(AllFloats)) == 0, "all floats struct test" ) && bRet;
         }
diff --git a/testtools/source/bridgetest/cli/cli_vb_testobj.vb b/testtools/source/bridgetest/cli/cli_vb_testobj.vb
index 78942280b11b..721723009374 100644
--- a/testtools/source/bridgetest/cli/cli_vb_testobj.vb
+++ b/testtools/source/bridgetest/cli/cli_vb_testobj.vb
@@ -202,39 +202,39 @@ Public Class VBBridgeTestObject
     End Function
 
     Public Overridable Function  echoSmallStruct( _
-        ByRef i_Struct As SmallStruct) As SmallStruct _
+        smallStruct As SmallStruct) As SmallStruct _
         Implements XBridgeTest2.echoSmallStruct
 #if DEBUG
         'Console.WriteLine( "##### " + GetType().FullName + ".echoSmallStruct" )
 #endif
-        Return i_Struct
+        Return smallStruct
     End Function
 
     Public Overridable Function  echoMediumStruct( _
-        ByRef i_Struct As MediumStruct) As MediumStruct _
+        mediumStruct As MediumStruct) As MediumStruct _
         Implements XBridgeTest2.echoMediumStruct
 #if DEBUG
         'Console.WriteLine( "##### " + GetType().FullName + ".echoMediumStruct" )
 #endif
-        Return i_Struct
+        Return mediumStruct
     End Function
 
     Public Overridable Function  echoBigStruct( _
-        ByRef i_Struct As BigStruct) As BigStruct _
+        bigStruct As BigStruct) As BigStruct _
         Implements XBridgeTest2.echoBigStruct
 #if DEBUG
         'Console.WriteLine( "##### " + GetType().FullName + ".echoBigStruct" )
 #endif
-        Return i_Struct
+        Return bigStruct
     End Function
 
     Public Overridable Function  echoAllFloats( _
-        ByRef i_Struct As AllFloats) As AllFloats _
+        allFloats As AllFloats) As AllFloats _
         Implements XBridgeTest2.echoAllFloats
 #if DEBUG
         'Console.WriteLine( "##### " + GetType().FullName + ".echoAllFloats" )
 #endif
-        Return i_Struct
+        Return allFloats
     End Function
    
     ' Attributes ---------------------------------------------------------