Harbour 3.2 And 3.4 w/ ZapCC Compiler.

855 views
Skip to first unread message

Roberto Borges

unread,
Jul 24, 2018, 4:11:41 PM7/24/18
to Harbour Developers
Dear All!

Harbour 3.2 And 3.4, Running 100% fine in ZapCC Compiler!

Build, Make and Run!

ZapCC in ...


3.2
----

$ export HB_COMPILER=clang  

$ harbour -build 

Harbour 3.2.0dev (r1806032230) 
Copyright (c) 1999-2018, https://harbour.github.io/ 

Harbour Build Info 
--------------------------- 
Version: Harbour 3.2.0dev (r1806032230) 
Compiler: LLVM/Clang C 6.0 (trunk) (https://github.com/yrnkrn/zapcc.git 6646fe3b5fe3cb712 
Platform: Linux 4.4.0-131-generic x86_64 
PCode version: 0.3 
ChangeLog last entry: 2018-06-04 01:30 UTC-0300 Lailton Fernando Mariano (lailton/at/harbour.com.br) 
ChangeLog ID: 1b05385b046db903a97f7d79311af9a8ec65b3e8 
Built on: Jul 24 2018 16:20:35 
Build options: (Clipper 5.3b) (Clipper 5.x undoc)  
---------------------------

3.4
---

$ harbour -build 

Harbour 3.4.0dev (215c6b2) (2018-04-28 19:25) 
Copyright (c) 1999-2018, https://github.com/vszakats/harbour-core/ 

Harbour Build Info 
--------------------------- 
Version: Harbour 3.4.0dev (215c6b2) (2018-04-28 19:25) 
Compiler: LLVM/Clang C 6.0 (trunk) (https://github.com/yrnkrn/zapcc.git 6646fe3b5fe3cb712 
Platform: Linux 4.4.0-131-generic x86_64 
PCode version: 0.3 
Commit info: 2018-04-28 16:25:30 -0300 
Commit ID: 215c6b27ac02d563890b1eb16b4504054ff89fa4 
Build options: 
---------------------------

Best Regards

Massimo Belgrano

unread,
Jul 25, 2018, 2:32:46 PM7/25/18
to Harbour Project Main Developer List.
AFAIK
Not for windows .. jet

--
You received this message because you are subscribed to the Google Groups "Harbour Developers" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-deve...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.


--
Massimo Belgrano
Delta Informatica S.r.l. (Cliccami per scoprire ) 

Roberto Borges

unread,
Jul 26, 2018, 9:19:19 PM7/26/18
to Harbour Developers
Dear All

Updated to 7.0.0

Harbour 3.2.0dev (r1806032230) 
Copyright (c) 1999-2018, https://harbour.github.io/ 

Harbour Build Info 
--------------------------- 
Version: Harbour 3.2.0dev (r1806032230) 
Compiler: LLVM/Clang C 7.0 (trunk) (https://github.com/yrnkrn/zapcc.git 75357c201af30fc02 

Platform: Linux 4.4.0-131-generic x86_64 
PCode version: 0.3 
ChangeLog last entry: 2018-06-04 01:30 UTC-0300 Lailton Fernando Mariano (lailton/at/harbour.com.br) 
ChangeLog ID: 1b05385b046db903a97f7d79311af9a8ec65b3e8 
Built on: Jul 26 2018 06:53:41 

Build options: (Clipper 5.3b) (Clipper 5.x undoc) 

Roberto Borges

unread,
Jul 27, 2018, 7:08:46 AM7/27/18
to Harbour Developers


Em terça-feira, 24 de julho de 2018 17:11:41 UTC-3, Roberto Borges escreveu:

Roberto Borges

unread,
Aug 1, 2018, 7:28:08 AM8/1/18
to Harbour Developers
Dear All

A pratical Test/Use ....

$harbour -build

Harbour 3.4.0dev (215c6b2) (2018-04-28 19:25)
Copyright (c) 1999-2018, https://github.com/vszakats/harbour-core/

Harbour Build Info
---------------------------
Version: Harbour 3.4.0dev (215c6b2) (2018-04-28 19:25)
Compiler: LLVM/Clang C 7.0 (trunk) (https://github.com/yrnkrn/zapcc.git 75357c201af30fc02
Platform: Linux 4.4.0-131-generic x86_64
PCode version: 0.3
Commit info: 2018-04-28 16:25:30 -0300
Commit ID: 215c6b27ac02d563890b1eb16b4504054ff89fa4
Build options:
---------------------------


Rosetta.Prg
-----------

Procedure Main()
Local k
For k := 0 to 23
? "A(", k, ", 1, -1, -1, 1, 0) =", A(k, 1, -1, -1, 1, 0)
Next
Return

Static Function A(k, x1, x2, x3, x4, x5)
Local ARetVal
Local B := {|| --k, ARetVal := A(k, B, x1, x2, x3, x4) }
If k <= 0
ARetVal := Evaluate(x4) + Evaluate(x5)
Else
B:Eval()
Endif
Return ARetVal

Static Function Evaluate(x)
Local xVal
If ValType(x) == "B"
xVal := x:Eval()
Else
xVal := x
Endif
Return xVal

//Eof


And anexed script to create a .PRG'S to generate more 800 MB in the executable project.

Best Regards.




Em terça-feira, 24 de julho de 2018 17:11:41 UTC-3, Roberto Borges escreveu:
mk_prgs_hb.sh

Roberto Borges

unread,
Aug 5, 2018, 8:40:24 PM8/5/18
to Harbour Developers


Em terça-feira, 24 de julho de 2018 17:11:41 UTC-3, Roberto Borges escreveu:

Massimo Belgrano

unread,
Aug 6, 2018, 10:28:47 AM8/6/18
to Harbour Project Main Developer List.
I not use but seem interesting
but for windows i search native optimization and use msys2 mingw

--
You received this message because you are subscribed to the Google Groups "Harbour Developers" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-deve...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

vag...@gmail.com

unread,
Apr 29, 2025, 1:06:40 AMApr 29
to Harbour Developers

I did a test at the exact moment, it's amazing how Harbor's performance improved. A prime number calculation routine went from 51s to 2s.
Reply all
Reply to author
Forward
0 new messages