+ extended test tasm20.pp with a function, which checks that a shortstring

parameter doesn't get copied to a local variable in a pure asm routine

git-svn-id: trunk@38249 -

tests/test/tasm20.pp

@@ -106,6 +106,11 @@ asm
   stosb
 end;
 
+procedure myfunc5(s: string); assembler;
+asm
+  mov actual_sp, sp
+end;
+
 procedure Error;
 begin
   Writeln('Error!');
@@ -128,5 +133,8 @@ begin
   res4 := myfunc4;
   if (res4 <> 'Tralala') and ((expect_sp - actual_sp) <> (2 + SizeOf(Pointer))) then
     Error;
+  myfunc5('Test');
+  if (expect_sp - actual_sp) <> (2 + SizeOf(Pointer)) then
+    Error;
   Writeln('Ok!');
 end.