瀏覽代碼

Generate hashes during semanting.

Brucey 5 年之前
父節點
當前提交
23627b97d5
共有 1 個文件被更改,包括 6 次插入0 次删除
  1. 6 0
      decl.bmx

+ 6 - 0
decl.bmx

@@ -1766,6 +1766,12 @@ Type TBlockDecl Extends TScopeDecl
 		
 		For Local stmt:TStmt=EachIn stmts
 			stmt.Semant
+
+			If opt_debug And Not IsNoDebug() Then
+				If Not stmt.generated Then
+					GenHash(stmt.errInfo[1..].Split(";")[0])
+				End If
+			End If
 			
 			If TReturnStmt(stmt) Then
 				If SurroundingFinallyBlock(Self) Then PushErr stmt.errInfo; Err "Return cannot be used inside a Finally block."