| version 1.24, 2011/12/17 02:23:35 | version 1.31, 2011/12/23 04:19:43 | 
| Line 74  exception(int num, int error_code) | Line 74  exception(int num, int error_code) | 
 | #endif | #endif | 
 |  |  | 
 | VERBOSE(("exception: -------------------------------------------------------------- start")); | VERBOSE(("exception: -------------------------------------------------------------- start")); | 
| VERBOSE(("exception: %s, error_code = %x at %04x:%08x", exception_str[num], error_code, CPU_CS, CPU_PREV_EIP)); | VERBOSE(("exception: %s, error_code = %x at %04x:%08x, %04x:%08x", exception_str[num], error_code, CPU_CS, CPU_PREV_EIP, CPU_SS, CPU_ESP)); | 
 | VERBOSE(("%s", cpu_reg2str())); | VERBOSE(("%s", cpu_reg2str())); | 
 |  |  | 
 | CPU_STAT_EXCEPTION_COUNTER_INC(); | CPU_STAT_EXCEPTION_COUNTER_INC(); | 
| Line 85  exception(int num, int error_code) | Line 85  exception(int num, int error_code) | 
 | } | } | 
 |  |  | 
 | switch (num) { | switch (num) { | 
| case DE_EXCEPTION:      /* (F) ½ü»»¥¨¥é¡¼ */ | case DE_EXCEPTION:      /* (F) ½ü»»¥¨¥é¡¼ */ | 
| case DB_EXCEPTION:      /* (F/T) ¥Ç¥Ð¥Ã¥° */ | case DB_EXCEPTION:      /* (F/T) ¥Ç¥Ð¥Ã¥° */ | 
| case BR_EXCEPTION:      /* (F) BOUND ¤ÎÈϰϳ° */ | case BR_EXCEPTION:      /* (F) BOUND ¤ÎÈϰϳ° */ | 
| case UD_EXCEPTION:      /* (F) ̵¸ú¥ª¥Ú¥³¡¼¥É */ | case UD_EXCEPTION:      /* (F) ̵¸ú¥ª¥Ú¥³¡¼¥É */ | 
| case NM_EXCEPTION:      /* (F) ¥Ç¥Ð¥¤¥¹»ÈÍÑÉÔ²Ä (FPU ¤¬Ìµ¤¤) */ | case NM_EXCEPTION:      /* (F) ¥Ç¥Ð¥¤¥¹»ÈÍÑÉÔ²Ä (FPU ¤¬Ìµ¤¤) */ | 
| case MF_EXCEPTION:      /* (F) ÉâÆ°¾®¿ôÅÀ¥¨¥é¡¼ */ | case MF_EXCEPTION:      /* (F) ÉâÆ°¾®¿ôÅÀ¥¨¥é¡¼ */ | 
 | CPU_EIP = CPU_PREV_EIP; | CPU_EIP = CPU_PREV_EIP; | 
 |  | if (CPU_STATSAVE.cpu_stat.backout_sp) | 
 |  | CPU_ESP = CPU_PREV_ESP; | 
 | /*FALLTHROUGH*/ | /*FALLTHROUGH*/ | 
| case NMI_EXCEPTION:     /* (I) NMI ³ä¤ê¹þ¤ß */ | case NMI_EXCEPTION:     /* (I) NMI ³ä¤ê¹þ¤ß */ | 
| case BP_EXCEPTION:      /* (T) ¥Ö¥ì¡¼¥¯¥Ý¥¤¥ó¥È */ | case BP_EXCEPTION:      /* (T) ¥Ö¥ì¡¼¥¯¥Ý¥¤¥ó¥È */ | 
| case OF_EXCEPTION:      /* (T) ¥ª¡¼¥Ð¡¼¥Õ¥í¡¼ */ | case OF_EXCEPTION:      /* (T) ¥ª¡¼¥Ð¡¼¥Õ¥í¡¼ */ | 
 | errorp = 0; | errorp = 0; | 
 | break; | break; | 
 |  |  | 
| case DF_EXCEPTION:      /* (A) ¡¦¥¿¡¦¥è¡¦ö§¥æ¡¦¥¥¡¦ö§¥Í (errcode: 0) */ | case DF_EXCEPTION:      /* (A) åãc«ã©ã (errcode: 0) */ | 
 | errorp = 1; | errorp = 1; | 
 | error_code = 0; | error_code = 0; | 
 | break; | break; | 
 |  |  | 
| case AC_EXCEPTION:      /* (F) ¥¢¥é¥¤¥ó¥á¥ó¥È¥Á¥§¥Ã¥¯ (errcode: 0) */ | case AC_EXCEPTION:      /* (F) åâ¡Öå㥥åâ¡¢å㥦åã¡£å㥦åã°å¥áå⥡åã¦å¤± (errcode: 0) */ | 
 | error_code = 0; | error_code = 0; | 
 | /*FALLTHROUGH*/ | /*FALLTHROUGH*/ | 
| case TS_EXCEPTION:      /* (F) ¥Õ¥ª¥¯TSS (errcode) */ | case TS_EXCEPTION:      /* (F) ̵¸ú TSS (errcode) */ | 
| case NP_EXCEPTION:      /* (F) ¡¦¥µ¡¦¡¼¡¦â§ó¥ÈÉÔº(errcode) */ | case NP_EXCEPTION:      /* (F) ¥»¥°¥á¥ó¥ÈÉG (errcode) */ | 
| case SS_EXCEPTION:      /* (F) ¥¹¥¿¥Ã¥¯¥»¥°¥á¥ó¥È¥Õ¥©¥ë¥È (errcode) */ | case SS_EXCEPTION:      /* (F) ¥¹¥¿¥Ã¥¯¥»¥°¥á¥ó¥È¥Õ¥©¥ë¥È (errcode) */ | 
| case GP_EXCEPTION:      /* (F) °ìÈÌÊݸîÎã³° (errcode) */ | case GP_EXCEPTION:      /* (F) °ìÈÌÊݸîÎã³° (errcode) */ | 
| case PF_EXCEPTION:      /* (F) ¥Ú¡¼¥¸¥Õ¥©¥ë¥È (errcode) */ | case PF_EXCEPTION:      /* (F) ¥Ú¡¼¥¸¥Õ¥©¥ë¥È (errcode) */ | 
 | CPU_EIP = CPU_PREV_EIP; | CPU_EIP = CPU_PREV_EIP; | 
 |  | if (CPU_STATSAVE.cpu_stat.backout_sp) | 
 |  | CPU_ESP = CPU_PREV_ESP; | 
 | errorp = 1; | errorp = 1; | 
 | break; | break; | 
 |  |  | 
| Line 121  exception(int num, int error_code) | Line 125  exception(int num, int error_code) | 
 | break; | break; | 
 | } | } | 
 |  |  | 
 | if (CPU_STATSAVE.cpu_stat.backout_sp) { |  | 
 | VERBOSE(("exception: restore stack pointer.")); |  | 
 | CPU_ESP = CPU_PREV_ESP; |  | 
 | } |  | 
 | CPU_STATSAVE.cpu_stat.backout_sp = 0; |  | 
 |  |  | 
 | if (CPU_STAT_EXCEPTION_COUNTER >= 2) { | if (CPU_STAT_EXCEPTION_COUNTER >= 2) { | 
 | if (dftable[exctype[CPU_STAT_PREV_EXCEPTION]][exctype[num]]) { | if (dftable[exctype[CPU_STAT_PREV_EXCEPTION]][exctype[num]]) { | 
 | num = DF_EXCEPTION; | num = DF_EXCEPTION; | 
| Line 138  exception(int num, int error_code) | Line 136  exception(int num, int error_code) | 
 |  |  | 
 | VERBOSE(("exception: ---------------------------------------------------------------- end")); | VERBOSE(("exception: ---------------------------------------------------------------- end")); | 
 |  |  | 
| interrupt(num, 0, errorp, error_code); | interrupt(num, INTR_TYPE_EXTINTR, errorp, error_code); | 
 | #if defined(IA32_SUPPORT_DEBUG_REGISTER) | #if defined(IA32_SUPPORT_DEBUG_REGISTER) | 
 | if (num != BP_EXCEPTION) { | if (num != BP_EXCEPTION) { | 
 | if (CPU_INST_OP32) { | if (CPU_INST_OP32) { | 
| Line 151  exception(int num, int error_code) | Line 149  exception(int num, int error_code) | 
 | } | } | 
 |  |  | 
 | /* | /* | 
| * ¡¦¥¦¡£¥·¡¦ö£¥ò¡¦¥¤¡£¥·¡¦¥Í¡£¥ò¡¦¥Ì¡¦¡×¡¦¥±¡¦¥Ã¡¦ô§¥é¡¦¥½ | * å⥦å㥷å㥩å㥵å⥤å㥷åã°å¦½åã®å¤¥å⥱åâ¥Ãå㥧åãÎå¤Á | 
 | * | * | 
 | *  31                                16 15 14 13 12       8 7   5 4       0 | *  31                                16 15 14 13 12       8 7   5 4       0 | 
 | * +------------------------------------+--+-----+----------+-----+---------+ | * +------------------------------------+--+-----+----------+-----+---------+ | 
| * |         ¡¦¥§¡¦¥æ¡¦¥µ¡¦¥Æ¡¦¥Í 31..16          | P| DPL | 0 D 1 0 0|0 0 0|¡¦¥©¡¦¥ò¡¦ó¥| 4 | * |         ¥ª¥Õ¥»¥Ã¥È 31..16          | P| DPL | 0 D 1 0 0|0 0 0|¥«¥¦¥ó¥È | 4 | 
 | * +------------------------------------+--+-----+----------+-----+---------+ | * +------------------------------------+--+-----+----------+-----+---------+ | 
 | *  31                                16 15                                0 | *  31                                16 15                                0 | 
 | * +------------------------------------+-----------------------------------+ | * +------------------------------------+-----------------------------------+ | 
| * |        ¥»¥°¥á¥ó¥È¡¦¥»¥ì¥¯¥¿        |          ¥ª¥Õ¥»¥Ã¥È 15..0         | 0 | * |        å⥵å⡼åã¡£å㥦åã°å¦½å⥵åã¥ãåâ¥Ãå⥽        |          å⥧åãÊ夽åã¦å¥è 15..0         | 0 | 
 | * +------------------------------------+-----------------------------------+ | * +------------------------------------+-----------------------------------+ | 
 | */ | */ | 
 |  |  | 
 | /* | /* | 
| * ¥¦è¦ô»¡¬¡¦¥Ì¡¦¡×¡¦¥±¡¦¥Ã¡¦ô§¥é¡¦¥½ | * é饤åâ´ê¥»¥·å᥽åã®å¤¥å⥱åâ¥Ãå㥧åãÎå¤Á | 
 | *-- | *-- | 
| * ¡¦¥½¡¦¥±¡¦¥Ã¡£¥ò¡¦¥¤¡£¥·¡¦¥Í | * å⥽å⥱åâ¥Ãå㥵å⥤å㥷å㊠ * | 
 | *  31                                16 15 14 13 12       8 7             0 | *  31                                16 15 14 13 12       8 7             0 | 
 | * +------------------------------------+--+-----+----------+---------------+ | * +------------------------------------+--+-----+----------+---------------+ | 
| Line 174  exception(int num, int error_code) | Line 172  exception(int num, int error_code) | 
 | * +------------------------------------+--+-----+----------+---------------+ | * +------------------------------------+--+-----+----------+---------------+ | 
 | *  31                                16 15                                0 | *  31                                16 15                                0 | 
 | * +------------------------------------+-----------------------------------+ | * +------------------------------------+-----------------------------------+ | 
| * |      TSS ¥»¥°¥á¥ó¥È¡¦¥»¥ì¥¯¥¿      |              Reserved             | 0 | * |      TSS å⥵å⡼åã¡£å㥦åã°å¦½å⥵åã¥ãåâ¥Ãå⥽      |              Reserved             | 0 | 
 | * +------------------------------------+-----------------------------------+ | * +------------------------------------+-----------------------------------+ | 
 | *-- | *-- | 
 | * ¥¦è¦ô»+ * ³ä¤ê¹þ¤ß¡¦¥²¡¼¥È |  | 
 | * | * | 
 | *  31                                16 15 14 13 12       8 7   5 4       0 | *  31                                16 15 14 13 12       8 7   5 4       0 | 
 | * +------------------------------------+--+-----+----------+-----+---------+ | * +------------------------------------+--+-----+----------+-----+---------+ | 
| * |         ¡¦¥§¡¦¥æ¡¦¥µ¡¦¥Æ¡¦¥Í 31..16          | P| DPL | 0 D 1 1 0|0 0 0|Reserved | 4 | * |         å⥧åãÊ夽åã¦å¥è 31..16          | P| DPL | 0 D 1 1 0|0 0 0|Reserved | 4 | 
 | * +------------------------------------+--+-----+----------+-----+---------+ | * +------------------------------------+--+-----+----------+-----+---------+ | 
 | *  31                                16 15                                0 | *  31                                16 15                                0 | 
 | * +------------------------------------+-----------------------------------+ | * +------------------------------------+-----------------------------------+ | 
| * |        ¡¦¥µ¡¦¡¼¡¦â§ó¥È¡¦¥»¥ì¥¯¥       |          ¥ª¥Õ¥»¥Ã¥È 15..0         | 0 | * |        å⥵å⡼åã¡£å㥦åã°å¦½å⥵åã¥ãåâ¥Ãå⥽        |          å⥧åãÊ夽åã¦å¥è 15..0         | 0 | 
 | * +------------------------------------+-----------------------------------+ | * +------------------------------------+-----------------------------------+ | 
 | *-- | *-- | 
| * ¡¦¥Í¡¦ò§¥Æ¡¦¥é¡£¥ò¡¦¥¤¡£¥·¡¦¥Í | * åã°å¦«åã¦å¥÷å㥵å⥤å㥷å㊠ * | 
 | *  31                                16 15 14 13 12       8 7   5 4       0 | *  31                                16 15 14 13 12       8 7   5 4       0 | 
 | * +------------------------------------+--+-----+----------+-----+---------+ | * +------------------------------------+--+-----+----------+-----+---------+ | 
| * |         ¥ª¥Õ¥»¥Ã¥È 31..16          | P| DPL | 0 D 1 1 1|0 0 0|Reserved | 4 | * |         å⥧åãÊ夽åã¦å¥è 31..16          | P| DPL | 0 D 1 1 1|0 0 0|Reserved | 4 | 
 | * +------------------------------------+--+-----+----------+-----+---------+ | * +------------------------------------+--+-----+----------+-----+---------+ | 
 | *  31                                16 15                                0 | *  31                                16 15                                0 | 
 | * +------------------------------------+-----------------------------------+ | * +------------------------------------+-----------------------------------+ | 
| * |        ¡¦¥µ¡¦¡¼¡¦â§ü§¥Í¡£¥ò¡¦¥µ¡¦ø§¥Ã¡¦¥½        |          ¡¦¥§¡¦¥æ¡¦¥µ¡¦¥Æ¡¦¥Í 15..0         | 0 | * |        å⥵å⡼åã¡£å㥦åã°å¦½å⥵åã¥ãåâ¥Ãå⥽        |          å⥧åãÊ夽åã¦å¥è 15..0         | 0 | 
 | * +------------------------------------+-----------------------------------+ | * +------------------------------------+-----------------------------------+ | 
 | *-- | *-- | 
| * DPL        : ¡¦¥Ì¡¦¡×¡¦¥±¡¦¥Ã¡¦ô§¥é¡¦¥½¥Ë¥Æ¥¯¡Ö¡¦ø§¥ë¡¦- * ¥ª¥Õ¥»¥Ã¥È : ¥×¥í¥·¡¼¥¸¥ã¡¦¥¨¥ó¥È¥ê¡¦¥Ý¥¤¥ó¥È¤Þ¤Ç¤Î¥ª¥Õ¥»¥Ã¥È | * DPL        : ¥Ç¥£¥¹¥¯¥ê¥×¥¿ÆÃ¸¢¥ì¥Ù¥ë | 
| * P          : ¥»¥°¥á¥ó¥È¸ºß¥Õ¥é¥° | * ¥ª¥Õ¥»¥Ã¥È : ¥×¥í¥·¡¼¥¸¥ã¡¦¥¨¥ó¥È¥ê¡¦¥Ý¥¤¥ó¥È¤Þ¤Ç¤Î¥ª¥Õ¥»¥Ã¥È | 
| * ¥»¥ì¥¯¥¿   : ¥Ç¥£¥¹¥Æ¥£¥Í¡¼¥·¥ç¥ó¡¦¥³¡¼¥É¡¦¥»¥°¥á¥ó¥È¤Î¥»¥°¥á¥ó¥È¡¦¥»¥ì¥¯¥¿ | * P          : ¥»¥°¥á¥ó¥È¸ºß¥Õ¥é¥° | 
| * D          : ¥²¡¼¥È¤Î¥µ¥¤¥º¡¥0 = 16 bit, 1 = 32 bit | * ¥»¥ì¥¯¥¿   : ¥Ç¥£¥¹¥Æ¥£¥Í¡¼¥·¥ç¥ó¡¦¥³¡¼¥É¡¦¥»¥°¥á¥ó¥È¤Î¥»¥°¥á¥ó¥È¡¦¥»¥ì¥¯¥¿ | 
|  | * D          : ¥²¡¼¥È¤Î¥µ¥¤¥º¡¥0 = 16 bit, 1 = 32 bit | 
 | */ | */ | 
 |  |  | 
 | static void interrupt_task_gate(const descriptor_t *gsdp, int intrtype, int errorp, int error_code); | static void interrupt_task_gate(const descriptor_t *gsdp, int intrtype, int errorp, int error_code); | 
| Line 220  interrupt(int num, int intrtype, int err | Line 218  interrupt(int num, int intrtype, int err | 
 |  |  | 
 | VERBOSE(("interrupt: num = 0x%02x, intrtype = %s, errorp = %s, error_code = %08x", num, intrtype ? "on" : "off", errorp ? "on" : "off", error_code)); | VERBOSE(("interrupt: num = 0x%02x, intrtype = %s, errorp = %s, error_code = %08x", num, intrtype ? "on" : "off", errorp ? "on" : "off", error_code)); | 
 |  |  | 
 |  | CPU_SET_PREV_ESP(); | 
 |  |  | 
 | if (!CPU_STAT_PM) { | if (!CPU_STAT_PM) { | 
 | /* real mode */ | /* real mode */ | 
 | CPU_WORKCLOCK(20); | CPU_WORKCLOCK(20); | 
| Line 231  interrupt(int num, int intrtype, int err | Line 231  interrupt(int num, int intrtype, int err | 
 | } | } | 
 |  |  | 
 | if ((intrtype == INTR_TYPE_EXTINTR) && CPU_STAT_HLT) { | if ((intrtype == INTR_TYPE_EXTINTR) && CPU_STAT_HLT) { | 
 |  | VERBOSE(("interrupt: reset HTL in real mode")); | 
 | CPU_EIP++; | CPU_EIP++; | 
 | CPU_STAT_HLT = 0; | CPU_STAT_HLT = 0; | 
 | } | } | 
| Line 256  interrupt(int num, int intrtype, int err | Line 257  interrupt(int num, int intrtype, int err | 
 | #if defined(DEBUG) | #if defined(DEBUG) | 
 | if (num == 0x80) { | if (num == 0x80) { | 
 | /* Linux, FreeBSD, NetBSD, OpenBSD system call */ | /* Linux, FreeBSD, NetBSD, OpenBSD system call */ | 
| VERBOSE(("interrupt: syscall no = %d\n%s", CPU_EAX, cpu_reg2str())); | VERBOSE(("interrupt: syscall# = %d\n%s", CPU_EAX, cpu_reg2str())); | 
 | } | } | 
 | #endif | #endif | 
 |  |  | 
| Line 296  interrupt(int num, int intrtype, int err | Line 297  interrupt(int num, int intrtype, int err | 
 | break; | break; | 
 | } | } | 
 |  |  | 
| /* 5.10.1.1. Îã³°¡¿³ä¤ê¹þ¤ß¥Ï¥ó¥É¥é¡¦¥×¥í¥·¡¼¥¸¥ã¤ÎÊݸî */ | /* 5.10.1.1. 価¿³ä¤ê¹þ¤ß¥Ï¥ó¥É¥é¡¦¥×¥í¥·¡¼¥¸¥ã¤ÎÊݸî */ | 
 | if ((intrtype != INTR_TYPE_EXTINTR) && (gsd.dpl < CPU_STAT_CPL)) { | if ((intrtype != INTR_TYPE_EXTINTR) && (gsd.dpl < CPU_STAT_CPL)) { | 
| VERBOSE(("interrupt: intrtype && DPL(%d) < CPL(%d)", gsd.dpl, CPU_STAT_CPL)); | VERBOSE(("interrupt: intrtype(%d) && DPL(%d) < CPL(%d)", intrtype, gsd.dpl, CPU_STAT_CPL)); | 
 | EXCEPTION(GP_EXCEPTION, exc_errcode); | EXCEPTION(GP_EXCEPTION, exc_errcode); | 
 | } | } | 
 |  |  | 
| Line 307  interrupt(int num, int intrtype, int err | Line 308  interrupt(int num, int intrtype, int err | 
 | EXCEPTION(NP_EXCEPTION, exc_errcode); | EXCEPTION(NP_EXCEPTION, exc_errcode); | 
 | } | } | 
 |  |  | 
| if (!intrtype && CPU_STAT_HLT) { | if ((intrtype == INTR_TYPE_EXTINTR) && CPU_STAT_HLT) { | 
|  | VERBOSE(("interrupt: reset HTL in protected mode")); | 
 | CPU_EIP++; | CPU_EIP++; | 
 | CPU_STAT_HLT = 0; | CPU_STAT_HLT = 0; | 
 | } | } | 
| Line 331  interrupt(int num, int intrtype, int err | Line 333  interrupt(int num, int intrtype, int err | 
 |  |  | 
 | VERBOSE(("interrupt: ---------------------------------------------------------------- end")); | VERBOSE(("interrupt: ---------------------------------------------------------------- end")); | 
 | } | } | 
 |  |  | 
 |  | CPU_CLEAR_PREV_ESP(); | 
 | } | } | 
 |  |  | 
 | static void | static void | 
| Line 371  interrupt_task_gate(const descriptor_t * | Line 375  interrupt_task_gate(const descriptor_t * | 
 |  |  | 
 | task_switch(&task_sel, TASK_SWITCH_INTR); | task_switch(&task_sel, TASK_SWITCH_INTR); | 
 |  |  | 
 |  | CPU_SET_PREV_ESP(); | 
 |  |  | 
 | if (errorp) { | if (errorp) { | 
 | XPUSH0(error_code); | XPUSH0(error_code); | 
 | } | } | 
 |  |  | 
 |  | /* out of range */ | 
 |  | if (CPU_EIP > CPU_STAT_CS_LIMIT) { | 
 |  | VERBOSE(("interrupt: new_ip is out of range. new_ip = %08x, limit = %08x", CPU_EIP, CPU_STAT_CS_LIMIT)); | 
 |  | EXCEPTION(GP_EXCEPTION, 0); | 
 |  | } | 
 | } | } | 
 |  |  | 
 | static void | static void | 
| Line 418  interrupt_intr_or_trap(const descriptor_ | Line 430  interrupt_intr_or_trap(const descriptor_ | 
 | break; | break; | 
 | } | } | 
 |  |  | 
| exc_errcode = cs_sel.idx; | exc_errcode = gsdp->u.gate.selector & ~3; | 
 | if (intrtype == INTR_TYPE_EXTINTR) | if (intrtype == INTR_TYPE_EXTINTR) | 
 | exc_errcode++; | exc_errcode++; | 
 |  |  | 
| Line 572  interrupt_intr_or_trap(const descriptor_ | Line 584  interrupt_intr_or_trap(const descriptor_ | 
 | EXCEPTION(GP_EXCEPTION, exc_errcode); | EXCEPTION(GP_EXCEPTION, exc_errcode); | 
 | } | } | 
 | if (!SEG_IS_CONFORMING_CODE(&cs_sel.desc) && (cs_sel.desc.dpl != CPU_STAT_CPL)) { | if (!SEG_IS_CONFORMING_CODE(&cs_sel.desc) && (cs_sel.desc.dpl != CPU_STAT_CPL)) { | 
| VERBOSE(("interrupt: %sCONFORMING-CODE-SEGMENT(%s) && DPL[CS](%d) != CPL", SEG_IS_CONFORMING_CODE(&cs_sel.desc) ? "" : "NON-", cs_sel.desc.dpl, CPU_STAT_CPL)); | VERBOSE(("interrupt: %sCONFORMING-CODE-SEGMENT(%d) && DPL[CS](%d) != CPL", SEG_IS_CONFORMING_CODE(&cs_sel.desc) ? "" : "NON-", cs_sel.desc.dpl, CPU_STAT_CPL)); | 
 | EXCEPTION(GP_EXCEPTION, exc_errcode); | EXCEPTION(GP_EXCEPTION, exc_errcode); | 
 | } | } | 
 |  |  |