OpenCores
URL https://opencores.org/ocsvn/scarts/scarts/trunk

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gdb/] [gdb-6.8/] [gdb/] [testsuite/] [gdb.arch/] [spu-info.c] - Blame information for rev 25

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 25 jlechner
/* Copyright 2007, 2008 Free Software Foundation, Inc.
2
 
3
   This program is free software; you can redistribute it and/or modify
4
   it under the terms of the GNU General Public License as published by
5
   the Free Software Foundation; either version 3 of the License, or
6
   (at your option) any later version.
7
 
8
   This program is distributed in the hope that it will be useful,
9
   but WITHOUT ANY WARRANTY; without even the implied warranty of
10
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11
   GNU General Public License for more details.
12
 
13
   You should have received a copy of the GNU General Public License
14
   along with this program.  If not, see <http://www.gnu.org/licenses/>.
15
 
16
   This file is part of the gdb testsuite.
17
 
18
   Contributed by Markus Deuling <deuling@de.ibm.com>.
19
   Tests for 'info spu' commands.  */
20
 
21
#include <stdio.h>
22
#include <string.h>
23
#include <sys/types.h>
24
#include <sys/stat.h>
25
#include <fcntl.h>
26
#include <spu_mfcio.h>
27
 
28
 
29
/* PPE-assisted call interface.  */
30
void
31
send_to_ppe (unsigned int signalcode, unsigned int opcode, void *data)
32
{
33
  __vector unsigned int stopfunc =
34
    {
35
      signalcode,     /* stop */
36
      (opcode << 24) | (unsigned int) data,
37
      0x4020007f,     /* nop */
38
      0x35000000      /* bi $0 */
39
    };
40
 
41
  void (*f) (void) = (void *) &stopfunc;
42
  asm ("sync");
43
  f ();
44
}
45
 
46
/* PPE-assisted call to mmap from SPU.  */
47
unsigned long long
48
mmap_ea (unsigned long long start, size_t length,
49
         int prot, int flags, int fd, off_t offset)
50
{
51
  struct mmap_args
52
    {
53
      unsigned long long start __attribute__ ((aligned (16)));
54
      size_t length __attribute__ ((aligned (16)));
55
      int prot __attribute__ ((aligned (16)));
56
      int flags __attribute__ ((aligned (16)));
57
      int fd __attribute__ ((aligned (16)));
58
      off_t offset __attribute__ ((aligned (16)));
59
    } args;
60
 
61
  args.start = start;
62
  args.length = length;
63
  args.prot = prot;
64
  args.flags = flags;
65
  args.fd = fd;
66
  args.offset = offset;
67
 
68
  send_to_ppe (0x2101, 11, &args);
69
  return args.start;
70
}
71
 
72
/* This works only in a Linux environment with <= 1024 open
73
   file descriptors for one process. Result is the file
74
   descriptor for the current context if available.  */
75
int
76
find_context_fd (void)
77
{
78
  int dir_fd = -1;
79
  int i;
80
 
81
  for (i = 0; i < 1024; i++)
82
    {
83
      struct stat stat;
84
 
85
      if (fstat (i, &stat) < 0)
86
        break;
87
      if (S_ISDIR (stat.st_mode))
88
        dir_fd = dir_fd == -1 ? i : -2;
89
    }
90
  return dir_fd < 0 ? -1 : dir_fd;
91
}
92
 
93
/* Open the context file and return the file handler.  */
94
int
95
open_context_file (int context_fd, char *name, int flags)
96
{
97
  char buf[128];
98
 
99
  if (context_fd < 0)
100
    return -1;
101
 
102
  sprintf (buf, "/proc/self/fd/%d/%s", context_fd, name);
103
  return open (buf, flags);
104
}
105
 
106
 
107
int
108
do_event_test ()
109
{
110
  spu_write_event_mask (MFC_MULTI_SRC_SYNC_EVENT); /* 0x1000 */  /* Marker Event */
111
  spu_write_event_mask (MFC_PRIV_ATTN_EVENT); /* 0x0800 */
112
  spu_write_event_mask (MFC_LLR_LOST_EVENT); /* 0x0400 */
113
  spu_write_event_mask (MFC_SIGNAL_NOTIFY_1_EVENT); /* 0x0200 */
114
  spu_write_event_mask (MFC_SIGNAL_NOTIFY_2_EVENT); /* 0x0100 */
115
  spu_write_event_mask (MFC_OUT_MBOX_AVAILABLE_EVENT); /* 0x0080 */
116
  spu_write_event_mask (MFC_OUT_INTR_MBOX_AVAILABLE_EVENT); /* 0x0040 */
117
  spu_write_event_mask (MFC_DECREMENTER_EVENT); /* 0x0020 */
118
  spu_write_event_mask (MFC_IN_MBOX_AVAILABLE_EVENT); /* 0x0010 */
119
  spu_write_event_mask (MFC_COMMAND_QUEUE_AVAILABLE_EVENT); /* 0x0008 */
120
  spu_write_event_mask (MFC_LIST_STALL_NOTIFY_EVENT); /* 0x0002 */
121
  spu_write_event_mask (MFC_TAG_STATUS_UPDATE_EVENT); /* 0x0001 */
122
 
123
  return 0;
124
}
125
 
126
int
127
do_dma_test ()
128
{
129
  #define MAP_FAILED      (-1ULL)
130
  #define PROT_READ       0x1
131
  #define MAP_PRIVATE     0x002
132
  #define BSIZE 128
133
  static char buf[BSIZE] __attribute__ ((aligned (128)));
134
  char *file = "/var/tmp/tmp_buf";
135
  struct stat fdstat;
136
  int fd, cnt;
137
  unsigned long long src;
138
 
139
  /* Create a file and fill it with some bytes.  */
140
  fd = open (file, O_CREAT | O_RDWR | O_TRUNC, 0777);
141
  if (fd == -1)
142
    return -1;
143
  memset ((void *)buf, '1', BSIZE);
144
  write (fd, buf, BSIZE);
145
  write (fd, buf, BSIZE);
146
  memset ((void *)buf, 0, BSIZE);
147
 
148
  if (fstat (fd, &fdstat) != 0
149
      || !fdstat.st_size)
150
    return -2;
151
 
152
  src = mmap_ea(0ULL, fdstat.st_size, PROT_READ, MAP_PRIVATE, fd, 0);
153
  if (src == MAP_FAILED)
154
    return -3;
155
 
156
  /* Copy some data via DMA.  */
157
  mfc_get (&buf, src, BSIZE, 5, 0, 0);   /* Marker DMA */
158
  mfc_write_tag_mask (1<<5);   /* Marker DMAWait */
159
  spu_mfcstat (MFC_TAG_UPDATE_ALL);
160
 
161
  /* Close the file.  */
162
  close (fd);
163
 
164
  return cnt;
165
}
166
 
167
int
168
do_mailbox_test ()
169
{
170
  /* Write to SPU Outbound Mailbox.  */
171
  if (spu_stat_out_mbox ())            /* Marker Mbox */
172
    spu_write_out_mbox (0x12345678);
173
 
174
  /* Write to SPU Outbound Interrupt Mailbox.  */
175
  if (spu_stat_out_intr_mbox ())
176
    spu_write_out_intr_mbox (0x12345678);
177
 
178
  return 0;       /* Marker MboxEnd */
179
}
180
 
181
int
182
do_signal_test ()
183
{
184
  struct stat fdstat;
185
  int context_fd = find_context_fd ();
186
  int ret, buf, fd;
187
 
188
  buf = 23;    /* Marker Signal */
189
  /* Write to signal1.  */
190
  fd = open_context_file (context_fd, "signal1", O_RDWR);
191
  if (fstat (fd, &fdstat) != 0)
192
    return -1;
193
  ret = write (fd, buf, sizeof (int));
194
  close (fd);  /* Marker Signal1 */
195
 
196
  /* Write to signal2.  */
197
  fd = open_context_file (context_fd, "signal2", O_RDWR);
198
  if (fstat (fd, &fdstat) != 0)
199
    return -1;
200
  ret = write (fd, buf, sizeof (int));
201
  close (fd);  /* Marker Signal2 */
202
 
203
  /* Read signal1.  */
204
  if (spu_stat_signal1 ())
205
    ret = spu_read_signal1 ();
206
 
207
  /* Read signal2.  */
208
  if (spu_stat_signal2 ())
209
    ret = spu_read_signal2 ();   /* Marker SignalRead */
210
 
211
  return 0;
212
}
213
 
214
int
215
main (unsigned long long speid, unsigned long long argp,
216
      unsigned long long envp)
217
{
218
  int res;
219
 
220
  /* info spu event  */
221
  res = do_event_test ();
222
 
223
  /* info spu dma  */
224
  res = do_dma_test ();
225
 
226
  /* info spu mailbox  */
227
  res = do_mailbox_test ();
228
 
229
  /* info spu signal  */
230
  res = do_signal_test ();
231
 
232
  return 0;
233
}
234
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.