unified MX27, MX25, MX37 trees
[karo-tx-redboot.git] / packages / hal / arm / mx37 / karo / v1_0 / src / redboot_cmds.c
1 //==========================================================================
2 //
3 //      redboot_cmds.c
4 //
5 //      Board [platform] specific RedBoot commands
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 //
13 // eCos is free software; you can redistribute it and/or modify it under
14 // the terms of the GNU General Public License as published by the Free
15 // Software Foundation; either version 2 or (at your option) any later version.
16 //
17 // eCos is distributed in the hope that it will be useful, but WITHOUT ANY
18 // WARRANTY; without even the implied warranty of MERCHANTABILITY or
19 // FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
20 // for more details.
21 //
22 // You should have received a copy of the GNU General Public License along
23 // with eCos; if not, write to the Free Software Foundation, Inc.,
24 // 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
25 //
26 // As a special exception, if other files instantiate templates or use macros
27 // or inline functions from this file, or you compile this file and link it
28 // with other works to produce a work based on this file, this file does not
29 // by itself cause the resulting work to be covered by the GNU General Public
30 // License. However the source code for this file must still be made available
31 // in accordance with section (3) of the GNU General Public License.
32 //
33 // This exception does not invalidate any other reasons why a work based on
34 // this file might be covered by the GNU General Public License.
35 //
36 // Alternative licenses for eCos may be arranged by contacting Red Hat, Inc.
37 // at http://sources.redhat.com/ecos/ecos-license/
38 // -------------------------------------------
39 //####ECOSGPLCOPYRIGHTEND####
40 //==========================================================================
41 #include <redboot.h>
42 #include <cyg/hal/hal_intr.h>
43 #include <cyg/hal/hal_cache.h>
44 #include <cyg/hal/plf_mmap.h>
45 #include <cyg/hal/karo_tx37.h>          // Platform specific hardware definitions
46
47 #ifdef CYGSEM_REDBOOT_FLASH_CONFIG
48 #include <flash_config.h>
49
50 #if (REDBOOT_IMAGE_SIZE != CYGBLD_REDBOOT_MIN_IMAGE_SIZE)
51 #error REDBOOT_IMAGE_SIZE != CYGBLD_REDBOOT_MIN_IMAGE_SIZE
52 #endif
53
54 #endif  //CYGSEM_REDBOOT_FLASH_CONFIG
55
56 #ifdef CYGPKG_IO_FLASH
57 #include <cyg/io/flash.h>
58 #endif
59
60 char HAL_PLATFORM_EXTRA[20] = "PASS x.x [x32 DDR]";
61 static void runImg(int argc, char *argv[]);
62 static void do_mem(int argc, char *argv[]);
63
64 RedBoot_cmd("mem",
65             "Set a memory location",
66             "[-h|-b] [-n] [-a <address>] <data>",
67             do_mem
68     );
69
70 RedBoot_cmd("run",
71             "Run an image at a location with MMU off",
72             "[<virtual addr>]",
73             runImg
74            );
75
76 static void do_mem(int argc, char *argv[])
77 {
78         struct option_info opts[4];
79         bool mem_half_word, mem_byte;
80         bool no_verify;
81         bool addr_set;
82         unsigned long address;
83         unsigned int value;
84         int ret;
85         init_opts(&opts[0], 'b', false, OPTION_ARG_TYPE_FLG,
86                   &mem_byte, NULL, "write a byte");
87         init_opts(&opts[1], 'h', false, OPTION_ARG_TYPE_FLG,
88                   &mem_half_word, NULL, "write a half-word");
89         init_opts(&opts[2], 'a', true, OPTION_ARG_TYPE_NUM,
90                   &address, &addr_set, "address to write to");
91         init_opts(&opts[3], 'n', false, OPTION_ARG_TYPE_FLG,
92                   &no_verify, NULL, "noverify");
93
94         ret = scan_opts(argc, argv, 1, opts, sizeof(opts) / sizeof(opts[0]),
95                         &value, OPTION_ARG_TYPE_NUM, "value to be written");
96         if (ret == 0) {
97                 return;
98         }
99         if (!addr_set) {
100                 diag_printf("** Error: '-a <address>' must be specified\n");
101                 return;
102         }
103         if (ret == argc + 1) {
104                 diag_printf("** Error: non-option argument '<value>' must be specified\n");
105                 return;
106         }
107         if (mem_byte && mem_half_word) {
108                 diag_printf("** Error: Should not specify both byte and half-word access\n");
109         } else if (mem_byte) {
110                 value &= 0xff;
111                 *(volatile cyg_uint8*)address = (cyg_uint8)value;
112                 if (no_verify) {
113                         diag_printf("  Set 0x%08lX to 0x%02X\n", address, value);
114                 } else {
115                         diag_printf("  Set 0x%08lX to 0x%02X (result 0x%02X)\n",
116                                     address, value, (int)*(cyg_uint8*)address );
117                 }
118         } else if (mem_half_word) {
119                 if (address & 1) {
120                         diag_printf("** Error: address for half-word access must be half-word aligned\n");
121                 } else {
122                         value &= 0xffff;
123                         *(volatile cyg_uint16*)address = (cyg_uint16)value;
124                         if (no_verify) {
125                                 diag_printf("  Set 0x%08lX to 0x%04X\n", address, value);
126                         } else {
127                                 diag_printf("  Set 0x%08lX to 0x%04X (result 0x%04X)\n",
128                                             address, value, (int)*(cyg_uint16*)address);
129                         }
130                 }
131         } else {
132                 if (address & 3) {
133                         diag_printf("** Error: address for word access must be word aligned\n");
134                 } else {
135                         *(volatile cyg_uint32*)address = (cyg_uint32)value;
136                         if (no_verify) {
137                                 diag_printf("  Set 0x%08lX to 0x%08X\n", address, value);
138                         } else {
139                                 diag_printf("  Set 0x%08lX to 0x%08X (result 0x%08X)\n",
140                                             address, value, (int)*(cyg_uint32*)address);
141                         }
142                 }
143         }
144 }
145
146 void launchRunImg(unsigned long addr)
147 {
148     asm volatile ("mov r12, r0;");
149     HAL_CLEAN_INVALIDATE_L2();
150     HAL_DISABLE_L2();
151     HAL_MMU_OFF();
152     asm volatile (
153                  "mov r0, #0;"
154                  "mov r1, r12;"
155                  "mov r11, #0;"
156                  "mov r12, #0;"
157                  "mrs r10, cpsr;"
158                  "bic r10, r10, #0xF0000000;"
159                  "msr cpsr_f, r10;"
160                  "mov pc, r1"
161                  );
162 }
163
164 static void runImg(int argc,char *argv[])
165 {
166         unsigned int virt_addr, phys_addr;
167
168         // Default physical entry point for Symbian
169         if (entry_address == 0xFFFFFFFF)
170                 virt_addr = 0x800000;
171         else
172                 virt_addr = entry_address;
173
174         if (!scan_opts(argc, argv, 1, 0, 0, &virt_addr,
175                        OPTION_ARG_TYPE_NUM, "virtual address"))
176                 return;
177
178         if (entry_address != 0xFFFFFFFF)
179                 diag_printf("load entry_address=0x%lx\n", entry_address);
180         HAL_VIRT_TO_PHYS_ADDRESS(virt_addr, phys_addr);
181
182         diag_printf("virt_addr=0x%x\n",virt_addr);
183         diag_printf("phys_addr=0x%x\n",phys_addr);
184
185         launchRunImg(phys_addr);
186 }
187
188 #if defined(CYGSEM_REDBOOT_FLASH_CONFIG) && defined(CYG_HAL_STARTUP_ROMRAM)
189
190 RedBoot_cmd("romupdate",
191             "Update Redboot with currently running image",
192             "",
193             romupdate
194            );
195
196 #ifdef CYGPKG_IO_FLASH
197 void romupdate(int argc, char *argv[])
198 {
199         void *err_addr, *base_addr;
200         int stat;
201
202         base_addr = (void*)(MXC_NAND_BASE_DUMMY + CYGBLD_REDBOOT_FLASH_BOOT_OFFSET);
203         diag_printf("Updating RedBoot in NAND flash\n");
204
205         // Erase area to be programmed
206         if ((stat = flash_erase(base_addr, CYGBLD_REDBOOT_MIN_IMAGE_SIZE, &err_addr)) != 0) {
207                 diag_printf("Can't erase region at %p: %s\n",
208                             err_addr, flash_errmsg(stat));
209                 return;
210         }
211         // Now program it
212         if ((stat = flash_program(base_addr, ram_end,
213                                   CYGBLD_REDBOOT_MIN_IMAGE_SIZE, &err_addr)) != 0) {
214                 diag_printf("Can't program region at %p: %s\n",
215                             err_addr, flash_errmsg(stat));
216         }
217 }
218 #endif //CYGPKG_IO_FLASH
219 #endif /* CYG_HAL_STARTUP_ROMRAM */