From 5f871ca7b3908171fbbc5da777c22aee11558581 Mon Sep 17 00:00:00 2001 From: Ron Pinkas Date: Mon, 26 Jun 2000 13:27:54 +0000 Subject: [PATCH] 2000-06-26 06:22 UTC-0800 Ron Pinkas * source/compiler/harbour.l ! Fixed 3 typos that made strings to be compiled with the closing string delimiter, causing Run-Time error 9004. --- harbour/ChangeLog | 4 ++++ harbour/source/compiler/harbour.l | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 8e7c2e45b3..61b1b9d8dc 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +2000-06-26 06:22 UTC-0800 Ron Pinkas + * source/compiler/harbour.l + ! Fixed 3 typos that made strings to be compiled with the closing string delimiter, causing Run-Time error 9004. + 2000-06-26-14:40 GMT +1 Ignacio Ortiz de Zuniga * memoline.c * fixed minor bug diff --git a/harbour/source/compiler/harbour.l b/harbour/source/compiler/harbour.l index b7871063dc..3acdd4e3a4 100644 --- a/harbour/source/compiler/harbour.l +++ b/harbour/source/compiler/harbour.l @@ -219,7 +219,7 @@ Separator {SpaceTab} else BEGIN 0; - yytext[yyleng--] = '\0'; + yytext[--yyleng] = '\0'; yylval.string = hb_strdup( yytext ); return LITERAL; @@ -230,7 +230,7 @@ Separator {SpaceTab} else BEGIN 0; - yytext[yyleng--] = '\0'; + yytext[--yyleng] = '\0'; yylval.string = hb_strdup( yytext ); return LITERAL; @@ -241,7 +241,7 @@ Separator {SpaceTab} else BEGIN 0; - yytext[yyleng--] = '\0'; + yytext[--yyleng] = '\0'; yylval.string = hb_strdup( yytext ); return LITERAL;