TempleOSCDV4.08.ISO
This commit is contained in:
1 parent
b632ab9a4f
commit
2d56cda5f3
258 files changed
+6973
-5476
No files matched your search
+6
-2
@@ -45,7 +45,8 @@ _extern _SAVE_EXCEPT_REGS U0 SaveExceptRegs(CExcept *t);
|
||||
U0 PutExcept(Bool catch_it=TRUE)
|
||||
{//Print exception msg and catch exception.
|
||||
"Except:%c:",Fs->except_ch;
|
||||
"%P:%P\n",Fs->except_caller1,Fs->except_caller2;
|
||||
"%P:%P:%P:%P\n",Fs->except_caller1,Fs->except_caller2,
|
||||
Fs->except_caller3,Fs->except_caller4;
|
||||
Fs->catch_except=catch_it;
|
||||
}
|
||||
|
||||
@@ -87,10 +88,13 @@ U0 throw(I64 ch=0,Bool no_log=FALSE)
|
||||
Fs->except_ch=ch;
|
||||
Fs->except_caller1=Caller(1);
|
||||
Fs->except_caller2=Caller(2);
|
||||
Fs->except_caller3=Caller(3);
|
||||
Fs->except_caller4=Caller(4);
|
||||
Fs->except_rbp=GetRBP;
|
||||
Fs->catch_except=FALSE;
|
||||
if (!no_log)
|
||||
AdamLog("Except:%c:%p:%p\n",ch,Fs->except_caller1,Fs->except_caller2);
|
||||
AdamLog("Except:%c:%p:%p:%p:%p\n",ch,Fs->except_caller1,Fs->except_caller2,
|
||||
Fs->except_caller3,Fs->except_caller4);
|
||||
while (Fs->next_except!=&Fs->next_except) {
|
||||
TestExcept;
|
||||
if (Fs->catch_except)
|
||||
|
||||
Reference in new issue
Block a user