Delphi (Borland Developer Studio 2006):<\/p>\n
The BDS2006 compiler generated this: What We wanted is this:<\/p>\n Which looks like this in action:<\/p>\n Much better, (the delphi optimizer looks lazy).<\/p>\n Lets see the Visual Studio 2008 Pro C++:<\/p>\n I would have expected something more efficient. I thought MS VS2008 would produce better code than BDS2006 for sure. I was wrong.<\/p>\n What I wanted looks something like this:<\/p>\n Assembly is still king. And so is pascal\/delphi with assembler rutines.<\/p>\n Next is gcc…<\/p>\n MinGW32 – gcc 3.4.5 (mingw-vista special r3)<\/p>\n the result of gcc -S :<\/p>\n Thats what I call nice code (apart from the GAS syntax)<\/p>\n","protected":false},"excerpt":{"rendered":" Delphi (Borland Developer Studio 2006): function AddInt64_1(A, B : Int64) : Int64; begin Result := A + B; end; The BDS2006 compiler generated this: OptimizeMathFunctions.dpr.74: writeln(IntToHex(AddInt64_1($1111000022223333,$1234567890123456),16)); 0040915F 6800001111 push $11110000 00409164 6833332222 push $22223333 00409169 6878563412 push $12345678 0040916E 6856341290 … Continue reading function AddInt64_1(A, B : Int64) : Int64;
\nbegin
\n Result := A + B;
\nend;<\/code><\/p>\n
\nOptimizeMathFunctions.dpr.74: writeln(IntToHex(AddInt64_1($1111000022223333,$1234567890123456),16));
\n0040915F 6800001111 push $11110000
\n00409164 6833332222 push $22223333
\n00409169 6878563412 push $12345678
\n0040916E 6856341290 push $90123456
\n00409173 E844F8FFFF call AddInt64_1
\n...
\nOptimizeMathFunctions.dpr.9: begin
\n004089BC 55 push ebp
\n004089BD 8BEC mov ebp,esp
\n004089BF 83C4F8 add esp,-$08
\nOptimizeMathFunctions.dpr.10: Result := A + B;
\n004089C2 8B4510 mov eax,[ebp+$10]
\n004089C5 8B5514 mov edx,[ebp+$14]
\n004089C8 034508 add eax,[ebp+$08]
\n004089CB 13550C adc edx,[ebp+$0c]
\n004089CE 8945F8 mov [ebp-$08],eax
\n004089D1 8955FC mov [ebp-$04],edx
\nOptimizeMathFunctions.dpr.11: end;
\n004089D4 8B45F8 mov eax,[ebp-$08]
\n004089D7 8B55FC mov edx,[ebp-$04]
\n004089DA 59 pop ecx
\n004089DB 59 pop ecx
\n004089DC 5D pop ebp
\n004089DD C21000 ret $0010<\/code><\/p>\nfunction AddInt64_A(A, B : Int64) : Int64;
\nasm
\n mov eax,[ebp+$10]
\n mov edx,[ebp+$14]
\n add eax,[ebp+$08]
\n adc edx,[ebp+$0c]
\nend;<\/code><\/p>\nOptimizeMathFunctions.dpr.82: writeln(IntToHex(AddInt64_A($1111000022223333,$1234567890123456),16));
\n004091A1 6800001111 push $11110000
\n004091A6 6833332222 push $22223333
\n004091AB 6878563412 push $12345678
\n004091B0 6856341290 push $90123456
\n004091B5 E826F8FFFF call AddInt64_A
\n...
\nOptimizeMathFunctions.dpr.14: asm
\n004089E0 55 push ebp
\n004089E1 8BEC mov ebp,esp
\n004089E3 8B4510 mov eax,[ebp+$10]
\n004089E6 8B5514 mov edx,[ebp+$14]
\n004089E9 034508 add eax,[ebp+$08]
\n004089EC 13550C adc edx,[ebp+$0c]
\nOptimizeMathFunctions.dpr.19: end;
\n004089EF 5D pop ebp
\n004089F0 C21000 ret $0010<\/code><\/p>\ntypedef long long int64;
\nint64 AddInt64_1(int64 A, int64 B)
\n{
\n return (A+B);
\n}<\/code><\/p>\n\tprintf(\"%I64xn\",AddInt64_1(0x1111000022223333UL,0x1234567890123456UL));
\n004135AC push 12345678h
\n004135B1 push 90123456h
\n004135B6 push 11110000h
\n004135BB push 22223333h
\n004135C0 call AddInt64_1 (4111D1h)
\n...
\n004111D1 jmp AddInt64_1 (4113A0h)
\n...
\n004113A0 push ebp
\n004113A1 mov ebp,esp
\n004113A3 sub esp,0C0h
\n004113A9 push ebx
\n004113AA push esi
\n004113AB push edi
\n004113AC lea edi,[ebp-0C0h]
\n004113B2 mov ecx,30h
\n004113B7 mov eax,0CCCCCCCCh
\n004113BC rep stos dword ptr es:[edi]
\n return (A+B);
\n004113BE mov eax,dword ptr [A]
\n004113C1 add eax,dword ptr [B]
\n004113C4 mov edx,dword ptr [ebp+0Ch]
\n004113C7 adc edx,dword ptr [ebp+14h]
\n}
\n004113CA pop edi
\n004113CB pop esi
\n004113CC pop ebx
\n004113CD mov esp,ebp
\n004113CF pop ebp
\n004113D0 ret <\/code><\/p>\nint64 __declspec(naked) AddInt64_AN2(int64 A, int64 B)
\n{
\n __asm {
\n\t mov eax,dword ptr [esp+04h]\/\/[A]
\n\t add eax,dword ptr [esp+0ch]
\n\t mov edx,dword ptr [esp+08h]
\n\t adc edx,dword ptr [esp+10h]
\n ret
\n }
\n}<\/code><\/p>\nint64 AddInt64_1(int64 A, int64 B)
\n{
\n return (A+B);
\n}
\n...
\n printf(\"%I64xn\",AddInt64_1(0x1111000022223333LL,0x1234567890123456LL));<\/code><\/p>\n\tmovl\t$-1877855146, 8(%esp)
\n\tmovl\t$305419896, 12(%esp)
\n\tmovl\t$572666675, (%esp)
\n\tmovl\t$286326784, 4(%esp)
\n\tcall\t__Z10AddInt64_1xx
\n...
\n__Z10AddInt64_1xx:
\n\tpushl\t%ebp
\n\tmovl\t%esp, %ebp
\n\tmovl\t16(%ebp), %eax
\n\tmovl\t20(%ebp), %edx
\n\taddl\t8(%ebp), %eax
\n\tadcl\t12(%ebp), %edx
\n\tpopl\t%ebp
\n\tret<\/code><\/p>\n