瀏覽代碼

Adapted unix modules to reflection interface change

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6783 8c9fc860-2736-0410-a75d-ab315db34111
felixf 9 年之前
父節點
當前提交
1ec01e1f54
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      source/Unix.Traps.Mod

+ 1 - 1
source/Unix.Traps.Mod

@@ -153,7 +153,7 @@ VAR
 			w.String( "    sp = " );  w.Address( sp );  w.String( ", fp = " );  w.Address( bp ); 
 			w.String( ", pc = " );  w.Address( pc );  w.Ln;  
 			w.Ln;  
-			Reflection.StackTraceBack( w, pc, bp, Objects.GetStackBottom( process ), TRUE, FALSE );
+			Reflection.StackTraceBack( w, pc, bp, sp, Objects.GetStackBottom( process ), TRUE, FALSE );
 			SearchExceptionHandler( process, ucp, handler ); 
 		END;
 		w.Ln; w.Ln;