From 7035f06bf453bdf2f9f09fd8a392778e9ad3cd43 Mon Sep 17 00:00:00 2001
From: Bernhard Schommer <bernhardschommer@gmail.com>
Date: Wed, 16 Mar 2016 11:06:54 +0100
Subject: Cleanup of AsmToJSON.

Removed unused code, factored out common functions and added an
interface file.
Bug 18394
---
 powerpc/TargetPrinter.ml | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'powerpc/TargetPrinter.ml')

diff --git a/powerpc/TargetPrinter.ml b/powerpc/TargetPrinter.ml
index 99407da7..ae9d4191 100644
--- a/powerpc/TargetPrinter.ml
+++ b/powerpc/TargetPrinter.ml
@@ -71,6 +71,14 @@ let float_reg_name = function
   | FPR24 -> "24" | FPR25 -> "25" | FPR26 -> "26" | FPR27 -> "27"
   | FPR28 -> "28" | FPR29 -> "29" | FPR30 -> "30" | FPR31 -> "31"
 
+let num_crbit = function
+  | CRbit_0 -> 0
+  | CRbit_1 -> 1
+  | CRbit_2 -> 2
+  | CRbit_3 -> 3
+  | CRbit_6 -> 6
+
+
 let label = elf_label
 
 module Linux_System : SYSTEM =
@@ -310,14 +318,6 @@ module Target (System : SYSTEM):TARGET =
     let label_high oc lbl =
       fprintf oc ".L%d@ha" lbl
 
-
-    let num_crbit = function
-      | CRbit_0 -> 0
-      | CRbit_1 -> 1
-      | CRbit_2 -> 2
-      | CRbit_3 -> 3
-      | CRbit_6 -> 6
-
     let crbit oc bit =
       fprintf oc "%d" (num_crbit bit)
 
-- 
cgit