From 06f1b6a4e82f826a6600fd742e7e49d8dc258f23 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Mon, 29 Apr 2013 21:53:55 +0000
Subject: [PATCH] * moved the i8086 'push const' instructions to a new method,
 so they can be abstracted on pre-186 processors

git-svn-id: trunk@24380 -
---
 compiler/i8086/cgcpu.pas | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/compiler/i8086/cgcpu.pas b/compiler/i8086/cgcpu.pas
index 2ba0240449..1140b08280 100644
--- a/compiler/i8086/cgcpu.pas
+++ b/compiler/i8086/cgcpu.pas
@@ -46,6 +46,8 @@ unit cgcpu;
         procedure a_op_const_reg(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; reg: TRegister); override;
         procedure a_op_reg_reg(list : TAsmList; Op: TOpCG; size: TCGSize; src, dst: TRegister); override;
 
+        procedure push_const(list:TAsmList;size:topsize;a:tcgint);
+
         { passing parameter using push instead of mov }
         procedure a_load_reg_cgpara(list : TAsmList;size : tcgsize;r : tregister;const cgpara : tcgpara);override;
         procedure a_load_const_cgpara(list : TAsmList;size : tcgsize;a : tcgint;const cgpara : tcgpara);override;
@@ -301,6 +303,12 @@ unit cgcpu;
       end;
 
 
+    procedure tcg8086.push_const(list: TAsmList; size: topsize; a: tcgint);
+      begin
+        list.concat(taicpu.op_const(A_PUSH,size,a));
+      end;
+
+
     procedure tcg8086.a_load_reg_cgpara(list : TAsmList;size : tcgsize;r : tregister;const cgpara : tcgpara);
       var
         pushsize, pushsize2: tcgsize;
@@ -377,8 +385,8 @@ unit cgcpu;
                 if (cgpara.alignment <> 4) and (cgpara.alignment <> 2) then
                   internalerror(2013031101);
 
-                list.concat(taicpu.op_const(A_PUSH,S_W,a shr 16));
-                list.concat(taicpu.op_const(A_PUSH,S_W,a and $FFFF));
+                push_const(list,S_W,a shr 16);
+                push_const(list,S_W,a and $FFFF);
               end
             else
               begin
@@ -387,7 +395,7 @@ unit cgcpu;
                   pushsize:=cgpara.location^.size
                 else
                   pushsize:=int_cgsize(cgpara.alignment);
-                list.concat(taicpu.op_const(A_PUSH,tcgsize2opsize[pushsize],a));
+                push_const(list,tcgsize2opsize[pushsize],a);
               end;
           end
         else
@@ -526,7 +534,7 @@ unit cgcpu;
                           list.concat(Taicpu.Op_sym_ofs(A_PUSH,opsize,symbol,offset));
                       end
                     else
-                      list.concat(Taicpu.Op_const(A_PUSH,opsize,offset));
+                      push_const(list,opsize,offset);
                   end
                 else if (segment=NR_NO) and (base=NR_NO) and (index<>NR_NO) and
                         (offset=0) and (scalefactor=0) and (symbol=nil) then
@@ -1081,7 +1089,7 @@ unit cgcpu;
     procedure tcg8086.g_exception_reason_save_const(list : TAsmList;const href : treference; a: tcgint);
       begin
         if not paramanager.use_fixed_stack then
-          list.concat(Taicpu.op_const(A_PUSH,tcgsize2opsize[OS_INT],a))
+          push_const(list,tcgsize2opsize[OS_INT],a)
         else
           inherited g_exception_reason_save_const(list,href,a);
       end;