removed usage of strdup

diff --git a/source/sclpl/lexer.c b/source/sclpl/lexer.c
index 452341414f2c70661946e2d318c64b72a8afef03..ca1b064d23dc5f909cc4e0cfd92830205cacb3bf 100644 (file)
--- a/source/sclpl/lexer.c
+++ b/source/sclpl/lexer.c
@@ -5,6 +5,7 @@
   $HeadURL$
   */
 #include "lexer.h"
+#include <string.h>
 
 static lex_tok_t* lexer_translate(mpc_ast_t* p_tok_ast);
 static lex_tok_t* lexer_punc(mpc_ast_t* p_tok_ast);
@@ -17,6 +18,14 @@ static lex_tok_t* lexer_var(mpc_ast_t* p_tok_ast);
 static lex_tok_t* lex_tok_new(lex_tok_type_t type, void* val);
 static int read_radix(const mpc_ast_t* t);
 
+static char* lexer_dup(const char* p_old) {
+    size_t length = strlen(p_old);
+    char* p_str = (char*)malloc(length+1);
+    memcpy(p_str, p_old, length);
+    p_str[length] = '\0';
+    return p_str;
+}
+
 /* Grammar is auto generated into 'source/grammar.c' */
 extern const char Grammar[];
 
@@ -149,7 +158,7 @@ lex_tok_t* lexer_bool(mpc_ast_t* p_tok_ast)
 
 lex_tok_t* lexer_var(mpc_ast_t* p_tok_ast)
 {
-    char* p_str = strdup(p_tok_ast->contents);
+    char* p_str = lexer_dup(p_tok_ast->contents);
     return lex_tok_new(VAR, p_str);
 }