added debugLongint

Author: BazzaCuda

_debugWindow.pas

@@ -29,6 +29,7 @@ procedure debugFormatEx(const msg: string; const args: array of const; MType: Tm
 procedure debugIndent;
 procedure debugint64(const identifier: string; const value: int64);
 procedure debuginteger(const identifier: string; const value: integer);
+procedure debugLongint(const identifier: string; const value: longint);
 procedure debugMethodEnter(const methodName: string);
 procedure debugMethodExit(const methodName: string);
 procedure debugOutdent;
@@ -243,6 +244,11 @@ procedure debuginteger(const identifier: string; const value: integer);
   debugEx(format('%s = %d', [identifier, value]), mtInformation);
 end;
 
+procedure debugLongint(const identifier: string; const value: longint);
+begin
+  debugEx(format('%s = %d', [identifier, value]), mtInformation);
+end;
+
 procedure debugMethodEnter(const methodName: string);
 begin
   debugEx('Enter ' + methodName, mtInformation);