los warnings de memvar (como quitarlos?)

[jfafive]

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.

[Antonio Linares]

Javier,

Las declaras al comienzo del PRG como:

memvar nombre1, nombre2, etc...

?

[jfafive]

Antonio, las declaro así:

Code: Select all  Expand view

#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 ...............



[jfafive]

Hola...

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

Un saludo.
Gracias...

[Antonio Linares]

Javier,

Que parámetros le pasas al compilador ?

Aqui este ejemplo funciona bien y no da ningún warning:

Code: Select all  Expand view

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.

[karinha]

Code: Select all  Expand view

#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

[Patricio Avalos Aguirre]

jfafive

La eliminar los warning debes siempre declarar las variables

Code: Select all  Expand view

procedure main()
local variables


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

Code: Select all  Expand view

procedure main()
public Variable

funcion2()

return

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


[jfafive]

Antonio,

al compilador le paso el parámetro /w

tu ejemplo tambien da warning si lo compilo con /w

[Antonio Linares]

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.

[jfafive]

Uso la:

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

[jfafive]

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  Expand view

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


[Antonio Linares]

Javier,

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

[jfafive]

Ok, Antonio

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

Siento las molestias.
Un saludo.

[Antonio Linares]

Javier,

Me alegro de que esté solucionado