packages/redboot/v2_0/src/mfill.c

   1 //==========================================================================
   2 //
   3 //      mfill.c
   4 //
   5 //      RedBoot memory fill (mfill) routine
   6 //
   7 //==========================================================================
   8 //####ECOSGPLCOPYRIGHTBEGIN####
   9 // -------------------------------------------
  10 // This file is part of eCos, the Embedded Configurable Operating System.
  11 // Copyright (C) 1998, 1999, 2000, 2001, 2002 Red Hat, Inc.
  12 // Copyright (C) 2002 Gary Thomas
  13 //
  14 // eCos is free software; you can redistribute it and/or modify it under
  15 // the terms of the GNU General Public License as published by the Free
  16 // Software Foundation; either version 2 or (at your option) any later version.
  17 //
  18 // eCos is distributed in the hope that it will be useful, but WITHOUT ANY
  19 // WARRANTY; without even the implied warranty of MERCHANTABILITY or
  20 // FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  21 // for more details.
  22 //
  23 // You should have received a copy of the GNU General Public License along
  24 // with eCos; if not, write to the Free Software Foundation, Inc.,
  25 // 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
  26 //
  27 // As a special exception, if other files instantiate templates or use macros
  28 // or inline functions from this file, or you compile this file and link it
  29 // with other works to produce a work based on this file, this file does not
  30 // by itself cause the resulting work to be covered by the GNU General Public
  31 // License. However the source code for this file must still be made available
  32 // in accordance with section (3) of the GNU General Public License.
  33 //
  34 // This exception does not invalidate any other reasons why a work based on
  35 // this file might be covered by the GNU General Public License.
  36 //
  37 // Alternative licenses for eCos may be arranged by contacting Red Hat, Inc.
  38 // at http://sources.redhat.com/ecos/ecos-license/
  39 // -------------------------------------------
  40 //####ECOSGPLCOPYRIGHTEND####
  41 //==========================================================================
  42 //#####DESCRIPTIONBEGIN####
  43 //
  44 // Author(s):    gthomas
  45 // Contributors: gthomas
  46 // Date:         2002-08-06
  47 // Purpose:
  48 // Description:
  49 //
  50 // This code is part of RedBoot (tm).
  51 //
  52 //####DESCRIPTIONEND####
  53 //
  54 //==========================================================================
  55
  56 #include <redboot.h>
  57
  58 RedBoot_cmd("mfill",
  59             "Fill a block of memory with a pattern",
  60             "-b <location> -l <length> -p <pattern> [-1|-2|-4]",
  61             do_mfill
  62     );
  63
  64 void
  65 do_mfill(int argc, char *argv[])
  66 {
  67     // Fill a region of memory with a pattern
  68     struct option_info opts[6];
  69     unsigned long base, pat;
  70     long len;
  71     bool base_set, len_set, pat_set;
  72     bool set_32bit, set_16bit, set_8bit;
  73
  74     init_opts(&opts[0], 'b', true, OPTION_ARG_TYPE_NUM,
  75               (void *)&base, (bool *)&base_set, "base address");
  76     init_opts(&opts[1], 'l', true, OPTION_ARG_TYPE_NUM,
  77               (void *)&len, (bool *)&len_set, "length");
  78     init_opts(&opts[2], 'p', true, OPTION_ARG_TYPE_NUM,
  79               (void *)&pat, (bool *)&pat_set, "pattern");
  80     init_opts(&opts[3], '4', false, OPTION_ARG_TYPE_FLG,
  81               (void *)&set_32bit, (bool *)0, "fill 32 bit units");
  82     init_opts(&opts[4], '2', false, OPTION_ARG_TYPE_FLG,
  83               (void *)&set_16bit, (bool *)0, "fill 16 bit units");
  84     init_opts(&opts[5], '1', false, OPTION_ARG_TYPE_FLG,
  85               (void *)&set_8bit, (bool *)0, "fill 8 bit units");
  86     if (!scan_opts(argc, argv, 1, opts, 6, 0, 0, "")) {
  87         return;
  88     }
  89     if (!base_set || !len_set) {
  90         diag_printf("usage: mfill -b <addr> -l <length> [-p <pattern>] [-1|-2|-4]\n");
  91         return;
  92     }
  93     if (!pat_set) {
  94         pat = 0;
  95     }
  96     // No checks here
  97
  98     if (set_8bit) {
  99         cyg_uint8 *p = (cyg_uint8 *)base;
 100         while ((len -= sizeof(cyg_uint8)) >= 0)
 101             *p++ = (cyg_uint8)pat;
 102     } else if (set_16bit) {
 103         cyg_uint16 *p = (cyg_uint16 *)base;
 104         while ((len -= sizeof(cyg_uint16)) >= 0)
 105             *p++ = (cyg_uint16)pat;
 106     } else {
 107         cyg_uint32 *p = (cyg_uint32 *)base;
 108         while ((len -= sizeof(cyg_uint32)) >= 0)
 109             *p++ = (cyg_uint32)pat;
 110     }
 111
 112 }
 113