Comparison? ;)
Well, bit by bit... :)
2015-01-23 14:09 GMT+01:00 Martin Schreiber <mse00...@gmail.com>:
> Hi,
> Here the first comparison of FPC and MSElang produced code:
>
> Source:
> "
> program test1;
>
> function test(p1: int32): int32;
> var
> i1: int32;
> begin
> i1:= p1;
> result:= p1+i1;
> end;
>
> begin
> exitcode:= test(123);
> end.
> "
>
> MSElang with LLVM backend with -O3:
>
> "
> .file "test-opt.ll"
> .text
> .globl main
> .align 16, 0x90
> .type main,@function
> main: # @main
> # BB#0:
> movl $246, %eax
> ret
> .Ltmp0:
> .size main, .Ltmp0-main
>
>
> .section ".note.GNU-stack","",@progbits
> "
>
> FPC fixes_2_6 with -O3:
>
> "
> .file "test1.pas"
> [...]
> .globl P$TEST1_TEST$LONGINT$$LONGINT
> .type P$TEST1_TEST$LONGINT$$LONGINT,@function
> P$TEST1_TEST$LONGINT$$LONGINT:
> # Temps allocated between esp+0 and esp+0
> # Var p1 located in register edx
> # Var $result located in register eax
> # Var i1 located in register eax
> # [test1.pas]
> # [6] begin
> movl %eax,%edx
> # [7] i1:= p1;
> movl %edx,%eax
> # [8] result:= p1+i1;
> addl %edx,%eax
> # [9] end;
> ret
> [...]
> .globl main
> .type main,@function
> main:
> # Temps allocated between esp+0 and esp+0
> # [11] begin
> call FPC_INITIALIZEUNITS
> # [12] exitcode:= test(123);
> movl $123,%eax
> call P$TEST1_TEST$LONGINT$$LONGINT
> movl %eax,operatingsystem_result
> # [13] end.
> call FPC_DO_EXIT
> ret
> [...]
> "
> ;-)
>
> Martin
>
>
> ------------------------------------------------------------------------------
> New Year. New Location. New Benefits. New Data Center in Ashburn, VA.
> GigeNET is offering a free month of service with a new server in Ashburn.
> Choose from 2 high performing configs, both with 100TB of bandwidth.
> Higher redundancy.Lower latency.Increased capacity.Completely compliant.
> http://p.sf.net/sfu/gigenet
> _______________________________________________
> mseide-msegui-talk mailing list
> mseide-msegui-talk@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
>
--
Julio Jiménez Borreguero
------------------------------------------------------------------------------
New Year. New Location. New Benefits. New Data Center in Ashburn, VA.
GigeNET is offering a free month of service with a new server in Ashburn.
Choose from 2 high performing configs, both with 100TB of bandwidth.
Higher redundancy.Lower latency.Increased capacity.Completely compliant.
http://p.sf.net/sfu/gigenet
_______________________________________________
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
