Subversion Repositories marca

/* This file is part of the assembler "spar" for marca.
   Copyright (C) 2007 Wolfgang Puffitsch
 
   This program is free software; you can redistribute it and/or modify it
   under the terms of the GNU Library General Public License as published
   by the Free Software Foundation; either version 2, or (at your option)
   any later version.
 
   This program 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
   Library General Public License for more details.
 
   You should have received a copy of the GNU Library General Public
   License along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA */
 
#include <stdint.h>
 
#include <stdio.h>
 
#include "spar.h"
#include "ui.h"
#include "code.h"
#include "exprs.h"
#include "fixes.h"
#include "optab.h"
#include "segtab.h"
#include "symtab.h"
 
int fix_operands(struct seg *seg, uint32_t pos)
{
  uint8_t count = get_arg_count(seg, pos);
  uint8_t index;
  int retval = 0;
 
  for (index = 0; index < count; index++)
    {
      if (get_arg_type(seg, pos, index) == 'a')
	{
	  set_expr(seg, pos, index,
		   xsprintf("(%s)-%d", get_expr(seg, pos, index), pos));
	}
    }
 
  return retval;
}
 
int fix_code(struct seg *seg, uint32_t pos)
{
  uint8_t count = get_arg_count(seg, pos);
  uint8_t index;
  uint16_t data;
 
  data = get_op_code(seg, pos);
  for (index = 0; index < count; index++)
    {
      switch (get_arg_type(seg, pos, index))
	{
	case 'r': 
	  data |= (get_regnum(seg, pos, index)
		   & ((uint16_t)0xFFFF >> (16-get_arg_width(seg, pos, index))))
				       << get_arg_offset(seg, pos, index);
	  break;
	case 'n':
	case 'a':
	  data |= (expr_evaluate(get_expr(seg, pos, index))
		   & ((uint16_t)0xFFFF >> (16-get_arg_width(seg, pos, index))))
				       << get_arg_offset(seg, pos, index);
	  break;
	}
    }
  set_code(seg, pos, data);
 
  return 0;
}