* implement RawThunk for x86_64-win64

git-svn-id: trunk@42731 -

packages/rtl-objpas/src/inc/rtti.pp

@@ -863,6 +863,23 @@ asm
   jmp %eax
 RawThunkEnd:
 end;
+{$elseif defined(cpux86_64) and defined(win64)}
+const
+  RawThunkPlaceholderProc = PtrUInt($8765876587658765);
+  RawThunkPlaceholderContext = PtrUInt($4321432143214321);
+
+type
+  TRawThunkProc = PtrUInt;
+  TRawThunkContext = PtrUInt;
+
+procedure RawThunk; assembler; nostackframe;
+asm
+  { Self is always in register RCX }
+  movl RawThunkPlaceholderContext, %rcx
+  movl RawThunkPlaceholderProc, %rax
+  jmp %rax
+RawThunkEnd:
+end;
 {$endif}
 
 {$if declared(RawThunk)}