FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Error al crear librerias xharbour una version vieja
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Error al crear librerias xharbour una version vieja
Posted: Sat Jun 11, 2016 09:47 PM
Saludos al Forum
Trato de crear la contribucion de xharbour una version vieja al dar este instrucion da error

bison -v -d source\compiler\harbour.sly -oobj\b32\harboury.c
** error 1 ** deleting obj\b32\harboury.c
Este es el error

source\compiler\harbour.sly:1809.56-67: Integer Out of range '$lNumber'

Estes e un trozo de codigo harbour.sly
esta es la instrucion que da error
| EmptyStatements LineStat { $<lNumber>$ += $<lNumber>3; }
Hago es cambio, coloco 2 en vez 3 y pasa el bison.

Code (fw): Select all Collapse
IfEndif 聽 聽: IfBegin EndIf 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽{ hb_compGenJumpHere( $1 ); }
聽 聽 聽 聽 聽 聽| IfBegin IfElse EndIf 聽 聽 聽 聽 聽 聽 { hb_compGenJumpHere( $1 ); }
聽 聽 聽 聽 聽 聽| IfBegin IfElseIf EndIf 聽 聽 聽 聽 聽 { hb_compGenJumpHere( $1 ); hb_compElseIfFix( $2 ); }
聽 聽 聽 聽 聽 聽| IfBegin IfElseIf IfElse EndIf 聽 聽{ hb_compGenJumpHere( $1 ); hb_compElseIfFix( $2 ); }
聽 聽 聽 聽 聽 聽;

EmptyStatements : LineStat 聽 聽 聽 聽 聽 聽 { $<lNumber>$ = $<lNumber>1; }
聽 聽 聽 聽 聽 聽| EmptyStatements LineStat 聽{ $<lNumber>$ += $<lNumber>3; }
聽 聽 聽 聽 聽 聽;

EmptyStats : /* empty */ 聽 聽 聽 聽 聽 { $<lNumber>$ = 0; }
聽 聽 聽 聽 聽 聽| EmptyStatements 聽 聽 聽 { $<lNumber>$ = $<lNumber>1; }


ahora el erroror esta en harbour.c

MAKE Version 5.2 Copyright (c) 1987, 2000 Borland
bison -v -d source\compiler\harbour.sly -oobj\b32\harboury.c
bcc32 -c -Iinclude;source\compiler;source\macro -d -5 -6 -OS -a8 -DHB_FM_STATISTICS_OFF -O2 -D__EXPORT__ -DHB_GUI -tWM -DHB_FM_STATISTICS_OFF -DHB_INCLUDE_WINEXCHANDLER -DHARBOUR_MAIN_WIN -d -a8 -OS -O2 -5 -6 -DSIMPLEX -oobj\b32\harboury.obj obj\b32\harboury.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
obj\b32\harboury.c:
Warning W8004 obj\\b32\\harboury.c 3356: 'yymsg' is assigned a value that is never used in function yydestruct
Error E2040 obj\\b32\\harboury.c 3418: Declaration terminated incorrectly
*** 1 errors in Compile ***

** error 1 ** deleting obj\b32\harboury.obj
MAKE Version 5.2 Copyright (c) 1987, 2000 Borland
bcc32 -DHB_THREAD_SUPPORT -c -Iinclude;source\compiler;source\macro -d -5 -6 -OS -a8 -DHB_FM_STATISTICS_OFF -O2 -D__EXPORT__ -DHB_GUI -tWM -DHB_FM_STATISTICS_OFF -DHB_INCLUDE_WINEXCHANDLER -DHARBOUR_MAIN_WIN -d -a8 -OS -O2 -5 -6 -DSIMPLEX -oobj\b32\harboury.obj obj\b32\harboury.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
obj\b32\harboury.c:
Warning W8004 obj\\b32\\harboury.c 3356: 'yymsg' is assigned a value that is never used in function yydestruct
Error E2040 obj\\b32\\harboury.c 3418: Declaration terminated incorrectly
*** 1 errors in Compile ***

** error 1 ** deleting obj\b32\harboury.obj
pero esta extension harboury.c lo construye el bison, alquien me puede orientar.

Code (fw): Select all Collapse
#if defined (__STDC__) || defined (__cplusplus)
static void
yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep)
#else
static void
yydestruct (yymsg, yytype, yyvaluep)
聽 聽 const char *yymsg;
聽 聽 int yytype;
聽 聽 YYSTYPE *yyvaluep;
#endif
{
聽 /* Pacify ``unused variable'' warnings. 聽*/
聽 (void) yyvaluep;

聽 if (!yymsg)
聽 聽 yymsg = "Deleting";
聽 YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp);

聽 switch (yytype)
聽 聽 {

聽 聽 聽 default:
聽 聽 聽 聽 break;
聽 聽 }
}
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Error al crear librerias xharbour una version vieja
Posted: Tue Jun 14, 2016 11:26 AM

Ruben,

Que c贸digo hay en la l铆nea 3418 de harboury.c ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Error al crear librerias xharbour una version vieja
Posted: Tue Jun 14, 2016 01:57 PM
Antonio Linares wrote:Ruben,

Que c贸digo hay en la l铆nea 3418 de harboury.c ?


Gracias Antonio Anexo los errores.

Linea 3356
Code (fw): Select all Collapse
聽 聽 聽 聽 #if defined (__STDC__) || defined (__cplusplus)
聽 聽 聽 聽 static void
聽 聽 聽 聽 yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep)
聽 聽 聽 聽 #else
聽 聽 聽 聽 static void
聽 聽 聽 聽 yydestruct (yymsg, yytype, yyvaluep)
聽 聽 聽 聽 聽 聽 const char *yymsg;
聽 聽 聽 聽 聽 聽 int yytype;
聽 聽 聽 聽 聽 聽 YYSTYPE *yyvaluep;
聽 聽 聽 聽 #endif
聽 聽 聽 聽 {
聽 聽 聽 聽 聽 /* Pacify ``unused variable'' warnings. 聽*/
聽 聽 聽 聽 聽 (void) yyvaluep;

聽 聽 聽 聽 聽 if (!yymsg)
3356 聽 聽 聽 聽yymsg = "Deleting";
聽 聽 聽 聽 聽 YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp);

聽 聽 聽 聽 聽 switch (yytype)
聽 聽 聽 聽 聽 聽 {

聽 聽 聽 聽 聽 聽 聽 default:
聽 聽 聽 聽 聽 聽 聽 聽 break;
聽 聽 聽 聽 聽 聽 }
聽 聽 聽 聽 }


Linea 3418

Code (fw): Select all Collapse
3401 聽 聽 聽#ifdef YYPARSE_PARAM
聽 聽 聽 聽 聽 聽 # if defined (__STDC__) || defined (__cplusplus)
聽 聽 聽 聽 聽 聽 int yyparse (void *YYPARSE_PARAM)
聽 聽 聽 聽 聽 聽 # else
聽 聽 聽 聽 聽 聽 int yyparse (YYPARSE_PARAM)
聽 聽 聽 聽 聽 聽 聽 void *YYPARSE_PARAM;
聽 聽 聽 聽 聽 聽 # endif
聽 聽 聽 聽 聽 聽 #else /* ! YYPARSE_PARAM */
聽 聽 聽 聽 聽 聽 #if defined (__STDC__) || defined (__cplusplus)
聽 聽 聽 聽 聽 聽 int
聽 聽 聽 聽 聽 聽 yyparse (void)
聽 聽 聽 聽 聽 聽 #else
聽 聽 聽 聽 聽 聽 int
聽 聽 聽 聽 聽 聽 yyparse ()
聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 聽 聽 聽 聽 #endif
聽 聽 聽 聽 聽 聽 #endif
3418 聽 聽 聽{
聽 聽 聽 聽 聽 聽 聽 
聽 聽 聽 聽 聽 聽 聽 int yystate;
聽 聽 聽 聽 聽 聽 聽 int yyn;
聽 聽 聽 聽 聽 聽 聽 int yyresult;
聽 聽 聽 聽 聽 聽 聽 /* Number of tokens to shift before error messages enabled. 聽*/
聽 聽 聽 聽 聽 聽 聽 int yyerrstatus;
聽 聽 聽 聽 聽 聽 聽 /* Look-ahead token as an internal (translated) token number. 聽*/
聽 聽 聽 聽 聽 聽 聽 int yytoken = 0;

聽 聽 聽 聽 聽 聽 聽 /* Three stacks and their tools:
聽 聽 聽 聽 聽 聽 聽 聽 聽`yyss': related to states,
聽 聽 聽 聽 聽 聽 聽 聽 聽`yyvs': related to semantic values,
聽 聽 聽 聽 聽 聽 聽 聽 聽`yyls': related to locations.

聽 聽 聽 聽 聽 聽 聽 聽 聽Refer to the stacks thru separate pointers, to allow yyoverflow
聽 聽 聽 聽 聽 聽 聽 聽 聽to reallocate them elsewhere. 聽*/

聽 聽 聽 聽 聽 聽 聽 /* The state stack. 聽*/
聽 聽 聽 聽 聽 聽 聽 short int yyssa[YYINITDEPTH];
聽 聽 聽 聽 聽 聽 聽 short int *yyss = yyssa;
聽 聽 聽 聽 聽 聽 聽 short int *yyssp;

聽 聽 聽 聽 聽 聽 聽 /* The semantic value stack. 聽*/
聽 聽 聽 聽 聽 聽 聽 YYSTYPE yyvsa[YYINITDEPTH];
聽 聽 聽 聽 聽 聽 聽 YYSTYPE *yyvs = yyvsa;
聽 聽 聽 聽 聽 聽 聽 YYSTYPE *yyvsp;
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Error al crear librerias xharbour una version vieja
Posted: Wed Jun 15, 2016 05:51 AM

Ruben,

Que versi贸n de xHarbour est谩s intentando construir ?

Has probado a construir el siguiente build de xHarbour para ver si ese error ya se corrigi贸 ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
Re: Error al crear librerias xharbour una version vieja
Posted: Wed Jun 15, 2016 02:12 PM
Antonio Linares wrote:Ruben,

Que versi贸n de xHarbour est谩s intentando construir ?

Has probado a construir el siguiente build de xHarbour para ver si ese error ya se corrigi贸 ?


Es la Version xHarbour 082, estoy usando bcc.5.5.1 a no ser que usaron un bcc Inferior a 5.5.1.
El problema esta harbour.sly harboury.c.

La unica seria probar con otro harbour.sly de otra version para ver que pasa. La otra seria Usar un Build de Otra version pero tendria que ser de la .90 o 100. creo que con los build de las ultimas versiones no funcionaria.
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

Continue the discussion