paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 20:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@33419 -
This commit is contained in:
sergei 2016-04-03 22:26:10 +00:00
parent 406e3c4ac1
commit f73b3c6e4b
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/win64/seh64.inc
View File

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