You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
41 lines
1.2 KiB
41 lines
1.2 KiB
/**
|
|
* Forth heap and compile memory
|
|
*
|
|
* Created on 2021/11/13.
|
|
*/
|
|
|
|
#ifndef FORTH_FH_MEM_H
|
|
#define FORTH_FH_MEM_H
|
|
|
|
void fh_setbase(struct fh_thread_s *fh, uint32_t base);
|
|
|
|
enum fh_error fh_fetch(struct fh_thread_s *fh, uint32_t addr, uint32_t *dst);
|
|
|
|
enum fh_error fh_fetch_char(struct fh_thread_s *fh, uint32_t addr, char *dst);
|
|
|
|
enum fh_error fh_store(struct fh_thread_s *fh, uint32_t addr, uint32_t val);
|
|
|
|
enum fh_error fh_store_char(struct fh_thread_s *fh, uint32_t addr, char val);
|
|
|
|
enum fh_error fh_heap_reserve(
|
|
struct fh_thread_s *fh,
|
|
size_t len,
|
|
uint32_t *addr
|
|
);
|
|
void fh_heap_write(struct fh_thread_s *fh, uint32_t addr, const void *src, uint32_t len);
|
|
enum fh_error fh_heap_put(struct fh_thread_s *fh, const void *src, uint32_t len);
|
|
void fh_heap_copy(struct fh_thread_s *fh, uint32_t addr, uint32_t srcaddr, uint32_t len);
|
|
|
|
static inline char *fh_str_at(struct fh_thread_s *fh, uint32_t addr) {
|
|
return (char *) &fh->heap[addr];
|
|
}
|
|
|
|
static inline struct fh_instruction_s *fh_instr_at(struct fh_thread_s *fh, uint32_t addr) {
|
|
return (void *) &fh->heap[addr];
|
|
}
|
|
|
|
static inline struct fh_word_s *fh_word_at(struct fh_thread_s *fh, uint32_t addr) {
|
|
return (struct fh_word_s *) &fh->heap[addr];
|
|
}
|
|
|
|
#endif //FORTH_FH_MEM_H
|
|
|