FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour los warnings de memvar (como quitarlos?)
jfafive
Posts: 396
Joined: Tue Mar 18, 2008 09:41 PM
los warnings de memvar (como quitarlos?)
Posted: Fri Aug 29, 2008 07:46 AM

Hola,

Cuando utilizo variables tipo memvar, me salen warnings al compilar con harbour.

Mi pregunta es, ¿porque salen si son variables que declaro al inicio del prg? Incluso declarandolas, me sale warning si las utilizo o invoco en algun momento en el prg.

:?

Javier,

FWH 8.04 2008
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
los warnings de memvar (como quitarlos?)
Posted: Fri Aug 29, 2008 07:57 AM

Javier,

Las declaras al comienzo del PRG como:

memvar nombre1, nombre2, etc...

?

regards, saludos

Antonio Linares
www.fivetechsoft.com
jfafive
Posts: 396
Joined: Tue Mar 18, 2008 09:41 PM
los warnings de memvar (como quitarlos?)
Posted: Fri Aug 29, 2008 09:05 AM
Antonio, las declaro así:

Code: Select all Collapse
#include "FiveWin.ch"
#include "Image.ch"
#include "include/B.ch"

#define MF_BYPOSITION 0x0400 // L
#define MF_BYCOMMAND  0x0000 // L
#define MF_GRAYED     0x0001 // L
#define SC_CLOSE      0xF060 // L

REQUEST DBFCDX
REQUEST HB_Lang_ES
REQUEST HB_CODEPAGE_ESWIN

memvar lBuscaFin   
memvar lBuscaFinD    
memvar lBuscaFinF     
memvar oBtn5

STATIC oWnd
STATIC oBtn1
STATIC oBtn2
STATIC oBtn3
STATIC oBtn4

STATIC oMenu
STATIC oMenu_Sub1

STATIC lWnd

function Main()

etc etc etc ...............
Javier,

FWH 8.04 2008
jfafive
Posts: 396
Joined: Tue Mar 18, 2008 09:41 PM
los Warnings
Posted: Mon Sep 01, 2008 09:17 AM

Hola...

Sigo esperando que alguien me diga como evitar los warnings cuando uso memvar...

Un saludo.
Gracias... :cry:

Javier,

FWH 8.04 2008
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
los warnings de memvar (como quitarlos?)
Posted: Mon Sep 01, 2008 10:17 AM
Javier,

Que parámetros le pasas al compilador ?

Aqui este ejemplo funciona bien y no da ningún warning:
Code: Select all Collapse
memvar test

function Main()

   test = 5
   ? test

return nil

harbour test.prg /n
Harbour 1.0.0 Intl. (Rev. 9201)
Copyright (c) 1999-2008, http://www.harbour-project.org/
Compiling 'test.prg'...
Lines 9, Functions/Procedures 1
Generating C source output to 'test.c'... Done.
regards, saludos

Antonio Linares
www.fivetechsoft.com
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
los warnings de memvar (como quitarlos?)
Posted: Mon Sep 01, 2008 01:00 PM
Code: Select all Collapse
#include "FiveWin.ch"
#include "Image.ch"
//#include "include/B.ch"

#define MF_BYPOSITION 0x0400 // L
#define MF_BYCOMMAND  0x0000 // L
#define MF_GRAYED     0x0001 // L
#define SC_CLOSE      0xF060 // L

REQUEST DBFCDX
REQUEST HB_Lang_ES
REQUEST HB_CODEPAGE_ESWIN

STATIC oWnd
STATIC oBtn1
STATIC oBtn2
STATIC oBtn3
STATIC oBtn4

STATIC oMenu      //-> ES LOCAL
STATIC oMenu_Sub1 //-> ES LOCAL

STATIC lWnd

function Main()

    MEMVAR lBuscaFin, lBuscaFinD, lBuscaFinF, oBtn5
    MEMVAR TESTE

    //-> El compilador necestia de los parametros.
    lBuscaFin  := .F.
    lBuscaFinD := .T.
    lBuscaFinF := .F.
    TESTE := 5
    OBTN5 := ARRAY(5) //-> Conco botones

    ? TESTE


RETURN NIL

Saludos
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
los warnings de memvar (como quitarlos?)
Posted: Mon Sep 01, 2008 01:13 PM
jfafive

La eliminar los warning debes siempre declarar las variables
Code: Select all Collapse
procedure main()
local variables

ahora si utilizas variables publicas o privados debes anteponer la
M->

Code: Select all Collapse
procedure main()
public Variable

funcion2()

return

function funcion2()
M->Variables := "XX"
return( nil )
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
jfafive
Posts: 396
Joined: Tue Mar 18, 2008 09:41 PM
los warnings de memvar (como quitarlos?)
Posted: Mon Sep 01, 2008 03:43 PM

Antonio,

al compilador le paso el parámetro /w

tu ejemplo tambien da warning si lo compilo con /w

Javier,

FWH 8.04 2008
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
los warnings de memvar (como quitarlos?)
Posted: Mon Sep 01, 2008 06:03 PM

Javier,

Que versión y build de Harbour estás usando ?

Aqui, con la última que hemos publicado:
Harbour 1.0.0 Intl. (Rev. 9201)
no da ningún warning:

harbour test.prg /n /w
Harbour 1.0.0 Intl. (Rev. 9201)
Copyright (c) 1999-2008, http://www.harbour-project.org/
Compiling 'test.prg'...
Lines 9, Functions/Procedures 1
Generating C source output to 'test.c'... Done.

regards, saludos

Antonio Linares
www.fivetechsoft.com
jfafive
Posts: 396
Joined: Tue Mar 18, 2008 09:41 PM
los warnings de memvar (como quitarlos?)
Posted: Mon Sep 01, 2008 08:16 PM

Uso la:

C:\HARBOUR\BIN>harbour
Harbour devel build 1.1-1 Intl.
Copyright (c) 1999-2007, http://www.harbour-project.org/

Javier,

FWH 8.04 2008
jfafive
Posts: 396
Joined: Tue Mar 18, 2008 09:41 PM
los warnings de memvar (como quitarlos?)
Posted: Mon Sep 01, 2008 08:24 PM
Antonio,

Con mi versión de harbour, tampoco salen los warnings si lo compilo con el BUILDH.BAT de samples (que lleva el parametro /w).

Pero si compilo con el fichero .RMK, si que me salen los warnings.

Te paso el codigo del RMK por si ves algo raro. Yo no consigo ver de que se trata:

Code: Select all Collapse
L 90      C 1     IA     367k     c:\fwh\b\b.rmk                   10:23:51
   echo $(HBDIR)\lib\rtl.lib + >> b32.bc
   echo $(HBDIR)\lib\vm.lib + >> b32.bc
   echo $(HBDIR)\lib\gtgui.lib + >> b32.bc
   echo $(HBDIR)\lib\lang.lib + >> b32.bc
   echo $(HBDIR)\lib\macro.lib + >> b32.bc
   echo $(HBDIR)\lib\rdd.lib + >> b32.bc
   echo $(HBDIR)\lib\dbfntx.lib + >> b32.bc
   echo $(HBDIR)\lib\dbfcdx.lib + >> b32.bc
   echo $(HBDIR)\lib\dbffpt.lib + >> b32.bc
   echo $(HBDIR)\lib\hbsix.lib + >> b32.bc
   echo $(HBDIR)\lib\debug.lib + >> b32.bc
   echo $(HBDIR)\lib\common.lib + >> b32.bc
   echo $(HBDIR)\lib\pp.lib + >> b32.bc
   echo $(HBDIR)\lib\codepage.lib + >> b32.bc
   echo $(HBDIR)\lib\hbwin32.lib + >> b32.bc
   echo $(ADODIR)\lib\harbour\adordd.lib + >> b32.bc
   echo $(ADODIR)\lib\harbour\usrrdd.lib + >> b32.bc
   echo $(ADODIR)\lib\harbour\hboleaut.lib + >> b32.bc

   rem Uncomment these two lines to use Advantage RDD
   rem echo $(HBDIR)\lib\rddads.lib + >> b32.bc
   rem echo $(HBDIR)\lib\Ace32.lib + >> b32.bc

   echo $(BCDIR)\lib\cw32.lib + >> b32.bc
   echo $(BCDIR)\lib\import32.lib + >> b32.bc
   echo $(BCDIR)\lib\uuid.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\odbc32.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\nddeapi.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\iphlpapi.lib + >> b32.bc
   echo $(BCDIR)\lib\psdk\rasapi32.lib, >> b32.bc

   IF EXIST b.res echo b.res >> b32.bc
   $(BCDIR)\bin\ilink32 -Gn -aa -Tpe -s @b32.bc
   del b32.bc
   del *.res

.PRG.OBJ:
  $(HBDIR)\bin\harbour $< /a /b /L /N /W /I$(FWDIR)\include;$(HBDIR)\include
  $(BCDIR)\bin\bcc32 -c -tWM -I$(HBDIR)\include -o$& $&.c

.C.OBJ:
  echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS > tmp
  echo -I$(HBDIR)\include;$(FWDIR)\include >> tmp
  $(BCDIR)\bin\bcc32 -o$& @tmp $&.c
  del tmp

b.res : b.rc
  $(BCDIR)\bin\brc32.exe -r -ic:\borland\bcc55\include b.rc
Javier,

FWH 8.04 2008
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
los warnings de memvar (como quitarlos?)
Posted: Mon Sep 01, 2008 10:49 PM

Javier,

Sube a www.rapidshare.com el Harbour.exe que estas usando y pon aqui el url de descarga, gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com
jfafive
Posts: 396
Joined: Tue Mar 18, 2008 09:41 PM
los warnings de memvar (como quitarlos?)
Posted: Tue Sep 02, 2008 08:39 AM

Ok, Antonio

Parece que ya lo tengo controlado.
Era un pequeño lio con las variables de entorno.

Siento las molestias.
Un saludo.

:roll:

Javier,

FWH 8.04 2008
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
los warnings de memvar (como quitarlos?)
Posted: Tue Sep 02, 2008 09:47 AM

Javier,

Me alegro de que esté solucionado :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive · New replies & topics via GitHub Discussions