git.gag.com Git - fw/sdcc/blob - sim/ucsim/cmd.src/bp.cc

   1 /*
   2  * Simulator of microcontrollers (cmd.src/bp.cc)
   3  *
   4  * Copyright (C) 1999,99 Drotos Daniel, Talker Bt.
   5  *
   6  * To contact author send email to drdani@mazsola.iit.uni-miskolc.hu
   7  *
   8  */
   9
  10 /* This file is part of microcontroller simulator: ucsim.
  11
  12 UCSIM is free software; you can redistribute it and/or modify
  13 it under the terms of the GNU General Public License as published by
  14 the Free Software Foundation; either version 2 of the License, or
  15 (at your option) any later version.
  16
  17 UCSIM is distributed in the hope that it will be useful,
  18 but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 GNU General Public License for more details.
  21
  22 You should have received a copy of the GNU General Public License
  23 along with UCSIM; see the file COPYING.  If not, write to the Free
  24 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  25 02111-1307, USA. */
  26 /*@1@*/
  27
  28 #include "ddconfig.h"
  29
  30 #include "stdlib.h"
  31
  32 // sim
  33 #include "brkcl.h"
  34 #include "argcl.h"
  35 #include "simcl.h"
  36
  37 // cmd
  38 #include "cmdsetcl.h"
  39 #include "bpcl.h"
  40
  41
  42 /*
  43  * BREAK command
  44  */
  45
  46 //int
  47 //cl_break_cmd::do_work(class cl_sim *sim,
  48 //                    class cl_cmdline *cmdline, class cl_console *con)
  49 COMMAND_DO_WORK_UC(cl_break_cmd)
  50 {
  51   t_addr addr= 0;
  52   int hit= 1;
  53   char op;
  54   class cl_address_space *mem;
  55   class cl_cmd_arg *params[4]= { cmdline->param(0),
  56                                  cmdline->param(1),
  57                                  cmdline->param(2),
  58                                  cmdline->param(3) };
  59
  60   if (cmdline->syntax_match(uc, ADDRESS)) {
  61     addr= params[0]->value.address;
  62     hit= 1;
  63     do_fetch(uc, addr, hit, con);
  64   }
  65   else if (cmdline->syntax_match(uc, ADDRESS NUMBER)) {
  66     addr= params[0]->value.address;
  67     hit= params[1]->value.number;
  68     do_fetch(uc, addr, hit, con);
  69   }
  70   else if (cmdline->syntax_match(uc, MEMORY STRING ADDRESS)) {
  71     mem= params[0]->value.memory.address_space;
  72     op= *(params[1]->get_svalue());
  73     addr= params[2]->value.address;
  74     hit= 1;
  75     do_event(uc, mem, op, addr, hit, con);
  76   }
  77   else if (cmdline->syntax_match(uc, MEMORY STRING ADDRESS NUMBER)) {
  78     mem= params[0]->value.memory.address_space;
  79     op= *(params[1]->get_svalue());
  80     addr= params[2]->value.address;
  81     hit= params[3]->value.number;
  82     do_event(uc, mem, op, addr, hit, con);
  83   }
  84   else
  85     {
  86       con->dd_printf("%s\n", short_help?short_help:"Error: wrong syntax\n");
  87       return(DD_FALSE);
  88     }
  89   return(DD_FALSE);
  90 }
  91
  92 void
  93 cl_break_cmd::do_fetch(class cl_uc *uc,
  94                        t_addr addr, int hit, class cl_console *con)
  95 {
  96   if (hit > 99999)
  97     {
  98       con->dd_printf("Hit value %d is too big.\n", hit);
  99       return;
 100     }
 101   if (uc->fbrk->bp_at(addr))
 102     con->dd_printf("Breakpoint at 0x%06x is already set.\n", addr);
 103   else
 104     {
 105       class cl_brk *b= new cl_fetch_brk(uc->address_space(MEM_ROM_ID),
 106                                         uc->make_new_brknr(),
 107                                         addr, perm, hit);
 108       b->init();
 109       uc->fbrk->add_bp(b);
 110       char *s= uc->disass(addr, NULL);
 111       con->dd_printf("Breakpoint %d at 0x%06x: %s\n", b->nr, addr, s);
 112       free(s);
 113     }
 114 }
 115
 116 void
 117 cl_break_cmd::do_event(class cl_uc *uc,
 118                        class cl_address_space *mem,
 119                        char op, t_addr addr, int hit,
 120                        class cl_console *con)
 121 {
 122   class cl_ev_brk *b= NULL;
 123
 124   b= uc->mk_ebrk(perm, mem, op, addr, hit);
 125   if (b)
 126     uc->ebrk->add_bp(b);
 127   else
 128     con->dd_printf("Couldn't make event breakpoint\n");
 129 }
 130
 131
 132 /*
 133  * CLEAR address
 134  */
 135
 136 //int
 137 //cl_clear_cmd::do_work(class cl_sim *sim,
 138 //                    class cl_cmdline *cmdline, class cl_console *con)
 139 COMMAND_DO_WORK_UC(cl_clear_cmd)
 140 {
 141   int idx;
 142   class cl_brk *brk= uc->fbrk->get_bp(uc->PC, &idx);
 143
 144   if (cmdline->param(0) == 0)
 145     {
 146       if (!brk)
 147         {
 148           con->dd_printf("No breakpoint at this address.\n");
 149           return(0);
 150         }
 151       uc->fbrk->del_bp(uc->PC);
 152       return(0);
 153     }
 154
 155   int i= 0;
 156   class cl_cmd_arg *param;
 157   while ((param= cmdline->param(i++)))
 158     {
 159       t_addr addr;
 160       if (!param->as_address(uc))
 161         return(DD_FALSE);
 162       addr= param->value.address;
 163       if (uc->fbrk->bp_at(addr) == 0)
 164         con->dd_printf("No breakpoint at 0x%06x\n", addr);
 165       else
 166         uc->fbrk->del_bp(addr);
 167     }
 168
 169   return(DD_FALSE);
 170 }
 171
 172
 173 /*
 174  * DELETE nr nr ...
 175  */
 176
 177 //int
 178 //cl_delete_cmd::do_work(class cl_sim *sim,
 179 //                     class cl_cmdline *cmdline, class cl_console *con)
 180 COMMAND_DO_WORK_UC(cl_delete_cmd)
 181 {
 182   if (cmdline->param(0) == 0)
 183     {
 184       // delete all
 185       uc->remove_all_breaks();
 186     }
 187   else
 188     {
 189       int i= 0;
 190       class cl_cmd_arg *param;
 191       while ((param= cmdline->param(i++)))
 192         {
 193           long num;
 194           if (param->get_ivalue(&num))
 195             {
 196               if (!uc->rm_brk(num))
 197                 con->dd_printf("Error\n");
 198             }
 199         }
 200     }
 201   return(DD_FALSE);
 202 }
 203
 204
 205 /* End of cmd.src/bp.cc */