From 9a163a2997462f03005d65438f3766b26dd0418e Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Tue, 29 Sep 2009 17:26:21 +0200
Subject: Moved ProfileEvent method to new unit.

Signed-off-by: Graeme Geldenhuys <graeme@mastermaths.co.za>
---
 src/nvUtilities.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/nvUtilities.pas')

diff --git a/src/nvUtilities.pas b/src/nvUtilities.pas
index db6e8f6c..af10cd89 100644
--- a/src/nvUtilities.pas
+++ b/src/nvUtilities.pas
@@ -27,6 +27,8 @@ Function ExtractNextValueNoTrim(
 
 // Alias method which is the same as Move() but with less confusing name
 procedure MemCopy(const src; var dest; size: SizeInt);
+// Allows for debug output and quite disable of output
+procedure ProfileEvent(const AString: string);
 
 
 implementation
@@ -71,6 +73,12 @@ begin
   Move(src, dest, size);
 end;
 
+procedure ProfileEvent(const AString: string);
+begin
+  {$IFDEF DEBUG}
+  writeln('DEBUG:  ', AString);
+  {$ENDIF}
+end;
 
 end.
 
-- 
cgit v1.2.3-70-g09d2