From 81686bb7974242b60f83d3dfe518a09d7e482f3e Mon Sep 17 00:00:00 2001
From: florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Thu, 6 Sep 2012 15:12:12 +0000
Subject: + support for handling OS_128/OS_S128 on 64 Bit CPUs as far as needed
 for method pointers in registers

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@22344 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 compiler/cgbase.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'compiler/cgbase.pas')

diff --git a/compiler/cgbase.pas b/compiler/cgbase.pas
index abd47adf6d..36bf11d66e 100644
--- a/compiler/cgbase.pas
+++ b/compiler/cgbase.pas
@@ -209,6 +209,9 @@ interface
       { A type to store register locations for 64 Bit values. }
 {$ifdef cpu64bitalu}
       tregister64 = tregister;
+      tregister128 = record
+         reglo,reghi : tregister;
+      end;
 {$else cpu64bitalu}
       tregister64 = record
          reglo,reghi : tregister;
@@ -594,6 +597,11 @@ implementation
           OS_NO,OS_8,OS_16,OS_NO,OS_32,OS_NO,OS_NO,OS_NO,OS_64
         );
       begin
+{$ifdef cpu64bitalu}
+        if a=16 then
+          result:=OS_128
+        else
+{$endif cpu64bitalu}
         if a>8 then
           result:=OS_NO
         else
-- 
cgit v1.2.1