As Incriveis capacidades do Harbour
Moderador: Moderadores
- RobertoLinux
- Usuário Nível 3

- Mensagens: 110
- Registrado em: 14 Abr 2014 18:32
- Localização: Fortaleza/Ce
As Incriveis capacidades do Harbour
Bom dia,
Caros colegas, eu estava querendo saber os limites do Harbour, então criei um script em shell Bash para gerar os .PRG'S e o .HBP.
A capacidade máxima parece ser de 65.536 símbolos, no setup atual desse script, ele gera um binario de mais de 860MB, e 18.599.068 linhas de código.
Isso pode ser mudado de acordo com as variáveis K e M, bem como a quantidade e tipo de variáveis a seem criadas.
Estou enviando em anexo, caso alguém queira testar, ren de .TXT para .sh,
Um bom dia a todos e um excelente fim de semana.
Caros colegas, eu estava querendo saber os limites do Harbour, então criei um script em shell Bash para gerar os .PRG'S e o .HBP.
A capacidade máxima parece ser de 65.536 símbolos, no setup atual desse script, ele gera um binario de mais de 860MB, e 18.599.068 linhas de código.
Isso pode ser mudado de acordo com as variáveis K e M, bem como a quantidade e tipo de variáveis a seem criadas.
Estou enviando em anexo, caso alguém queira testar, ren de .TXT para .sh,
Um bom dia a todos e um excelente fim de semana.
- Anexos
-
mk_prgs_hb.txt- Script Gerador .PRG'S ..
- (118.18 KiB) Baixado 245 vezes
Entusiasta
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
As Incriveis capacidades do Harbour
Um script muito doido, mas se o objetivo for testar o limite de varáveis PUBLIC, basta um fonte pequeno e simples:
Código: Selecionar todos
PROCEDURE Main
FOR nCont = 1 TO 100000
cVar := "pub" + StrZero( nCont, 6 )
IF nCont > 65000
? nCont
ENDIF
PUBLIC &cVar
NEXT
RETURN
Passando as duas variáveis pra local.... libera espaço pra mais duas...65333
65334
65335
Unrecoverable error 6004: Internal error: size of dynamic symbol table exceed
Called from MAIN(9)
Código: Selecionar todos
PROCEDURE Main
LOCAL nCont, cVar
FOR nCont = 1 TO 100000
cVar := "pub" + StrZero( nCont, 6 )
IF nCont > 65000
? nCont
ENDIF
PUBLIC &cVar
NEXT
RETURN
Isso é limite demais, principalmente pra algo que deve ser evitado ao máximo.65336
65337
Unrecoverable error 6004: Internal error: size of dynamic symbol table exceed
Called from MAIN(11)
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
- RobertoLinux
- Usuário Nível 3

- Mensagens: 110
- Registrado em: 14 Abr 2014 18:32
- Localização: Fortaleza/Ce
As Incriveis capacidades do Harbour
Pois é meu prezado, acho que exagerei na dose, rsrsrs, mas tbm serviu pra ver a questão de estabilidade do SO. imagina só 860MB de binario, rsrsr é quase um sistema operacional.
Valeu ...
Valeu ...
Entusiasta
- RobertoLinux
- Usuário Nível 3

- Mensagens: 110
- Registrado em: 14 Abr 2014 18:32
- Localização: Fortaleza/Ce
As Incriveis capacidades do Harbour
Quanto a estabilidade de SO, eu compilei e rodei esse binário de 860MB em um K-6-2 de 550Mhz e 128MB RAM com o GNU/Linux Debian 8, demorou algumas horas, mas completou a tarefa 100%.
Já no Windows Server em uma máquina de 4GB, o mesmo foi abortado antes de concluir.
Eu não estou dizendo que X é melhor que Y, apenas relatando um fato.
Felicidades.
Já no Windows Server em uma máquina de 4GB, o mesmo foi abortado antes de concluir.
Eu não estou dizendo que X é melhor que Y, apenas relatando um fato.
Felicidades.
Entusiasta
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
As Incriveis capacidades do Harbour
Se nessa configuração fez isso, neste aqui deve ser melhor ainda.
http://www.americanas.com.br/produto/17 ... arch_page+
http://www.americanas.com.br/produto/17 ... arch_page+
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
- RobertoLinux
- Usuário Nível 3

- Mensagens: 110
- Registrado em: 14 Abr 2014 18:32
- Localização: Fortaleza/Ce
As Incriveis capacidades do Harbour
Eu quase comprei um "bixo" desses ...
viewtopic.php?f=4&t=15926&p=95059&hilit=raspberry#p94935
viewtopic.php?f=4&t=15926&p=95059&hilit=raspberry#p94935
Entusiasta
- RobertoLinux
- Usuário Nível 3

- Mensagens: 110
- Registrado em: 14 Abr 2014 18:32
- Localização: Fortaleza/Ce
As Incriveis capacidades do Harbour
Bom dia, meus nobres e prezados colegas.
Não gostaria de causar polemicas, mas como um Entusiasta e um verdadeiro Fuçador, rsrsrssr, fiz um teste como esse programa (MALUCO), tanto com Harbour e com o [x]Harbour, o resultado foi que com o Harbour, o mesmo foi mais que o dobro mais rápido do que com o [x]Harbour.
Quem tiver tempo livre, que eu acho difícil, o script está ai.
Se for testar no Windows, puxe o banquinho e chore, rsrsrssr pq o mesmo abre o bico. Agora sim causei polemica.
Bom FDS à todos!
Felicidades.
Não gostaria de causar polemicas, mas como um Entusiasta e um verdadeiro Fuçador, rsrsrssr, fiz um teste como esse programa (MALUCO), tanto com Harbour e com o [x]Harbour, o resultado foi que com o Harbour, o mesmo foi mais que o dobro mais rápido do que com o [x]Harbour.
Quem tiver tempo livre, que eu acho difícil, o script está ai.
Se for testar no Windows, puxe o banquinho e chore, rsrsrssr pq o mesmo abre o bico. Agora sim causei polemica.
Bom FDS à todos!
Felicidades.
Entusiasta
- RobertoLinux
- Usuário Nível 3

- Mensagens: 110
- Registrado em: 14 Abr 2014 18:32
- Localização: Fortaleza/Ce
As Incriveis capacidades do Harbour
Parece até coincidência, mas juro que não, olhem só o que acabou de sair do forno ...
Segue o Link ...
https://www.phoronix.com/scan.php?page= ... inux&num=1
Luz e Paz!
Segue o Link ...
https://www.phoronix.com/scan.php?page= ... inux&num=1
Luz e Paz!
Entusiasta
- RobertoLinux
- Usuário Nível 3

- Mensagens: 110
- Registrado em: 14 Abr 2014 18:32
- Localização: Fortaleza/Ce
As Incriveis capacidades do Harbour
Bom dia Nobres e Prezados Colegas!
Não sei se essa solução para a questão do windows funciona, pelo momento não tenho como testar, mas segue o link, caso alguém queira experimentar.
https://msdn.microsoft.com/en-us/library/d25ddyfc.aspx
Uma excelente semana!
Não sei se essa solução para a questão do windows funciona, pelo momento não tenho como testar, mas segue o link, caso alguém queira experimentar.
https://msdn.microsoft.com/en-us/library/d25ddyfc.aspx
Uma excelente semana!
Entusiasta
- RobertoLinux
- Usuário Nível 3

- Mensagens: 110
- Registrado em: 14 Abr 2014 18:32
- Localização: Fortaleza/Ce
As Incriveis capacidades do Harbour
Consegui testar e resolveu.
Use ...
editbin /stack:4194304 test.exe
Boa Sorte!
Use ...
editbin /stack:4194304 test.exe
Boa Sorte!
Entusiasta