axprgtbl.c
来自「开放源码的编译器open watcom 1.6.0版的源代码」· C语言 代码 · 共 785 行 · 第 1/2 页
C
785 行
/****************************************************************************
*
* Open Watcom Project
*
* Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
*
* ========================================================================
*
* This file contains Original Code and/or Modifications of Original
* Code as defined in and that are subject to the Sybase Open Watcom
* Public License version 1.0 (the 'License'). You may not use this file
* except in compliance with the License. BY USING THIS FILE YOU AGREE TO
* ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
* provided with the Original Code and Modifications, and is also
* available at www.sybase.com/developer/opensource.
*
* The Original Code and all software distributed under the License are
* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
* EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
* ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
* NON-INFRINGEMENT. Please see the License for the specific language
* governing rights and limitations under the License.
*
* ========================================================================
*
* Description: WHEN YOU FIGURE OUT WHAT THIS FILE DOES, PLEASE
* DESCRIBE IT HERE!
*
****************************************************************************/
#include "standard.h"
#include "coderep.h"
#include "regset.h"
#include "axpregn.h"
#include "model.h"
#include "procdef.h"
#include "zoiks.h"
extern proc_def *CurrProc;
static hw_reg_set Empty[] = {
EMPTY };
static hw_reg_set ByteRegs[] = {
HW_D_1( HW_B0 ),
HW_D_1( HW_B1 ),
HW_D_1( HW_B2 ),
HW_D_1( HW_B3 ),
HW_D_1( HW_B4 ),
HW_D_1( HW_B5 ),
HW_D_1( HW_B6 ),
HW_D_1( HW_B7 ),
HW_D_1( HW_B8 ),
HW_D_1( HW_B9 ),
HW_D_1( HW_B10 ),
HW_D_1( HW_B11 ),
HW_D_1( HW_B12 ),
HW_D_1( HW_B13 ),
HW_D_1( HW_B14 ),
HW_D_1( HW_B15 ),
HW_D_1( HW_B16 ),
HW_D_1( HW_B17 ),
HW_D_1( HW_B18 ),
HW_D_1( HW_B19 ),
HW_D_1( HW_B20 ),
HW_D_1( HW_B21 ),
HW_D_1( HW_B22 ),
HW_D_1( HW_B23 ),
HW_D_1( HW_B24 ),
HW_D_1( HW_B25 ),
HW_D_1( HW_B26 ),
HW_D_1( HW_B27 ),
HW_D_1( HW_B28 ),
HW_D_1( HW_B29 ),
HW_D_1( HW_B30 ),
HW_D_1( HW_B31 ),
HW_D_1( HW_EMPTY ) };
static hw_reg_set WordRegs[] = {
HW_D_1( HW_W0 ),
HW_D_1( HW_W1 ),
HW_D_1( HW_W2 ),
HW_D_1( HW_W3 ),
HW_D_1( HW_W4 ),
HW_D_1( HW_W5 ),
HW_D_1( HW_W6 ),
HW_D_1( HW_W7 ),
HW_D_1( HW_W8 ),
HW_D_1( HW_W9 ),
HW_D_1( HW_W10 ),
HW_D_1( HW_W11 ),
HW_D_1( HW_W12 ),
HW_D_1( HW_W13 ),
HW_D_1( HW_W14 ),
HW_D_1( HW_W15 ),
HW_D_1( HW_W16 ),
HW_D_1( HW_W17 ),
HW_D_1( HW_W18 ),
HW_D_1( HW_W19 ),
HW_D_1( HW_W20 ),
HW_D_1( HW_W21 ),
HW_D_1( HW_W22 ),
HW_D_1( HW_W23 ),
HW_D_1( HW_W24 ),
HW_D_1( HW_W25 ),
HW_D_1( HW_W26 ),
HW_D_1( HW_W27 ),
HW_D_1( HW_W28 ),
HW_D_1( HW_W29 ),
HW_D_1( HW_W30 ),
HW_D_1( HW_W31 ),
HW_D_1( HW_EMPTY ) };
static hw_reg_set DWordRegs[] = {
HW_D_1( HW_D0 ),
HW_D_1( HW_D1 ),
HW_D_1( HW_D2 ),
HW_D_1( HW_D3 ),
HW_D_1( HW_D4 ),
HW_D_1( HW_D5 ),
HW_D_1( HW_D6 ),
HW_D_1( HW_D7 ),
HW_D_1( HW_D8 ),
HW_D_1( HW_D9 ),
HW_D_1( HW_D10 ),
HW_D_1( HW_D11 ),
HW_D_1( HW_D12 ),
HW_D_1( HW_D13 ),
HW_D_1( HW_D14 ),
HW_D_1( HW_D15 ),
HW_D_1( HW_D16 ),
HW_D_1( HW_D17 ),
HW_D_1( HW_D18 ),
HW_D_1( HW_D19 ),
HW_D_1( HW_D20 ),
HW_D_1( HW_D21 ),
HW_D_1( HW_D22 ),
HW_D_1( HW_D23 ),
HW_D_1( HW_D24 ),
HW_D_1( HW_D25 ),
HW_D_1( HW_D26 ),
HW_D_1( HW_D27 ),
HW_D_1( HW_D28 ),
HW_D_1( HW_D29 ),
HW_D_1( HW_D30 ),
HW_D_1( HW_D31 ),
HW_D_1( HW_EMPTY ) };
static hw_reg_set QWordRegs[] = {
HW_D_1( HW_R0 ),
HW_D_1( HW_R1 ),
HW_D_1( HW_R2 ),
HW_D_1( HW_R3 ),
HW_D_1( HW_R4 ),
HW_D_1( HW_R5 ),
HW_D_1( HW_R6 ),
HW_D_1( HW_R7 ),
HW_D_1( HW_R8 ),
HW_D_1( HW_R9 ),
HW_D_1( HW_R10 ),
HW_D_1( HW_R11 ),
HW_D_1( HW_R12 ),
HW_D_1( HW_R13 ),
HW_D_1( HW_R14 ),
HW_D_1( HW_R15 ),
HW_D_1( HW_R16 ),
HW_D_1( HW_R17 ),
HW_D_1( HW_R18 ),
HW_D_1( HW_R19 ),
HW_D_1( HW_R20 ),
HW_D_1( HW_R21 ),
HW_D_1( HW_R22 ),
HW_D_1( HW_R23 ),
HW_D_1( HW_R24 ),
HW_D_1( HW_R25 ),
HW_D_1( HW_R26 ),
HW_D_1( HW_R27 ),
HW_D_1( HW_R28 ),
HW_D_1( HW_R29 ),
HW_D_1( HW_R30 ),
HW_D_1( HW_R31 ),
HW_D_1( HW_EMPTY ) };
static hw_reg_set FloatRegs[] = {
HW_D_1( HW_F0 ),
HW_D_1( HW_F1 ),
HW_D_1( HW_F2 ),
HW_D_1( HW_F3 ),
HW_D_1( HW_F4 ),
HW_D_1( HW_F5 ),
HW_D_1( HW_F6 ),
HW_D_1( HW_F7 ),
HW_D_1( HW_F8 ),
HW_D_1( HW_F9 ),
HW_D_1( HW_F10 ),
HW_D_1( HW_F11 ),
HW_D_1( HW_F12 ),
HW_D_1( HW_F13 ),
HW_D_1( HW_F14 ),
HW_D_1( HW_F15 ),
HW_D_1( HW_F16 ),
HW_D_1( HW_F17 ),
HW_D_1( HW_F18 ),
HW_D_1( HW_F19 ),
HW_D_1( HW_F20 ),
HW_D_1( HW_F21 ),
HW_D_1( HW_F22 ),
HW_D_1( HW_F23 ),
HW_D_1( HW_F24 ),
HW_D_1( HW_F25 ),
HW_D_1( HW_F26 ),
HW_D_1( HW_F27 ),
HW_D_1( HW_F28 ),
HW_D_1( HW_F29 ),
HW_D_1( HW_F30 ),
HW_D_1( HW_F31 ),
HW_D_1( HW_EMPTY ) };
/*
* NOTE: ordering is important here - see state->curr_entry
* and relating code in ParmReg and CallState. BBB
*/
static hw_reg_set AllParmRegs[] = {
HW_D_1( HW_R16 ),
HW_D_1( HW_F16 ),
HW_D_1( HW_R17 ),
HW_D_1( HW_F17 ),
HW_D_1( HW_R18 ),
HW_D_1( HW_F18 ),
HW_D_1( HW_R19 ),
HW_D_1( HW_F19 ),
HW_D_1( HW_R20 ),
HW_D_1( HW_F20 ),
HW_D_1( HW_R21 ),
HW_D_1( HW_F21 ),
HW_D_1( HW_EMPTY ) };
static hw_reg_set Parm8Regs[] = {
HW_D_1( HW_R16 ),
HW_D_1( HW_R17 ),
HW_D_1( HW_R18 ),
HW_D_1( HW_R19 ),
HW_D_1( HW_R20 ),
HW_D_1( HW_R21 ),
HW_D_1( HW_EMPTY ) };
static hw_reg_set Parm8Regs2[] = {
HW_D_1( HW_R17 ),
HW_D_1( HW_EMPTY ) };
static hw_reg_set Return8[] = {
HW_D_1( HW_R0 ),
HW_D_1( HW_EMPTY ) };
static hw_reg_set Parm4Regs[] = {
HW_D_1( HW_D16 ),
HW_D_1( HW_D17 ),
HW_D_1( HW_D18 ),
HW_D_1( HW_D19 ),
HW_D_1( HW_D20 ),
HW_D_1( HW_D21 ),
HW_D_1( HW_EMPTY ) };
static hw_reg_set Parm4Regs2[] = {
HW_D_1( HW_D17 ),
HW_D_1( HW_EMPTY ) };
static hw_reg_set Parm4Regs3[] = {
HW_D_1( HW_D18 ),
HW_D_1( HW_EMPTY ) };
static hw_reg_set Return4[] = {
HW_D_1( HW_D0 ),
HW_D_1( HW_EMPTY ) };
static hw_reg_set ParmFRegs[] = {
HW_D_1( HW_F16 ),
HW_D_1( HW_F17 ),
HW_D_1( HW_F18 ),
HW_D_1( HW_F19 ),
HW_D_1( HW_F20 ),
HW_D_1( HW_F21 ),
HW_D_1( HW_EMPTY ) };
static hw_reg_set ParmFRegs2[] = {
HW_D_1( HW_F17 ),
HW_D_1( HW_EMPTY ) };
static hw_reg_set ReturnD[] = {
HW_D_1( HW_F0 ),
HW_D_1( HW_EMPTY ) };
reg_list *RegSets[] = {
#undef RL
#define RL(a,b,c,d) a
#include "rl.h"
NULL
};
op_regs RegList[] = {
#undef RG
#define RG( a,b,c,d,e,f ) a,b,c,d,e
#include "rg.h"
RL_
};
static reg_set_index IsSets[] = {
RL_BYTE, /* U1*/
RL_BYTE, /* I1*/
RL_WORD, /* U2*/
RL_WORD, /* I2*/
RL_DWORD, /* U4*/
RL_DWORD, /* I4*/
RL_QWORD, /* U8*/
RL_QWORD, /* I8*/
RL_DWORD, /* CP*/
RL_DWORD, /* PT*/
RL_FLOAT, /* FS*/
RL_FLOAT, /* FD*/
RL_, /* FL*/
RL_ }; /* XX*/
/* Information for register set intersections*/
/* if sets are of different classes*/
/* intersection is empty*/
/* } else {*/
/* intersection given in square matrix for class*/
/* }*/
#define _Combine( a, b ) ((a)*RL_NUMBER_OF_SETS+(b))
extern reg_set_index RegIntersect( reg_set_index s1, reg_set_index s2 ) {
/**************************************************************************/
if( s1 == s2 ) return( s1 );
switch( _Combine( s1, s2 ) ) {
default:
if( s1 == RL_NUMBER_OF_SETS ) return( s2 );
if( s2 == RL_NUMBER_OF_SETS ) return( s1 );
return( RL_ );
}
}
extern hw_reg_set InLineParm( hw_reg_set regs, hw_reg_set used ) {
/**********************************************************************/
regs = regs;
used = used;
return( HW_EMPTY );
}
extern reg_list *ParmChoices( type_class_def class ) {
/************************************************************/
switch( class ) {
case I4:
case U4:
case CP:
case PT:
return( RegSets[ RL_PARM_4 ] );
case I8:
case U8:
case XX:
return( RegSets[ RL_PARM_8 ] );
case FS:
case FD:
case FL:
return( RegSets[ RL_PARM_F ] );
default:
_Zoiks( ZOIKS_124 );
return( NULL );
}
}
extern hw_reg_set ReturnReg( type_class_def class ) {
/*********************************************************/
switch( class ) {
case FS:
case FD:
case FL:
return( HW_F0 );
case XX:
return( HW_EMPTY );
case U1:
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?