From 9b0b89a759f4616bd725707f9ba8b25832efc394 Mon Sep 17 00:00:00 2001
From: Lionel Debroux <lionel_debroux@yahoo.fr>
Date: Sun, 28 Dec 2008 18:02:32 +0100
Subject: ld-tigcc: check validity of the names passed to -d and -n options.
 "a\a\a" name is invalid and should be rejected.

---
 trunk/tigcc/ld-tigcc/main_opt.inc |    8 ++++++++
 1 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/trunk/tigcc/ld-tigcc/main_opt.inc b/trunk/tigcc/ld-tigcc/main_opt.inc
index 70eec5d..173ba9d 100644
--- a/trunk/tigcc/ld-tigcc/main_opt.inc
+++ b/trunk/tigcc/ld-tigcc/main_opt.inc
@@ -242,6 +242,10 @@
 						if (Name)
 						{
 							Name++;
+							if ((strchr (Name, '\\')) || (strchr (Name, '/')))
+							{
+								Error (NULL, "`--varname' option must be followed by a name matching <[folder\\]name>.");
+							}
 							// Extract folder name.
 							DecodeOnCalcName (ProgramFolder, Args [CurArg]);
 							{
@@ -282,6 +286,10 @@
 						if (Name)
 						{
 							Name++;
+							if ((strchr (Name, '\\')) || (strchr (Name, '/')))
+							{
+								Error (NULL, "`--data-var' option must be followed by a name matching <[folder\\]name>.");
+							}
 							// Extract folder name.
 							DecodeOnCalcName (DataFolder, Args [CurArg]);
 							{
-- 
1.6.1.15.g159c88


