From f8809ed35c50b48686f3486d4f8a1ab9710b0b65 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 8 Sep 2010 14:00:31 +0000
Subject: [PATCH] Delete "_" if it is the last character of the generated name.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1317 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/ws_helper/parserutils.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/wst/trunk/ws_helper/parserutils.pas b/wst/trunk/ws_helper/parserutils.pas
index 86ef5dfdf..62f20fd6a 100644
--- a/wst/trunk/ws_helper/parserutils.pas
+++ b/wst/trunk/ws_helper/parserutils.pas
@@ -150,6 +150,8 @@ begin
         end;
       end;
     end;
+    if (Length(Result) > 1) and (Result[Length(Result)] = '_') then
+      Delete(Result,Length(Result),1);
   end;
 end;