Преглед изворни кода

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."