* patch from Vinzent Hoefler with first go32v2 fixes

git-svn-id: trunk@152 -

rtl/go32v2/dpmiexcp.pp

@@ -240,7 +240,7 @@ var
 const
   int31error : word = 0;
 
-    procedure test_int31(flag : longint);
+    procedure test_int31(flag : longint); stdcall; { stack-args! }
       begin
          asm
             pushl %ebx

rtl/go32v2/go32.pp

@@ -219,7 +219,7 @@ interface
       end;
 
 
-    procedure test_int31(flag : longint);
+    procedure test_int31(flag : longint); stdcall; { stack-args! }
       begin
          asm
             pushl %ebx
@@ -277,6 +277,7 @@ interface
       begin
          regs.realsp:=0;
          regs.realss:=0;
+         regs.realres:=0; { play it safe }
          asm
             { save all used registers to avoid crash under NTVDM }
             { when spawning a 32-bit DPMI application            }

rtl/go32v2/sysos.inc

@@ -265,14 +265,18 @@ procedure sysrealintr(intnr : word;var regs : trealregs);
 begin
    regs.realsp:=0;
    regs.realss:=0;
+   regs.realres:=0; { spec says so, play it safe }
    asm
       pushl %ebx
       pushl %edi
+      pushl %fs   // Go32.RealIntr does it too (NTVDM bug),
+                  // "pushl" to avoid size prefix
       movw  intnr,%bx
       xorl  %ecx,%ecx
       movl  regs,%edi
       movw  $0x300,%ax
       int   $0x31
+      popl  %fs
       popl  %edi
       popl  %ebx
    end;