FiveTech Support Forums

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

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

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

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

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

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?

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

Gracias a todos por su ayuda...