{$INLINE ON}
Program Test1;

Procedure EMMS; assembler; Inline;
asm
 FEMMS;
end;

Function GetCPUTick : int64; assembler; inline;
asm
 rdtsc;
end;

Function Num : int64; inline;
begin
 Result:=1+2;
end;

VAR
 T : Int64;

BEGIN
 T := GetCPUTick;
 T:=T+2;
 T := Num;
 EMMS;

 ReadLn;
END.

.globl    P$TEST1_EMMS
P$TEST1_EMMS:
# Temps allocated between esp+0 and esp+0
# [6] FEMMS;
   femms
   ret

.section .text
   .balign 4
   .balign 4
# [12] end;
.globl    P$TEST1_GETCPUTICK$$INT64
P$TEST1_GETCPUTICK$$INT64:
# Temps allocated between esp-8 and esp-8
   subl    $8,%esp
# Var $result located at esp-8
# [11] rdtsc;
   rdtsc
   addl    $8,%esp
   ret

.section .text
   .balign 4
   .balign 4
# [15] begin
.globl    P$TEST1_NUM$$INT64
P$TEST1_NUM$$INT64:
# Temps allocated between ebp-4 and ebp+0
   pushl    %ebp
   movl    %esp,%ebp
   subl    $4,%esp
   movl    %ebx,-4(%ebp)
# Var $result located in register
# [16] Result:=1+2;
   movl    $3,%ecx
   movl    $0,%ebx
# [17] end;
   movl    %ecx,%eax
   movl    %ebx,%edx
   movl    -4(%ebp),%ebx
   leave
   ret

# [23] T := GetCPUTick;
   call    P$TEST1_GETCPUTICK$$INT64
   # Register %ecx released
   movl    %eax,%esi
   # Register %eax released
   movl    %edx,%ebx

Assembler procedures/functions/operators can't be inlined.
For the near future there are no plans to get it working.
It is full of pitfalls. Also Delphi 2005 doesn't allow
inlining of assembler procedures.
------------
Peter Vreman