From b5797a5cef6d25817da7998f6263afa53e196d25 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <gingold@adacore.com>
Date: Tue, 5 Jan 2016 06:44:53 +0100
Subject: mcode: add support for x86-64

---
 src/ortho/mcode/ortho_code-exprs.adb | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/ortho/mcode/ortho_code-exprs.adb')

diff --git a/src/ortho/mcode/ortho_code-exprs.adb b/src/ortho/mcode/ortho_code-exprs.adb
index 17a47f41c..a529034ca 100644
--- a/src/ortho/mcode/ortho_code-exprs.adb
+++ b/src/ortho/mcode/ortho_code-exprs.adb
@@ -727,6 +727,13 @@ package body Ortho_Code.Exprs is
       end if;
    end New_Lit;
 
+   function Is_Expr_S32 (Cst : O_Enode) return Boolean is
+   begin
+      pragma Assert (Get_Expr_Kind (Cst) = OE_Const);
+      return Shift_Right_Arithmetic (Get_Expr_Low (Cst), 32)
+        = Get_Expr_High (Cst);
+   end Is_Expr_S32;
+
    function Get_Static_Chain (Depth : O_Depth) return O_Enode
    is
       Cur_Depth : O_Depth := Cur_Subprg.Depth;
-- 
cgit v1.2.3