Subversion Repositories thor

// ============================================================================
//        __
//   \\__/ o\    (C) 2012-2018  Robert Finch, Waterloo
//    \  __ /    All rights reserved.
//     \/_//     robfinch<remove>@finitron.ca
//       ||
//
// CC64 - 'C' derived language compiler
//  - 64 bit CPU
//
// This source file is free software: you can redistribute it and/or modify 
// it under the terms of the GNU Lesser General Public License as published 
// by the Free Software Foundation, either version 3 of the License, or     
// (at your option) any later version.                                      
//                                                                          
// This source file is distributed in the hope that it will be useful,      
// but WITHOUT ANY WARRANTY; without even the implied warranty of           
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the            
// GNU General Public License for more details.                             
//                                                                          
// You should have received a copy of the GNU General Public License        
// along with this program.  If not, see <http://www.gnu.org/licenses/>.    
//                                                                          
// ============================================================================
//
#include "stdafx.h"
 
extern char *rtrim(char *);
extern int caselit(scase *casetab,int64_t);
 
Operand *makereg(int r)
{
	Operand *ap;
    ap = allocOperand();
    ap->mode = am_reg;
    ap->preg = r;
    return (ap);
}
 
Operand *makevreg(int r)
{
	Operand *ap;
    ap = allocOperand();
    ap->mode = am_reg;
    ap->preg = r;
	ap->type = stdvector.GetIndex();
    return (ap);
}
 
Operand *makevmreg(int r)
{
	Operand *ap;
    ap = allocOperand();
    ap->mode = am_vmreg;
    ap->preg = r;
    return (ap);
}
 
Operand *makefpreg(int r)
{
	Operand *ap;
    ap = allocOperand();
    ap->mode = am_fpreg;
    ap->preg = r;
    ap->type = stddouble.GetIndex();
    return (ap);
}
 
Operand *makesreg(int r)
{
	Operand *ap;
    ap = allocOperand();
    ap->mode = am_sreg;
    ap->preg = r;
    return (ap);
}
 
Operand *makebreg(int r)
{
	Operand *ap;
    ap = allocOperand();
    ap->mode = am_breg;
    ap->preg = r;
    return (ap);
}
 
/*
 *      generate the mask address structure.
 */
Operand *make_mask(int mask)
{
	Operand *ap;
    ap = allocOperand();
    ap->mode = am_mask;
    ap->offset = (ENODE *)mask;
    return (ap);
}
 
/*
 *      make a direct reference to an immediate value.
 */
Operand *make_direct(int i)
{
	return make_offset(makeinode(en_icon,i));
}
 
Operand *make_indexed2(int lab, int i)
{
	Operand *ap;
    ENODE *ep;
    ep = allocEnode();
    ep->nodetype = en_clabcon;
    ep->i = lab;
    ap = allocOperand();
	ap->mode = am_indx;
	ap->preg = i;
    ap->offset = ep;
	ap->isUnsigned = TRUE;
    return (ap);
}
 
//
// Generate a direct reference to a string label.
//
Operand *make_strlab(std::string s)
{
	Operand *ap;
    ap = allocOperand();
    ap->mode = am_direct;
    ap->offset = makesnode(en_nacon,new std::string(s),new std::string(s),-1);
    return (ap);
}