1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
/***********************************************************************/
/* */
/* SYSCALLS.C: System Calls */
/* most of this is from newlib-lpc and a Keil-demo */
/* */
/* These are "reentrant functions" as needed by */
/* the WinARM-newlib-config, see newlib-manual. */
/* Collected and modified by Martin Thomas */
/* */
/***********************************************************************/
#include <stdlib.h>
#include <reent.h>
#include <sys/stat.h>
#include <board.h>
static void my_putc(char c)
{
while (!AT91F_US_TxReady((AT91PS_USART)AT91C_BASE_DBGU));
AT91F_US_PutChar((AT91PS_USART)AT91C_BASE_DBGU, c);
}
static int my_kbhit( void )
{
if ((AT91F_US_RxReady((AT91PS_USART)AT91C_BASE_DBGU)) == 0) return 0;
else return 1;
}
static char my_getc( void )
{
return AT91F_US_GetChar((AT91PS_USART)AT91C_BASE_DBGU);
}
_ssize_t _read_r(
struct _reent *r,
int file,
void *ptr,
size_t len)
{
char c;
unsigned int i;
unsigned char *p;
p = (unsigned char*)ptr;
for (i = 0; i < len; i++) {
// c = uart0Getch();
// c = uart0GetchW();
while ( !my_kbhit() ) ;
c = (char) my_getc();
if (c == 0x0D) {
*p='\0';
break;
}
*p++ = c;
////// uart0_putc(c);
}
return len - i;
}
_ssize_t _write_r (
struct _reent *r,
int file,
const void *ptr,
size_t len)
{
int i;
const unsigned char *p;
p = (const unsigned char*) ptr;
for (i = 0; i < len; i++) {
if (*p == '\n' ) my_putc('\r');
my_putc(*p++);
}
return len;
}
int _close_r(
struct _reent *r,
int file)
{
return 0;
}
_off_t _lseek_r(
struct _reent *r,
int file,
_off_t ptr,
int dir)
{
return (_off_t)0; /* Always indicate we are at file beginning. */
}
int _fstat_r(
struct _reent *r,
int file,
struct stat *st)
{
/* Always set as character device. */
st->st_mode = S_IFCHR;
/* assigned to strong type with implicit */
/* signed/unsigned conversion. Required by */
/* newlib. */
return 0;
}
int isatty(int file); /* avoid warning */
int isatty(int file)
{
return 1;
}
#if 0
static void _exit (int n) {
label: goto label; /* endless loop */
}
#endif
/* "malloc clue function" from newlib-lpc/Keil-Demo/"generic" */
/**** Locally used variables. ****/
// mt: "cleaner": extern char* end;
extern char end[]; /* end is set in the linker command */
/* file and is the end of statically */
/* allocated data (thus start of heap). */
static char *heap_ptr; /* Points to current end of the heap. */
/************************** _sbrk_r *************************************
* Support function. Adjusts end of heap to provide more memory to
* memory allocator. Simple and dumb with no sanity checks.
* struct _reent *r -- re-entrancy structure, used by newlib to
* support multiple threads of operation.
* ptrdiff_t nbytes -- number of bytes to add.
* Returns pointer to start of new heap area.
*
* Note: This implementation is not thread safe (despite taking a
* _reent structure as a parameter).
* Since _s_r is not used in the current implementation,
* the following messages must be suppressed.
*/
void * _sbrk_r(
struct _reent *_s_r,
ptrdiff_t nbytes)
{
char *base; /* errno should be set to ENOMEM on error */
if (!heap_ptr) { /* Initialize if first time through. */
heap_ptr = end;
}
base = heap_ptr; /* Point to end of heap. */
heap_ptr += nbytes; /* Increase heap. */
return base; /* Return pointer to start of new heap area. */
}
|
