* merge r33419.

git-svn-id: branches/fixes_3_0@33423 -

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