* Also assign the ErrorCode variable, which is being checked by some tests like test/tstack.pp.

git-svn-id: trunk@33419 -

rtl/win64/seh64.inc

@@ -410,6 +410,7 @@ begin
           Writeln(hstdout^,BackTraceStrFunc(Exc^.Frames[i]));
       end;
       Writeln(hstdout^,'');
+      ErrorCode:=word(code);
       Halt(code);
     end
     else