소스 검색

Add ESigQuit Exception class and use it in exceptmap

git-svn-id: trunk@38586 -
pierre 7 년 전
부모
커밋
31620a9c94
2개의 변경된 파일2개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 0
      rtl/objpas/sysutils/sysutilh.inc
  2. 1 1
      rtl/objpas/sysutils/sysutils.inc

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

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

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

@@ -371,7 +371,7 @@ const
     (code: 229; cls: ESafecallException; msg: @SSafecallException),
     (code: 229; cls: ESafecallException; msg: @SSafecallException),
     (code: 231; cls: EConvertError;  msg: @SiconvError),
     (code: 231; cls: EConvertError;  msg: @SiconvError),
     (code: 232; cls: ENoThreadSupport; msg: @SNoThreadSupport),
     (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: 234; cls: ENoWideStringSupport; msg: @SMissingWStringManager),
     (code: 235; cls: ENoDynLibsSupport; msg: @SNoDynLibsSupport),
     (code: 235; cls: ENoDynLibsSupport; msg: @SNoDynLibsSupport),
     (code: 236; cls: EThreadError; msg: @SThreadError)
     (code: 236; cls: EThreadError; msg: @SThreadError)