* test_int31 needs stdcall modifier

git-svn-id: trunk@8551 -

rtl/watcom/watcom.pp

@@ -209,7 +209,7 @@ interface
       end;
 
 
-    procedure test_int31(flag : longint);
+    procedure test_int31(flag : longint); stdcall; { flag is pushed on stack }
       begin
          asm
             pushl %ebx