Prechádzať zdrojové kódy

Add ESigQuit Exception class and use it in exceptmap

git-svn-id: trunk@38586 -
pierre 7 rokov pred
rodič
commit
31620a9c94

+ 1 - 0
rtl/objpas/sysutils/sysutilh.inc

@@ -193,6 +193,7 @@ type
    EAssertionFailed = Class(Exception);
    EObjectCheck     = Class(Exception);
    EThreadError     = Class(Exception);
+   ESigQuit         = Class(Exception);
 
    EPropReadOnly = class(Exception);
    EPropWriteOnly = class(Exception);

+ 1 - 1
rtl/objpas/sysutils/sysutils.inc

@@ -371,7 +371,7 @@ const
     (code: 229; cls: ESafecallException; msg: @SSafecallException),
     (code: 231; cls: EConvertError;  msg: @SiconvError),
     (code: 232; cls: ENoThreadSupport; msg: @SNoThreadSupport),
-    (code: 233; cls: ENoWideStringSupport; msg: @SSigQuit),
+    (code: 233; cls: ESigQuit; msg: @SSigQuit),
     (code: 234; cls: ENoWideStringSupport; msg: @SMissingWStringManager),
     (code: 235; cls: ENoDynLibsSupport; msg: @SNoDynLibsSupport),
     (code: 236; cls: EThreadError; msg: @SThreadError)