1# Copyright (c) 2007 The Hewlett-Packard Development Company
2# All rights reserved.
3#
4# The license below extends only to copyright in the software and shall
5# not be construed as granting a license to any other intellectual
6# property including but not limited to intellectual property relating
7# to a hardware implementation of the functionality of the software
8# licensed hereunder.  You may use the software subject to the license
9# terms below provided that you ensure that this notice is replicated
10# unmodified and in its entirety in all distributions of the software,
11# modified or unmodified, in source code or in binary form.
12#
13# Redistribution and use in source and binary forms, with or without
14# modification, are permitted provided that the following conditions are
15# met: redistributions of source code must retain the above copyright
16# notice, this list of conditions and the following disclaimer;
17# redistributions in binary form must reproduce the above copyright
18# notice, this list of conditions and the following disclaimer in the
19# documentation and/or other materials provided with the distribution;
20# neither the name of the copyright holders nor the names of its
21# contributors may be used to endorse or promote products derived from
22# this software without specific prior written permission.
23#
24# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
25# "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
26# LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
27# A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
28# OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
29# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
30# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
31# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
32# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
33# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
34# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
35#
36# Authors: Gabe Black
37
38microcode = '''
39def macroop CALL_NEAR_I
40{
41    # Make the default data size of calls 64 bits in 64 bit mode
42    .adjust_env oszIn64Override
43    .function_call
44
45    limm t1, imm
46    rdip t7
47    # Check target of call
48    stis t7, ss, [0, t0, rsp], "-env.dataSize"
49    subi rsp, rsp, ssz
50    wrip t7, t1
51};
52
53def macroop CALL_NEAR_R
54{
55    # Make the default data size of calls 64 bits in 64 bit mode
56    .adjust_env oszIn64Override
57    .function_call
58
59    rdip t1
60    # Check target of call
61    stis t1, ss, [0, t0, rsp], "-env.dataSize"
62    subi rsp, rsp, ssz
63    wripi reg, 0
64};
65
66def macroop CALL_NEAR_M
67{
68    # Make the default data size of calls 64 bits in 64 bit mode
69    .adjust_env oszIn64Override
70    .function_call
71
72    rdip t7
73    ld t1, seg, sib, disp
74    # Check target of call
75    st t7, ss, [0, t0, rsp], "-env.dataSize"
76    subi rsp, rsp, ssz
77    wripi t1, 0
78};
79
80def macroop CALL_NEAR_P
81{
82    # Make the default data size of calls 64 bits in 64 bit mode
83    .adjust_env oszIn64Override
84    .function_call
85
86    rdip t7
87    ld t1, seg, riprel, disp
88    # Check target of call
89    st t7, ss, [0, t0, rsp], "-env.dataSize"
90    subi rsp, rsp, ssz
91    wripi t1, 0
92};
93'''
94#let {{
95#    class CALL(Inst):
96#       "GenFault ${new UnimpInstFault}"
97#}};
98