From f939160d08777c74dfaaf1097d0a775e08fa346e Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sat, 19 Nov 2016 09:23:58 +0100
Subject: [PATCH] #104, fix cases where bug sum could be nan

e.g empty functions or extern(C) functions
---
 src/ce_halstead.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/ce_halstead.pas b/src/ce_halstead.pas
index 80ce4972..4f598cbd 100644
--- a/src/ce_halstead.pas
+++ b/src/ce_halstead.pas
@@ -178,6 +178,8 @@ procedure THalsteadMetrics.Measure(document: TCESynMemo);
     if val.isNil then
       exit;
     n1  := val.AsInteger;
+    if n1 = 0 then
+      exit;
 
     val := obj.Find('n1Sum');
     if val.isNil then
@@ -188,6 +190,8 @@ procedure THalsteadMetrics.Measure(document: TCESynMemo);
     if val.isNil then
       exit;
     n2  := val.AsInteger;
+    if n2 = 0 then
+      exit;
 
     val := obj.Find('n2Sum');
     if val.isNil then