* Improved safecall test. Added code to test parameter-values

git-svn-id: trunk@16120 -

tests/test/tsafecall3.pp

@@ -10,6 +10,8 @@ function SafecallProcedureAlias(AParam1,AParam2: integer):HRESULT; {$IFDEF windo
 procedure SafecallProcedure(AParam1,AParam2: integer); safecall; [public, alias: '_SAFECALLPROCEDURE'];
 var i,j: double;
 begin
+  if (AParam1<>$123456) or (AParam2<>$654321) then
+    halt(1);
   i := 1;
   j := 0;
   // division by zero, but no exception should be raised. Instead the function
@@ -20,6 +22,8 @@ end;
 function SafecallFunctionAlias(AParam1,AParam2: integer; out _result: string):HRESULT; {$IFDEF windows}stdcall{$ELSE}cdecl{$ENDIF}; [external name '_SAFECALLFUNCTION'];
 function SafecallFunction(AParam1,AParam2: integer): string; safecall; [public, alias: '_SAFECALLFUNCTION'];
 begin
+  if (AParam1<>$123456) or (AParam2<>$654321) then
+    halt(2);
   raise exception.create('Ignore and return non-zero');
 end;
 
@@ -28,8 +32,8 @@ var
 
 begin
   if SafecallProcedureAlias($123456,$654321) = 0 then
-    halt(1);
+    halt(11);
   if SafecallFunctionAlias($123456,$654321,s) = 0 then
-    halt(2);
+    halt(12);
 end.