* From Yury Sidorov:

* Now runtime error is not popped on program's exit if exception was handled. 

git-svn-id: trunk@601 -

rtl/inc/except.inc

@@ -235,6 +235,7 @@ begin
        if assigned(hp^.frames) then
          freemem(hp^.frames);
        dispose(hp);
+       erroraddr:=nil;
     end;
 end;