From 1f45709f7c642265269e1aeeaf6218fb65edbc1f Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 27 Oct 2021 13:52:00 +0000
Subject: [PATCH] chemtext: Less hints and warnings

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8122 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/chemtext/source/chemtext.pas | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/components/chemtext/source/chemtext.pas b/components/chemtext/source/chemtext.pas
index e57d59df2..593247028 100644
--- a/components/chemtext/source/chemtext.pas
+++ b/components/chemtext/source/chemtext.pas
@@ -18,7 +18,7 @@
 *******************************************************************************)
 
 unit chemtext;
-
+{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
 interface
 
 uses
@@ -140,7 +140,6 @@ type
 
 const
   ARROW_LINE: array[boolean] of char = ('-', '=');
-  SUBFONT_DIVISOR = 100;
 
   ESCAPE_CHAR = '\';
   SAVE_CURRENT_POS = '@';
@@ -234,7 +233,7 @@ var
     );
   var
     i: Integer;
-    s: String;
+    s: String = '';
   begin
     if Arrow in [caASCIISingle, caASCIIDouble] then
     begin