1 /* Simulator for Analog Devices Blackfin processors.
3 Copyright (C) 2005-2021 Free Software Foundation, Inc.
4 Contributed by Analog Devices, Inc.
6 This file is part of simulators.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program. If not, see <http://www.gnu.org/licenses/>. */
21 /* This must come before any other includes. */
33 #include "portability.h"
34 #include "sim/callback.h"
35 #include "gdb/signals.h"
37 #include "sim-syscall.h"
40 #include "targ-vals.h"
42 /* The numbers here do not matter. They just need to be unique. They also
43 need not be static across releases -- they're used internally only. The
44 mapping from the Linux ABI to the CB values is in linux-targ-map.h. */
45 #define CB_SYS_ioctl 201
46 #define CB_SYS_mmap2 202
47 #define CB_SYS_munmap 203
48 #define CB_SYS_dup2 204
49 #define CB_SYS_getuid 205
50 #define CB_SYS_getuid32 206
51 #define CB_SYS_getgid 207
52 #define CB_SYS_getgid32 208
53 #define CB_SYS_setuid 209
54 #define CB_SYS_setuid32 210
55 #define CB_SYS_setgid 211
56 #define CB_SYS_setgid32 212
57 #define CB_SYS_pread 213
58 #define CB_SYS__llseek 214
59 #define CB_SYS_getcwd 215
60 #define CB_SYS_stat64 216
61 #define CB_SYS_lstat64 217
62 #define CB_SYS_fstat64 218
63 #define CB_SYS_ftruncate64 219
64 #define CB_SYS_gettimeofday 220
65 #define CB_SYS_access 221
66 #include "linux-targ-map.h"
67 #include "linux-fixed-code.h"
69 #include "elf/common.h"
70 #include "elf/external.h"
71 #include "elf/internal.h"
75 #include "dv-bfin_cec.h"
76 #include "dv-bfin_mmu.h"
78 static const char cb_linux_stat_map_32
[] =
79 /* Linux kernel 32bit layout: */
80 "st_dev,2:space,2:st_ino,4:st_mode,2:st_nlink,2:st_uid,2:st_gid,2:st_rdev,2:"
81 "space,2:st_size,4:st_blksize,4:st_blocks,4:st_atime,4:st_atimensec,4:"
82 "st_mtime,4:st_mtimensec,4:st_ctime,4:st_ctimensec,4:space,4:space,4";
83 /* uClibc public ABI 32bit layout:
84 "st_dev,8:space,2:space,2:st_ino,4:st_mode,4:st_nlink,4:st_uid,4:st_gid,4:"
85 "st_rdev,8:space,2:space,2:st_size,4:st_blksiez,4:st_blocks,4:st_atime,4:"
86 "st_atimensec,4:st_mtime,4:st_mtimensec,4:st_ctime,4:st_ctimensec,4:space,4:"
88 static const char cb_linux_stat_map_64
[] =
89 "st_dev,8:space,4:space,4:st_mode,4:st_nlink,4:st_uid,4:st_gid,4:st_rdev,8:"
90 "space,4:st_size,8:st_blksize,4:st_blocks,8:st_atime,4:st_atimensec,4:"
91 "st_mtime,4:st_mtimensec,4:st_ctime,4:st_ctimensec,4:st_ino,8";
92 static const char cb_libgloss_stat_map_32
[] =
93 "st_dev,2:st_ino,2:st_mode,4:st_nlink,2:st_uid,2:st_gid,2:st_rdev,2:"
94 "st_size,4:st_atime,4:space,4:st_mtime,4:space,4:st_ctime,4:"
95 "space,4:st_blksize,4:st_blocks,4:space,8";
96 static const char *stat_map_32
, *stat_map_64
;
98 /* Simulate a monitor trap, put the result into r0 and errno into r1
99 return offset by which to adjust pc. */
102 bfin_syscall (SIM_CPU
*cpu
)
104 SIM_DESC sd
= CPU_STATE (cpu
);
105 char * const *argv
= (void *)STATE_PROG_ARGV (sd
);
106 host_callback
*cb
= STATE_CALLBACK (sd
);
110 char _tbuf
[1024 * 3], *tbuf
= _tbuf
, tstr
[1024];
113 CB_SYSCALL_INIT (&sc
);
115 if (STATE_ENVIRONMENT (sd
) == USER_ENVIRONMENT
)
119 sc
.arg1
= args
[0] = DREG (0);
120 sc
.arg2
= args
[1] = DREG (1);
121 sc
.arg3
= args
[2] = DREG (2);
122 sc
.arg4
= args
[3] = DREG (3);
123 /*sc.arg5 =*/ args
[4] = DREG (4);
124 /*sc.arg6 =*/ args
[5] = DREG (5);
128 /* libgloss syscall. */
130 sc
.arg1
= args
[0] = GET_LONG (DREG (0));
131 sc
.arg2
= args
[1] = GET_LONG (DREG (0) + 4);
132 sc
.arg3
= args
[2] = GET_LONG (DREG (0) + 8);
133 sc
.arg4
= args
[3] = GET_LONG (DREG (0) + 12);
134 /*sc.arg5 =*/ args
[4] = GET_LONG (DREG (0) + 16);
135 /*sc.arg6 =*/ args
[5] = GET_LONG (DREG (0) + 20);
139 sc
.read_mem
= sim_syscall_read_mem
;
140 sc
.write_mem
= sim_syscall_write_mem
;
142 /* Common cb_syscall() handles most functions. */
143 switch (cb_target_to_host_syscall (cb
, sc
.func
))
146 tbuf
+= sprintf (tbuf
, "exit(%i)", args
[0]);
147 sim_engine_halt (sd
, cpu
, NULL
, PCREG
, sim_exited
, sc
.arg1
);
151 tbuf
+= sprintf (tbuf
, "argc()");
152 sc
.result
= countargv ((char **)argv
);
156 tbuf
+= sprintf (tbuf
, "argnlen(%u)", args
[0]);
157 if (sc
.arg1
< countargv ((char **)argv
))
158 sc
.result
= strlen (argv
[sc
.arg1
]);
165 tbuf
+= sprintf (tbuf
, "argn(%u)", args
[0]);
166 if (sc
.arg1
< countargv ((char **)argv
))
168 const char *argn
= argv
[sc
.arg1
];
169 int len
= strlen (argn
);
170 int written
= sc
.write_mem (cb
, &sc
, sc
.arg2
, argn
, len
+ 1);
171 if (written
== len
+ 1)
182 case CB_SYS_gettimeofday
:
184 struct timeval _tv
, *tv
= &_tv
;
185 struct timezone _tz
, *tz
= &_tz
;
187 tbuf
+= sprintf (tbuf
, "gettimeofday(%#x, %#x)", args
[0], args
[1]);
193 sc
.result
= gettimeofday (tv
, tz
);
202 sc
.write_mem (cb
, &sc
, sc
.arg1
, (void *)&t
, 4);
204 sc
.write_mem (cb
, &sc
, sc
.arg1
+ 4, (void *)&t
, 4);
209 t
= tz
->tz_minuteswest
;
210 sc
.write_mem (cb
, &sc
, sc
.arg1
, (void *)&t
, 4);
212 sc
.write_mem (cb
, &sc
, sc
.arg1
+ 4, (void *)&t
, 4);
221 /* XXX: hack just enough to get basic stdio w/uClibc ... */
222 tbuf
+= sprintf (tbuf
, "ioctl(%i, %#x, %u)", args
[0], args
[1], args
[2]);
223 if (sc
.arg2
== 0x5401)
225 sc
.result
= !isatty (sc
.arg1
);
231 sc
.errcode
= TARGET_EINVAL
;
237 static bu32 heap
= BFIN_DEFAULT_MEM_SIZE
/ 2;
240 tbuf
+= sprintf (tbuf
, "mmap2(%#x, %u, %#x, %#x, %i, %u)",
241 args
[0], args
[1], args
[2], args
[3], args
[4], args
[5]);
245 if (sc
.arg4
& 0x20 /*MAP_ANONYMOUS*/)
246 /* XXX: We don't handle zeroing, but default is all zeros. */;
247 else if (args
[4] >= MAX_CALLBACK_FDS
)
248 sc
.errcode
= TARGET_ENOSYS
;
252 char *data
= xmalloc (sc
.arg2
);
254 /* XXX: Should add a cb->pread. */
255 if (pread (cb
->fdmap
[args
[4]], data
, sc
.arg2
, args
[5] << 12) == sc
.arg2
)
256 sc
.write_mem (cb
, &sc
, heap
, data
, sc
.arg2
);
258 sc
.errcode
= TARGET_EINVAL
;
262 sc
.errcode
= TARGET_ENOSYS
;
274 /* Keep it page aligned. */
275 heap
= align_up (heap
, 4096);
281 /* XXX: meh, just lie for mmap(). */
282 tbuf
+= sprintf (tbuf
, "munmap(%#x, %u)", args
[0], args
[1]);
287 tbuf
+= sprintf (tbuf
, "dup2(%i, %i)", args
[0], args
[1]);
288 if (sc
.arg1
>= MAX_CALLBACK_FDS
|| sc
.arg2
>= MAX_CALLBACK_FDS
)
291 sc
.errcode
= TARGET_EINVAL
;
295 sc
.result
= dup2 (cb
->fdmap
[sc
.arg1
], cb
->fdmap
[sc
.arg2
]);
301 tbuf
+= sprintf (tbuf
, "llseek(%i, %u, %u, %#x, %u)",
302 args
[0], args
[1], args
[2], args
[3], args
[4]);
303 sc
.func
= TARGET_LINUX_SYS_lseek
;
307 sc
.errcode
= TARGET_EINVAL
;
313 cb_syscall (cb
, &sc
);
317 sc
.write_mem (cb
, &sc
, args
[3], (void *)&sc
.result
, 4);
318 sc
.write_mem (cb
, &sc
, args
[3] + 4, (void *)&z
, 4);
323 /* XXX: Should add a cb->pread. */
325 tbuf
+= sprintf (tbuf
, "pread(%i, %#x, %u, %i)",
326 args
[0], args
[1], args
[2], args
[3]);
327 if (sc
.arg1
>= MAX_CALLBACK_FDS
)
330 sc
.errcode
= TARGET_EINVAL
;
334 long old_pos
, read_result
, read_errcode
;
336 /* Get current filepos. */
337 sc
.func
= TARGET_LINUX_SYS_lseek
;
340 cb_syscall (cb
, &sc
);
345 /* Move to the new pos. */
346 sc
.func
= TARGET_LINUX_SYS_lseek
;
349 cb_syscall (cb
, &sc
);
354 sc
.func
= TARGET_LINUX_SYS_read
;
357 cb_syscall (cb
, &sc
);
358 read_result
= sc
.result
;
359 read_errcode
= sc
.errcode
;
361 /* Move back to the old pos. */
362 sc
.func
= TARGET_LINUX_SYS_lseek
;
365 cb_syscall (cb
, &sc
);
367 sc
.result
= read_result
;
368 sc
.errcode
= read_errcode
;
373 tbuf
+= sprintf (tbuf
, "getcwd(%#x, %u)", args
[0], args
[1]);
375 p
= alloca (sc
.arg2
);
376 if (getcwd (p
, sc
.arg2
) == NULL
)
379 sc
.errcode
= TARGET_EINVAL
;
383 sc
.write_mem (cb
, &sc
, sc
.arg1
, p
, sc
.arg2
);
389 if (cb_get_string (cb
, &sc
, tstr
, sizeof (tstr
), args
[0]))
390 strcpy (tstr
, "???");
391 tbuf
+= sprintf (tbuf
, "stat64(%#x:\"%s\", %u)", args
[0], tstr
, args
[1]);
392 cb
->stat_map
= stat_map_64
;
393 sc
.func
= TARGET_LINUX_SYS_stat
;
394 cb_syscall (cb
, &sc
);
395 cb
->stat_map
= stat_map_32
;
398 if (cb_get_string (cb
, &sc
, tstr
, sizeof (tstr
), args
[0]))
399 strcpy (tstr
, "???");
400 tbuf
+= sprintf (tbuf
, "lstat64(%#x:\"%s\", %u)", args
[0], tstr
, args
[1]);
401 cb
->stat_map
= stat_map_64
;
402 sc
.func
= TARGET_LINUX_SYS_lstat
;
403 cb_syscall (cb
, &sc
);
404 cb
->stat_map
= stat_map_32
;
407 tbuf
+= sprintf (tbuf
, "fstat64(%#x, %u)", args
[0], args
[1]);
408 cb
->stat_map
= stat_map_64
;
409 sc
.func
= TARGET_LINUX_SYS_fstat
;
410 cb_syscall (cb
, &sc
);
411 cb
->stat_map
= stat_map_32
;
414 case CB_SYS_ftruncate64
:
415 tbuf
+= sprintf (tbuf
, "ftruncate64(%u, %u)", args
[0], args
[1]);
416 sc
.func
= TARGET_LINUX_SYS_ftruncate
;
417 cb_syscall (cb
, &sc
);
421 case CB_SYS_getuid32
:
422 tbuf
+= sprintf (tbuf
, "getuid()");
423 sc
.result
= getuid ();
426 case CB_SYS_getgid32
:
427 tbuf
+= sprintf (tbuf
, "getgid()");
428 sc
.result
= getgid ();
432 case CB_SYS_setuid32
:
433 tbuf
+= sprintf (tbuf
, "setuid(%u)", args
[0]);
434 sc
.result
= setuid (sc
.arg1
);
438 case CB_SYS_setgid32
:
439 tbuf
+= sprintf (tbuf
, "setgid(%u)", args
[0]);
440 sc
.result
= setgid (sc
.arg1
);
444 tbuf
+= sprintf (tbuf
, "kill(%u, %i)", args
[0], args
[1]);
445 /* Only let the app kill itself. */
446 if (sc
.arg1
!= getpid ())
449 sc
.errcode
= TARGET_EPERM
;
454 sc
.result
= kill (sc
.arg1
, sc
.arg2
);
458 sc
.errcode
= TARGET_ENOSYS
;
464 if (cb_get_string (cb
, &sc
, tstr
, sizeof (tstr
), args
[0]))
465 strcpy (tstr
, "???");
466 tbuf
+= sprintf (tbuf
, "open(%#x:\"%s\", %#x, %o)",
467 args
[0], tstr
, args
[1], args
[2]);
470 tbuf
+= sprintf (tbuf
, "close(%i)", args
[0]);
473 tbuf
+= sprintf (tbuf
, "read(%i, %#x, %u)", args
[0], args
[1], args
[2]);
476 if (cb_get_string (cb
, &sc
, tstr
, sizeof (tstr
), args
[1]))
477 strcpy (tstr
, "???");
478 tbuf
+= sprintf (tbuf
, "write(%i, %#x:\"%s\", %u)",
479 args
[0], args
[1], tstr
, args
[2]);
482 tbuf
+= sprintf (tbuf
, "lseek(%i, %i, %i)", args
[0], args
[1], args
[2]);
485 if (cb_get_string (cb
, &sc
, tstr
, sizeof (tstr
), args
[0]))
486 strcpy (tstr
, "???");
487 tbuf
+= sprintf (tbuf
, "unlink(%#x:\"%s\")", args
[0], tstr
);
489 case CB_SYS_truncate
:
490 if (cb_get_string (cb
, &sc
, tstr
, sizeof (tstr
), args
[0]))
491 strcpy (tstr
, "???");
492 tbuf
+= sprintf (tbuf
, "truncate(%#x:\"%s\", %i)", args
[0], tstr
, args
[1]);
494 case CB_SYS_ftruncate
:
495 tbuf
+= sprintf (tbuf
, "ftruncate(%i, %i)", args
[0], args
[1]);
498 if (cb_get_string (cb
, &sc
, tstr
, sizeof (tstr
), args
[0]))
499 strcpy (tstr
, "???");
500 tbuf
+= sprintf (tbuf
, "rename(%#x:\"%s\", ", args
[0], tstr
);
501 if (cb_get_string (cb
, &sc
, tstr
, sizeof (tstr
), args
[1]))
502 strcpy (tstr
, "???");
503 tbuf
+= sprintf (tbuf
, "%#x:\"%s\")", args
[1], tstr
);
506 if (cb_get_string (cb
, &sc
, tstr
, sizeof (tstr
), args
[0]))
507 strcpy (tstr
, "???");
508 tbuf
+= sprintf (tbuf
, "stat(%#x:\"%s\", %#x)", args
[0], tstr
, args
[1]);
511 tbuf
+= sprintf (tbuf
, "fstat(%i, %#x)", args
[0], args
[1]);
514 if (cb_get_string (cb
, &sc
, tstr
, sizeof (tstr
), args
[0]))
515 strcpy (tstr
, "???");
516 tbuf
+= sprintf (tbuf
, "lstat(%#x:\"%s\", %#x)", args
[0], tstr
, args
[1]);
519 tbuf
+= sprintf (tbuf
, "pipe(%#x, %#x)", args
[0], args
[1]);
523 tbuf
+= sprintf (tbuf
, "???_%i(%#x, %#x, %#x, %#x, %#x, %#x)", sc
.func
,
524 args
[0], args
[1], args
[2], args
[3], args
[4], args
[5]);
526 cb_syscall (cb
, &sc
);
532 cb
->last_errno
= errno
;
533 sc
.errcode
= cb
->get_errno (cb
);
537 TRACE_EVENTS (cpu
, "syscall_%i(%#x, %#x, %#x, %#x, %#x, %#x) = %li (error = %i)",
538 sc
.func
, args
[0], args
[1], args
[2], args
[3], args
[4], args
[5],
539 sc
.result
, sc
.errcode
);
541 tbuf
+= sprintf (tbuf
, " = ");
542 if (STATE_ENVIRONMENT (sd
) == USER_ENVIRONMENT
)
546 tbuf
+= sprintf (tbuf
, "-1 (error = %i)", sc
.errcode
);
547 if (sc
.errcode
== cb_host_to_target_errno (cb
, ENOSYS
))
549 sim_io_eprintf (sd
, "bfin-sim: %#x: unimplemented syscall %i\n",
552 SET_DREG (0, -sc
.errcode
);
557 tbuf
+= sprintf (tbuf
, "%#lx", sc
.result
);
559 tbuf
+= sprintf (tbuf
, "%lu", sc
.result
);
560 SET_DREG (0, sc
.result
);
565 tbuf
+= sprintf (tbuf
, "%lu (error = %i)", sc
.result
, sc
.errcode
);
566 SET_DREG (0, sc
.result
);
567 SET_DREG (1, sc
.result2
);
568 SET_DREG (2, sc
.errcode
);
571 TRACE_SYSCALL (cpu
, "%s", _tbuf
);
574 /* Execute a single instruction. */
577 step_once (SIM_CPU
*cpu
)
579 SIM_DESC sd
= CPU_STATE (cpu
);
580 bu32 insn_len
, oldpc
= PCREG
;
584 if (TRACE_ANY_P (cpu
))
585 trace_prefix (sd
, cpu
, NULL_CIA
, oldpc
, TRACE_LINENUM_P (cpu
),
586 NULL
, 0, " "); /* Use a space for gcc warnings. */
588 TRACE_DISASM (cpu
, oldpc
);
590 /* Handle hardware single stepping when lower than EVT3, and when SYSCFG
591 has already had the SSSTEP bit enabled. */
593 if (STATE_ENVIRONMENT (sd
) == OPERATING_ENVIRONMENT
594 && (SYSCFGREG
& SYSCFG_SSSTEP
))
596 int ivg
= cec_get_ivg (cpu
);
597 if (ivg
== -1 || ivg
> 3)
602 /* XXX: Is this what happens on the hardware ? */
603 if (cec_get_ivg (cpu
) == EVT_EMU
)
604 cec_return (cpu
, EVT_EMU
);
607 BFIN_CPU_STATE
.did_jump
= false;
609 insn_len
= interp_insn_bfin (cpu
, oldpc
);
611 /* If we executed this insn successfully, then we always decrement
612 the loop counter. We don't want to update the PC though if the
613 last insn happened to be a change in code flow (jump/etc...). */
614 if (!BFIN_CPU_STATE
.did_jump
)
615 SET_PCREG (hwloop_get_next_pc (cpu
, oldpc
, insn_len
));
616 for (i
= 1; i
>= 0; --i
)
617 if (LCREG (i
) && oldpc
== LBREG (i
))
619 SET_LCREG (i
, LCREG (i
) - 1);
624 ++ PROFILE_TOTAL_INSN_COUNT (CPU_PROFILE_DATA (cpu
));
626 /* Handle hardware single stepping only if we're still lower than EVT3.
627 XXX: May not be entirely correct wrt EXCPT insns. */
630 int ivg
= cec_get_ivg (cpu
);
631 if (ivg
== -1 || ivg
> 3)
634 cec_exception (cpu
, VEC_STEP
);
642 sim_engine_run (SIM_DESC sd
,
643 int next_cpu_nr
, /* ignore */
644 int nr_cpus
, /* ignore */
645 int siggnal
) /* ignore */
650 SIM_ASSERT (STATE_MAGIC (sd
) == SIM_MAGIC_NUMBER
);
652 cpu
= STATE_CPU (sd
, 0);
657 /* Process any events -- can't use tickn because it may
658 advance right over the next event. */
659 for (ticks
= 0; ticks
< CYCLE_DELAY
; ++ticks
)
660 if (sim_events_tick (sd
))
661 sim_events_process (sd
);
665 /* Cover function of sim_state_free to free the cpu buffers as well. */
668 free_state (SIM_DESC sd
)
670 if (STATE_MODULES (sd
) != NULL
)
671 sim_module_uninstall (sd
);
672 sim_cpu_free_all (sd
);
676 /* Create an instance of the simulator. */
679 bfin_initialize_cpu (SIM_DESC sd
, SIM_CPU
*cpu
)
681 memset (&cpu
->state
, 0, sizeof (cpu
->state
));
683 PROFILE_TOTAL_INSN_COUNT (CPU_PROFILE_DATA (cpu
)) = 0;
685 bfin_model_cpu_init (sd
, cpu
);
687 /* Set default stack to top of scratch pad. */
688 SET_SPREG (BFIN_DEFAULT_MEM_SIZE
);
689 SET_KSPREG (BFIN_DEFAULT_MEM_SIZE
);
690 SET_USPREG (BFIN_DEFAULT_MEM_SIZE
);
692 /* This is what the hardware likes. */
693 SET_SYSCFGREG (0x30);
697 sim_open (SIM_OPEN_KIND kind
, host_callback
*callback
,
698 struct bfd
*abfd
, char * const *argv
)
702 SIM_DESC sd
= sim_state_alloc_extra (kind
, callback
,
703 sizeof (struct bfin_board_data
));
705 /* Set default options before parsing user options. */
706 current_alignment
= STRICT_ALIGNMENT
;
707 current_target_byte_order
= BFD_ENDIAN_LITTLE
;
709 /* The cpu data is kept in a separately allocated chunk of memory. */
710 if (sim_cpu_alloc_all (sd
, 1) != SIM_RC_OK
)
716 if (sim_pre_argv_init (sd
, argv
[0]) != SIM_RC_OK
)
722 /* XXX: Default to the Virtual environment. */
723 if (STATE_ENVIRONMENT (sd
) == ALL_ENVIRONMENT
)
724 STATE_ENVIRONMENT (sd
) = VIRTUAL_ENVIRONMENT
;
726 /* The parser will print an error message for us, so we silently return. */
727 if (sim_parse_args (sd
, argv
) != SIM_RC_OK
)
733 /* Allocate external memory if none specified by user.
734 Use address 4 here in case the user wanted address 0 unmapped. */
735 if (sim_core_read_buffer (sd
, NULL
, read_map
, &c
, 4, 1) == 0)
737 bu16 emuexcpt
= 0x25;
738 sim_do_commandf (sd
, "memory-size 0x%x", BFIN_DEFAULT_MEM_SIZE
);
739 sim_write (sd
, 0, (void *)&emuexcpt
, 2);
742 /* Check for/establish the a reference program image. */
743 if (sim_analyze_program (sd
,
744 (STATE_PROG_ARGV (sd
) != NULL
745 ? *STATE_PROG_ARGV (sd
)
746 : NULL
), abfd
) != SIM_RC_OK
)
752 /* Establish any remaining configuration options. */
753 if (sim_config (sd
) != SIM_RC_OK
)
759 if (sim_post_argv_init (sd
) != SIM_RC_OK
)
765 /* CPU specific initialization. */
766 for (i
= 0; i
< MAX_NR_PROCESSORS
; ++i
)
768 SIM_CPU
*cpu
= STATE_CPU (sd
, i
);
769 bfin_initialize_cpu (sd
, cpu
);
775 /* Some utils don't like having a NULL environ. */
776 static char * const simple_env
[] = { "HOME=/", "PATH=/bin", NULL
};
778 static bu32 fdpic_load_offset
;
781 bfin_fdpic_load (SIM_DESC sd
, SIM_CPU
*cpu
, struct bfd
*abfd
, bu32
*sp
,
782 bu32
*elf_addrs
, char **ldso_path
)
787 Elf_Internal_Ehdr
*iehdr
;
788 Elf32_External_Ehdr ehdr
;
789 Elf_Internal_Phdr
*phdrs
;
797 unsigned char null
[4] = { 0, 0, 0, 0 };
802 /* See if this an FDPIC ELF. */
805 goto skip_fdpic_init
;
806 if (bfd_seek (abfd
, 0, SEEK_SET
) != 0)
807 goto skip_fdpic_init
;
808 if (bfd_bread (&ehdr
, sizeof (ehdr
), abfd
) != sizeof (ehdr
))
809 goto skip_fdpic_init
;
810 iehdr
= elf_elfheader (abfd
);
811 if (!(iehdr
->e_flags
& EF_BFIN_FDPIC
))
812 goto skip_fdpic_init
;
814 if (STATE_OPEN_KIND (sd
) == SIM_OPEN_DEBUG
)
815 sim_io_printf (sd
, "Loading FDPIC ELF %s\n Load base: %#x\n ELF entry: %#x\n",
816 bfd_get_filename (abfd
), fdpic_load_offset
, elf_addrs
[0]);
818 /* Grab the Program Headers to set up the loadsegs on the stack. */
819 phdr_size
= bfd_get_elf_phdr_upper_bound (abfd
);
821 goto skip_fdpic_init
;
822 phdrs
= xmalloc (phdr_size
);
823 phdrc
= bfd_get_elf_phdrs (abfd
, phdrs
);
825 goto skip_fdpic_init
;
827 /* Push the Ehdr onto the stack. */
828 *sp
-= sizeof (ehdr
);
830 sim_write (sd
, *sp
, (void *)&ehdr
, sizeof (ehdr
));
831 if (STATE_OPEN_KIND (sd
) == SIM_OPEN_DEBUG
)
832 sim_io_printf (sd
, " Elf_Ehdr: %#x\n", *sp
);
834 /* Since we're relocating things ourselves, we need to relocate
835 the start address as well. */
836 elf_addrs
[0] = bfd_get_start_address (abfd
) + fdpic_load_offset
;
838 /* And the Exec's Phdrs onto the stack. */
839 if (STATE_PROG_BFD (sd
) == abfd
)
841 elf_addrs
[4] = elf_addrs
[0];
843 phdr_size
= iehdr
->e_phentsize
* iehdr
->e_phnum
;
844 if (bfd_seek (abfd
, iehdr
->e_phoff
, SEEK_SET
) != 0)
845 goto skip_fdpic_init
;
846 data
= xmalloc (phdr_size
);
847 if (bfd_bread (data
, phdr_size
, abfd
) != phdr_size
)
848 goto skip_fdpic_init
;
851 elf_addrs
[2] = phdrc
;
852 sim_write (sd
, *sp
, data
, phdr_size
);
854 if (STATE_OPEN_KIND (sd
) == SIM_OPEN_DEBUG
)
855 sim_io_printf (sd
, " Elf_Phdrs: %#x\n", *sp
);
858 /* Now push all the loadsegs. */
861 for (i
= phdrc
; i
>= 0; --i
)
862 if (phdrs
[i
].p_type
== PT_LOAD
)
864 Elf_Internal_Phdr
*p
= &phdrs
[i
];
865 bu32 paddr
, vaddr
, memsz
, filesz
;
867 paddr
= p
->p_paddr
+ fdpic_load_offset
;
870 filesz
= p
->p_filesz
;
872 if (STATE_OPEN_KIND (sd
) == SIM_OPEN_DEBUG
)
873 sim_io_printf (sd
, " PHDR %i: vma %#x lma %#x filesz %#x memsz %#x\n",
874 i
, vaddr
, paddr
, filesz
, memsz
);
876 data
= xmalloc (memsz
);
878 memset (data
+ filesz
, 0, memsz
- filesz
);
880 if (bfd_seek (abfd
, p
->p_offset
, SEEK_SET
) == 0
881 && bfd_bread (data
, filesz
, abfd
) == filesz
)
882 sim_write (sd
, paddr
, data
, memsz
);
886 max_load_addr
= max (paddr
+ memsz
, max_load_addr
);
889 sim_write (sd
, *sp
+0, (void *)&paddr
, 4); /* loadseg.addr */
890 sim_write (sd
, *sp
+4, (void *)&vaddr
, 4); /* loadseg.p_vaddr */
891 sim_write (sd
, *sp
+8, (void *)&memsz
, 4); /* loadseg.p_memsz */
894 else if (phdrs
[i
].p_type
== PT_DYNAMIC
)
896 elf_addrs
[5] = phdrs
[i
].p_paddr
+ fdpic_load_offset
;
897 if (STATE_OPEN_KIND (sd
) == SIM_OPEN_DEBUG
)
898 sim_io_printf (sd
, " PT_DYNAMIC: %#x\n", elf_addrs
[5]);
900 else if (phdrs
[i
].p_type
== PT_INTERP
)
902 uint32_t off
= phdrs
[i
].p_offset
;
903 uint32_t len
= phdrs
[i
].p_filesz
;
905 *ldso_path
= xmalloc (len
);
906 if (bfd_seek (abfd
, off
, SEEK_SET
) != 0
907 || bfd_bread (*ldso_path
, len
, abfd
) != len
)
912 else if (STATE_OPEN_KIND (sd
) == SIM_OPEN_DEBUG
)
913 sim_io_printf (sd
, " PT_INTERP: %s\n", *ldso_path
);
916 /* Update the load offset with a few extra pages. */
917 fdpic_load_offset
= align_up (max (max_load_addr
, fdpic_load_offset
),
919 fdpic_load_offset
+= 0x10000;
921 /* Push the summary loadmap info onto the stack last. */
923 sim_write (sd
, *sp
+0, null
, 2); /* loadmap.version */
924 sim_write (sd
, *sp
+2, (void *)&nsegs
, 2); /* loadmap.nsegs */
934 bfin_user_init (SIM_DESC sd
, SIM_CPU
*cpu
, struct bfd
*abfd
,
935 char * const *argv
, char * const *env
)
937 /* XXX: Missing host -> target endian ... */
938 /* Linux starts the user app with the stack:
940 argv[0] -- pointers to the actual strings
946 auxvt[0].type -- ELF Auxiliary Vector Table
951 argv[0..N][0..M] -- actual argv/env strings
953 FDPIC loadmaps -- for FDPIC apps
954 So set things up the same way. */
956 bu32 argv_flat
, env_flat
;
960 /* start, at_phdr, at_phnum, at_base, at_entry, pt_dynamic */
963 bu32 exec_loadmap
, ldso_loadmap
;
966 unsigned char null
[4] = { 0, 0, 0, 0 };
968 host_callback
*cb
= STATE_CALLBACK (sd
);
970 elf_addrs
[0] = elf_addrs
[4] = bfd_get_start_address (abfd
);
971 elf_addrs
[1] = elf_addrs
[2] = elf_addrs
[3] = elf_addrs
[5] = 0;
973 /* Keep the load addresses consistent between runs. Also make sure we make
974 space for the fixed code region (part of the Blackfin Linux ABI). */
975 fdpic_load_offset
= 0x1000;
977 /* First try to load this as an FDPIC executable. */
979 if (!bfin_fdpic_load (sd
, cpu
, STATE_PROG_BFD (sd
), &sp
, elf_addrs
, &ldso_path
))
980 goto skip_fdpic_init
;
983 /* If that worked, then load the fixed code region. We only do this for
984 FDPIC ELFs atm because they are PIEs and let us relocate them without
985 manual fixups. FLAT files however require location processing which
986 we do not do ourselves, and they link with a VMA of 0. */
987 sim_write (sd
, 0x400, bfin_linux_fixed_code
, sizeof (bfin_linux_fixed_code
));
989 /* If the FDPIC needs an interpreter, then load it up too. */
992 const char *ldso_full_path
= concat (simulator_sysroot
, ldso_path
, NULL
);
993 struct bfd
*ldso_bfd
;
995 ldso_bfd
= bfd_openr (ldso_full_path
, STATE_TARGET (sd
));
998 sim_io_eprintf (sd
, "bfin-sim: bfd open failed: %s\n", ldso_full_path
);
1001 if (!bfd_check_format (ldso_bfd
, bfd_object
))
1002 sim_io_eprintf (sd
, "bfin-sim: bfd format not valid: %s\n", ldso_full_path
);
1003 bfd_set_arch_info (ldso_bfd
, STATE_ARCHITECTURE (sd
));
1005 if (!bfin_fdpic_load (sd
, cpu
, ldso_bfd
, &sp
, elf_addrs
, &ldso_path
))
1006 sim_io_eprintf (sd
, "bfin-sim: FDPIC ldso failed to load: %s\n", ldso_full_path
);
1008 sim_io_eprintf (sd
, "bfin-sim: FDPIC ldso (%s) needs an interpreter (%s) !?\n",
1009 ldso_full_path
, ldso_path
);
1017 /* Finally setup the registers required by the FDPIC ABI. */
1018 SET_DREG (7, 0); /* Zero out FINI funcptr -- ldso will set this up. */
1019 SET_PREG (0, exec_loadmap
); /* Exec loadmap addr. */
1020 SET_PREG (1, ldso_loadmap
); /* Interp loadmap addr. */
1021 SET_PREG (2, elf_addrs
[5]); /* PT_DYNAMIC map addr. */
1026 sim_pc_set (cpu
, elf_addrs
[0]);
1028 /* Figure out how much storage the argv/env strings need. */
1029 argc
= countargv ((char **)argv
);
1032 argv_flat
= argc
; /* NUL bytes */
1033 for (i
= 0; i
< argc
; ++i
)
1034 argv_flat
+= strlen (argv
[i
]);
1038 envc
= countargv ((char **)env
);
1039 env_flat
= envc
; /* NUL bytes */
1040 for (i
= 0; i
< envc
; ++i
)
1041 env_flat
+= strlen (env
[i
]);
1043 /* Push the Auxiliary Vector Table between argv/env and actual strings. */
1044 sp_flat
= sp
= align_up (SPREG
- argv_flat
- env_flat
- 4, 4);
1047 # define AT_PUSH(at, val) \
1051 sim_write (sd, sp, (void *)&auxvt, 4); \
1054 sim_write (sd, sp, (void *)&auxvt, 4)
1055 unsigned int egid
= getegid (), gid
= getgid ();
1056 unsigned int euid
= geteuid (), uid
= getuid ();
1057 bu32 auxvt_size
= 0;
1058 AT_PUSH (AT_NULL
, 0);
1059 AT_PUSH (AT_SECURE
, egid
!= gid
|| euid
!= uid
);
1060 AT_PUSH (AT_EGID
, egid
);
1061 AT_PUSH (AT_GID
, gid
);
1062 AT_PUSH (AT_EUID
, euid
);
1063 AT_PUSH (AT_UID
, uid
);
1064 AT_PUSH (AT_ENTRY
, elf_addrs
[4]);
1065 AT_PUSH (AT_FLAGS
, 0);
1066 AT_PUSH (AT_BASE
, elf_addrs
[3]);
1067 AT_PUSH (AT_PHNUM
, elf_addrs
[2]);
1068 AT_PUSH (AT_PHENT
, sizeof (Elf32_External_Phdr
));
1069 AT_PUSH (AT_PHDR
, elf_addrs
[1]);
1070 AT_PUSH (AT_CLKTCK
, 100); /* XXX: This ever not 100 ? */
1071 AT_PUSH (AT_PAGESZ
, 4096);
1072 AT_PUSH (AT_HWCAP
, 0);
1077 /* Push the argc/argv/env after the auxvt. */
1078 sp
-= ((1 + argc
+ 1 + envc
+ 1) * 4);
1081 /* First push the argc value. */
1082 sim_write (sd
, sp
, (void *)&argc
, 4);
1085 /* Then the actual argv strings so we know where to point argv[]. */
1086 for (i
= 0; i
< argc
; ++i
)
1088 unsigned len
= strlen (argv
[i
]) + 1;
1089 sim_write (sd
, sp_flat
, (void *)argv
[i
], len
);
1090 sim_write (sd
, sp
, (void *)&sp_flat
, 4);
1094 sim_write (sd
, sp
, null
, 4);
1097 /* Then the actual env strings so we know where to point env[]. */
1098 for (i
= 0; i
< envc
; ++i
)
1100 unsigned len
= strlen (env
[i
]) + 1;
1101 sim_write (sd
, sp_flat
, (void *)env
[i
], len
);
1102 sim_write (sd
, sp
, (void *)&sp_flat
, 4);
1107 /* Set some callbacks. */
1108 cb
->syscall_map
= cb_linux_syscall_map
;
1109 cb
->errno_map
= cb_linux_errno_map
;
1110 cb
->open_map
= cb_linux_open_map
;
1111 cb
->signal_map
= cb_linux_signal_map
;
1112 cb
->stat_map
= stat_map_32
= cb_linux_stat_map_32
;
1113 stat_map_64
= cb_linux_stat_map_64
;
1117 bfin_os_init (SIM_DESC sd
, SIM_CPU
*cpu
, char * const *argv
)
1119 /* Pass the command line via a string in R0 like Linux expects. */
1122 bu32 cmdline
= BFIN_L1_SRAM_SCRATCH
;
1124 SET_DREG (0, cmdline
);
1125 if (argv
&& argv
[0])
1131 bu32 len
= strlen (argv
[i
]);
1132 sim_write (sd
, cmdline
, (void *)argv
[i
], len
);
1134 sim_write (sd
, cmdline
, &byte
, 1);
1140 sim_write (sd
, cmdline
, &byte
, 1);
1144 bfin_virtual_init (SIM_DESC sd
, SIM_CPU
*cpu
)
1146 host_callback
*cb
= STATE_CALLBACK (sd
);
1148 cb
->stat_map
= stat_map_32
= cb_libgloss_stat_map_32
;
1153 sim_create_inferior (SIM_DESC sd
, struct bfd
*abfd
,
1154 char * const *argv
, char * const *env
)
1156 SIM_CPU
*cpu
= STATE_CPU (sd
, 0);
1161 addr
= bfd_get_start_address (abfd
);
1164 sim_pc_set (cpu
, addr
);
1166 /* Standalone mode (i.e. `run`) will take care of the argv for us in
1167 sim_open() -> sim_parse_args(). But in debug mode (i.e. 'target sim'
1168 with `gdb`), we need to handle it because the user can change the
1169 argv on the fly via gdb's 'run'. */
1170 if (STATE_PROG_ARGV (sd
) != argv
)
1172 freeargv (STATE_PROG_ARGV (sd
));
1173 STATE_PROG_ARGV (sd
) = dupargv (argv
);
1176 switch (STATE_ENVIRONMENT (sd
))
1178 case USER_ENVIRONMENT
:
1179 bfin_user_init (sd
, cpu
, abfd
, argv
, env
);
1181 case OPERATING_ENVIRONMENT
:
1182 bfin_os_init (sd
, cpu
, argv
);
1185 bfin_virtual_init (sd
, cpu
);