Ayuda con un archivo TRACE

[JoseGS]

Hola amigos:

He notado que cada vez que ejecuto mi programa se crea un archivo con el nombre TRACE.LOG que contiene lo siguiente:


*** WARNING! Function: ALERT Duplicate Definition: 0044A22C in Module: alert.prg is hidden by previously registered Module: ALERT.PRG Definition: 00401E91
*** WARNING! Function: GETNEW Duplicate Definition: 0044ABFC in Module: tgetint.prg is hidden by previously registered Module: TCLIPGET.PRG Definition: 00408459

Cuando compilo el programa no aparece ningun error... a que se debe esto, como lo corrigo ?


Gracias

[MarioG]

José:
WARNINGS! es eso , solo un llamado de Atención, por eso al ejecutar no da error
En alguna otra lib u, otros fuentes que agregas en tu proyecto están definidos: Alert.prg y TGetInt.prg
Lo que te está informando el Warnings es eso, que hay funciones duplicadas
Cuando se ejecuta, si se la llama, va a invocar a la primera que encontró en la compilacion

Saludos

[JoseGS]

Mario,

No pongo nada extraÑO, por lo pronto, lo que hago es que ejecuto un VALID al salir que borra ese archivo. Si ves algo raro, te agradeceria que me lo hagas saber

saludos y Gracias



BUILDX.BAT ....


@ECHO OFF
CLS
ECHO ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
ECHO ³ FiveWin for xHarbour 8.05 - May. 2008 xHarbour development power ³Ü
ECHO ³ (c) FiveTech, 1993-2008 for Microsoft Windows 95/98/NT/2000/ME/XP/Vista ³Û
ECHO ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ
ECHO ÿ ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST

ECHO Compiling...

set hdir=c:\xharbour
set bcdir=c:\bcc55

%hdir%\bin\harbour %1 /n /iC:\FWH\include;%hdir%\include /w /p %2 %3 > clip.log

@type clip.log
IF ERRORLEVEL 1 PAUSE
IF ERRORLEVEL 1 GOTO EXIT

echo -O2 -e%1.exe -I%hdir%\include %1.c > b32.bc
%bcdir%\bin\bcc32 -M -c -v @b32.bc
:ENDCOMPILE

IF EXIST %1.rc %bcdir%\bin\brc32 -r %1

echo c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo C:\FWH\lib\Fivehx.lib C:\FWH\lib\FiveHC.lib C:\FWH\lib\SbuttonX.lib C:\FWH\lib\SBROWSEX.lib C:\FWH\lib\CODIGOBASE.lib + >> b32.bc
echo %hdir%\lib\rtl.lib + >> b32.bc
echo %hdir%\lib\vm.lib + >> b32.bc
echo %hdir%\lib\gtgui.lib + >> b32.bc
echo %hdir%\lib\lang.lib + >> b32.bc
echo %hdir%\lib\macro.lib + >> b32.bc
echo %hdir%\lib\rdd.lib + >> b32.bc
echo %hdir%\lib\dbfntx.lib + >> b32.bc
echo %hdir%\lib\dbfcdx.lib + >> b32.bc
echo %hdir%\lib\dbffpt.lib + >> b32.bc
echo %hdir%\lib\hbsix.lib + >> b32.bc
echo %hdir%\lib\debug.lib + >> b32.bc
echo %hdir%\lib\common.lib + >> b32.bc
echo %hdir%\lib\pp.lib + >> b32.bc
echo %hdir%\lib\pcrepos.lib + >> b32.bc


echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib, >> b32.bc

IF EXIST %1.res echo %1.res >> b32.bc

rem uncomment this line to use the debugger and comment the following one
rem %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc
%bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc

IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built
%1
GOTO EXIT
ECHO

rem delete temporary files
@del %1.c

:LINKERROR
ECHO * There are errors
GOTO EXIT

:SINTAX
ECHO SYNTAX: Build [Program] {-- No especifiques la extensi¢n PRG
ECHO {-- Don't specify .PRG extension
GOTO EXIT

:NOEXIST
ECHO The specified PRG %1 does not exist

:EXIT

[MarioG]

José;
Las lib que estan despues de las de FWH, que presupongo son de terceros, yo las pondría así:

Code: Select all  Expand view

...
echo %1.map, + >> b32.bc
echo C:\FWH\lib\SbuttonX.lib + >> b32.bc
echo C:\FWH\lib\SBROWSEX.lib + >> b32.bc
C:\FWH\lib\CODIGOBASE.lib + >> b32.bc
echo C:\FWH\lib\Fivehx.lib C:\FWH\lib\FiveHC.lib + >> b32.bc
echo %hdir%\lib\rtl.lib + >> b32.bc
...
 

Probablemente, alguna de esas lib incluye Alert y TGetInt
Quizás, podrias crear un sample, que no incluyan esas lib y ver si se genera el trace.log (...y, si es así, ahí se me terminaron las ideas )
Respecto el archivo trace.log, si es por cuestion de proligidad, no es incorrecto que lo borres sino, solo se va a generar en cada ejecución.

[JoseGS]

Lo que sucede es que el sistema que he confeccionado se ejecuta en una USB y solo muestro el icono de acceso directo al programa cuando el usuario accede a la memoria USB. Todo lo demas esta oculto para evitar travesuras....

El problema es que entonces, aparece el archivo trace.log y bueno, me incomoda...


Gracias amigo...

[MarioG]

fe de erratas:
(...y, si no es así, ahí se me terminaron las ideas )

probaste compilar anteponiendo las libs a las de FWH?

[Willi Quintana]

Holas,,,
Es un asunto de xharbour,,, solucion,,,
al inicio del programa principal,,, luego de las declaraciones de las variables coloques esto:
Function Main()
local.....
local....
FERASE("trace.log")
...
.

..

Salu2

PD.. pasa que hay funciones que por alguna razon estan duplicadas en los diferentes modulos del xharbour

[MarioG]

Willi
O sea Alert y TGetInt estan en una lib de xHarbour?
En clipper habia una instrucción en el .lnk para decirle de que lib tomar una función. Existe eso en xHarbour?

[Willi Quintana]

Nop.,, xharbour incica que hay una funcion oculta en otro prg,,, debo pensar que en las libs hay funciones duplicadas,,, en todo caso ese archivo tengo desde que uso xharbour y no da problemas....
salu2

[JoseGS]

Gracias a todos por su ayuda...