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
|
// Copyright (c) 2009-2011, Tor M. Aamodt
// The University of British Columbia
// All rights reserved.
//
// Redistribution and use in source and binary forms, with or without
// modification, are permitted provided that the following conditions are met:
//
// Redistributions of source code must retain the above copyright notice, this
// list of conditions and the following disclaimer.
// Redistributions in binary form must reproduce the above copyright notice, this
// list of conditions and the following disclaimer in the documentation and/or
// other materials provided with the distribution.
// Neither the name of The University of British Columbia nor the names of its
// contributors may be used to endorse or promote products derived from this
// software without specific prior written permission.
//
// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
// ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
// WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
// DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
// FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
// DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
// SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
// CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
// OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
// OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
#include "cuda_device_printf.h"
#include "ptx_ir.h"
void decode_space( memory_space_t &space, ptx_thread_info *thread, const operand_info &op, memory_space *&mem, addr_t &addr);
void my_cuda_printf(const char *fmtstr,const char *arg_list)
{
FILE *fp = stdout;
unsigned i=0,j=0;
unsigned arg_offset=0;
char buf[64];
bool in_fmt=false;
while( fmtstr[i] ) {
char c = fmtstr[i++];
if( !in_fmt ) {
if( c != '%' ) {
fprintf(fp,"%c",c);
} else {
in_fmt=true;
buf[0] = c;
j=1;
}
} else {
if(!( c == 'u' || c == 'f' || c == 'd' )) {
printf("GPGPU-Sim PTX: ERROR ** printf parsing support is limited to %%u, %%f, %%d at present");
abort();
}
buf[j] = c;
buf[j+1] = 0;
unsigned long long value = ((unsigned long long*)arg_list)[arg_offset];
if( c == 'u' || c == 'd' ) {
fprintf(fp,buf,value);
} else if( c == 'f' ) {
double tmp = *(double*)(void*)&value;
fprintf(fp,buf,tmp);
}
arg_offset++;
in_fmt=false;
}
}
}
void gpgpusim_cuda_vprintf(const ptx_instruction * pI, ptx_thread_info * thread, const function_info * target_func )
{
char *fmtstr = NULL;
char *arg_list = NULL;
unsigned n_return = target_func->has_return();
unsigned n_args = target_func->num_args();
assert( n_args == 2 );
for( unsigned arg=0; arg < n_args; arg ++ ) {
const operand_info &actual_param_op = pI->operand_lookup(n_return+1+arg);
const symbol *formal_param = target_func->get_arg(arg);
unsigned size=formal_param->get_size_in_bytes();
assert( formal_param->is_param_local() );
assert( actual_param_op.is_param_local() );
addr_t from_addr = actual_param_op.get_symbol()->get_address();
char buffer[1024];
assert(size<1024);
thread->m_local_mem->read(from_addr,size,buffer);
addr_t addr = (addr_t)*(unsigned long long*)((void*)buffer); // should be pointer to generic memory location
memory_space *mem=NULL;
memory_space_t space = generic_space;
decode_space(space,thread,actual_param_op,mem,addr); // figure out which space
if( arg == 0 ) {
unsigned len = 0;
char b = 0;
do { // figure out length
mem->read(addr+len,1,&b);
len++;
} while(b);
fmtstr = (char*)malloc(len+64);
for( int i=0; i < len; i++ )
mem->read(addr+i,1,fmtstr+i);
//mem->read(addr,len,fmtstr);
} else {
unsigned len = thread->get_finfo()->local_mem_framesize();
arg_list = (char*)malloc(len+64);
for( int i=0; i < len; i++ )
mem->read(addr+i,1,arg_list+i);
//mem->read(addr,len,arg_list);
}
}
my_cuda_printf(fmtstr,arg_list);
free(fmtstr);
free(arg_list);
}
|
