Este es el mejor regalo de Navidad...
Felicitaciones a todos los que están participando en el proyecto y...
GRACIAS
Saludos
Manu Expósito
-
This is the best Christmas gift ...
Congratulations to all who are
Hola Pritpal veo que usas mucho len( a ) dentro de los bucles y eso se
evalua en cada iteración.
Por ejemplo MemoToArray quedaría más optimizada así:
FUNCTION MemoToArray( s )
LOCAL a_, b_, i, j, n
s := trim( s )
s := strtran( s, CRLF, _EOL )
a_:= hb_atokens( s, _EOL )
n := len( a_ )
configured, which can
be tricky on Windows. I can't help you further as it's
been years I've tried this scenario.
Brgds,
Viktor
On 2009.08.10., at 5:38, Manu wrote:
Este es el error:
mingw32-make[3]: Leaving directory `c:/HBR/source/pp/obj/win/bcc'
C:\WINDOWS\system32\cmd.e
Este es el error:
mingw32-make[3]: Leaving directory `c:/HBR/source/pp/obj/win/bcc'
C:\WINDOWS\system32\cmd.exe /Cif not exist "c:\harbour\SVN\bcc\bin"
mkdir "c:\harbour\SVN\bcc\bin" & for %%f in (..\..\bin\win\bcc\hbpp.exe)
do copy "%%f" "c:\harbour\SVN\bcc\bin"
1 archivos copiados.
C:
at 1:49, Manu wrote:
pocc.exe -I. -Ze -Go -MT -W1 -Ot -I../../../../../include
-DHB_DYNLIB -c ../../../sha2.c -Fosha2.obj
../../../sha2.c(444): fatal error: Internal error:
find_cheapest_spill_range().
mingw32-make[3]: Leaving directory `c:/HBR/source/rtl/obj/win/pocc'
mingw32-make[2
pocc.exe -I. -Ze -Go -MT -W1 -Ot -I../../../../../include-DHB_DYNLIB
-c ../../../sha2.c -Fosha2.obj
../../../sha2.c(444): fatal error: Internal error:
find_cheapest_spill_range().
mingw32-make[3]: Leaving directory `c:/HBR/source/rtl/obj/win/pocc'
mingw32-make[2]: Leaving directory `c:/HBR/s
Al construir Harbour con Pelles C me sale este error:
pocc.exe -I. -Ze -Go -MT -W1 -Ot -I../../../../../include-DHB_DYNLIB
-c ../../../sha2.c -Fosha2.obj
../../../sha2.c(444): fatal error: Internal error:
find_cheapest_spill_range().
mingw32-make[3]: Leaving directory `c:/HBR/source/rtl/ob
___
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
Jose Luis he probado el código en un mismo PRG. Poniendo la funcion main
al principio y va perfectamente :-)
De hecho yo lo uso en mis clases y no me falla
#include "hbclass.ch"
FUNCTION MAIN()
LOCAL o
o := MyOtherClass():New()
? o:MyMethod() // --> 'Bye'
RETURN NIL
CLASS MyClass