support files for oink-based source to source transformations
This commit is contained in:
Sears Russell
parent
de8bf53e98
commit
aaafca31b6
5 changed files with 66 additions and 77 deletions
41
Makefile.oink
Normal file
41
Makefile.oink
Normal file
|
|
@ -0,0 +1,41 @@
|
|||
# find . -type f -name *.c | grep -v \/pobj\/ | grep -v \/cht\/ | grep -v \/fuse\/ | grep -v \/libdfa\/ | grep -v \/cyrus\/ | grep -v \/lladd-old\/ | xargs -iqq mcpp -m64 -K -DPBL_COMPAT -I. -I src -I /usr/include -I /usr/lib/gcc/x86_64-redhat-linux/4.1.1/include/ -I build qq > /dev/null
|
||||
|
||||
GCC_INC = -I /usr/lib/gcc/i486-linux-gnu/4.1/include
|
||||
#/usr/lib/gcc/x86_64-redhat-linux/4.1.1/include
|
||||
|
||||
TRACE_DIR = ./utilities/trace
|
||||
|
||||
OINK = ../oink-stack/oink/xform
|
||||
OINK_ARGS = -fx-wrap-fun-call -x-wrap-fun-call-config-file $(TRACE_DIR)/smoketest.ca
|
||||
STANDARD_INC = -I build -I . -I src -I /usr/include
|
||||
cfiles = $(wildcard src/stasis/*.c) \
|
||||
$(wildcard src/stasis/*/*.c) \
|
||||
$(wildcard test/stasis/*.c)
|
||||
ifiles = $(patsubst %.c,build-oink/%.i,$(cfiles))
|
||||
patches = $(patsubst %.c,build-oink/%.patch,$(cfiles))
|
||||
|
||||
|
||||
.PHONY : clean TREE
|
||||
|
||||
all : wrap.patch
|
||||
|
||||
wrap.patch : $(patches)
|
||||
cat $^ > $@.tmp
|
||||
$(TRACE_DIR)/dedup-patch.pl < $@.tmp > $@
|
||||
|
||||
build-oink/% : %
|
||||
mkdir -p $@
|
||||
|
||||
TREE : $(dir $(ifiles))
|
||||
@true
|
||||
mkdir -p $^
|
||||
|
||||
build-oink/%.i : %.c TREE
|
||||
mcpp -K -DPBL_COMPAT $(STANDARD_INC) $(GCC_INC) $< -o $@
|
||||
|
||||
%.patch : %.i $(OINK)
|
||||
$(OINK) $(OINK_ARGS) $< > $@
|
||||
|
||||
|
||||
clean :
|
||||
rm -f $(ifiles) $(patches) wrap.patch
|
||||
|
|
@ -28,6 +28,9 @@
|
|||
|
||||
static int stasis_initted = 0;
|
||||
|
||||
static long long stasis_dummy_dbug_timestamp = 0;
|
||||
long long * stasis_dbug_timestamp = &stasis_dummy_dbug_timestamp;
|
||||
|
||||
static stasis_log_t* stasis_log_file = 0;
|
||||
static stasis_dirty_page_table_t * stasis_dirty_page_table = 0;
|
||||
static stasis_transaction_table_t * stasis_transaction_table;
|
||||
|
|
|
|||
20
utilities/trace/dedup-patch.pl
Executable file
20
utilities/trace/dedup-patch.pl
Executable file
|
|
@ -0,0 +1,20 @@
|
|||
#!/usr/bin/perl -w
|
||||
use strict;
|
||||
|
||||
my %seen;
|
||||
my $printing = 1;
|
||||
while(my $line = <>) {
|
||||
if($line =~ /^\-\-\- (.+)$/) {
|
||||
my $section = $1;
|
||||
if($seen{$section}
|
||||
||($section !~ /^\/home\//)
|
||||
# ||($section =~ /\/test\//) # comment this line out for stress testing.
|
||||
){
|
||||
$printing = 0;
|
||||
} else {
|
||||
$printing = 1;
|
||||
}
|
||||
$seen{$section}++;
|
||||
}
|
||||
($printing || $line =~ /^\-\-\-\-/) && print $line;
|
||||
}
|
||||
2
utilities/trace/smoketest.ca
Normal file
2
utilities/trace/smoketest.ca
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
Tinit
|
||||
Tdeinit
|
||||
|
|
@ -1,77 +0,0 @@
|
|||
#!/usr/bin/perl -w
|
||||
use strict;
|
||||
|
||||
if(!defined($ARGV[0])) { $ARGV[0] = 'garbage'; }
|
||||
|
||||
my $enable;
|
||||
|
||||
if($ARGV[0] eq '--disable') {
|
||||
$enable = 0;
|
||||
} elsif($ARGV[0] eq '--enable') {
|
||||
$enable = 1;
|
||||
} else {
|
||||
die "usage: $0 [--enable|--disable]\n";
|
||||
}
|
||||
#Tupdate TupdateWithPage TupdateStr TreorderableUpdate TwritebackUpdate TreorderableWritebackUpdate
|
||||
#Tcommit TsoftCommit TforceCommits Tabort Tbegin Tforget Tprepare Trevive
|
||||
# TnestedTopAction TbeginNestedTopAction TendNestedTopAction
|
||||
my @funcs = qw ( Tinit
|
||||
Tread TreadWithpage TreadRaw TreadStr
|
||||
Tdeinit TuncleanShutdown
|
||||
loadPage loadPageOfType loadUninitializedPage loadPageForOperation releasePage getCachedPage
|
||||
stasis_log_force stasis_log_begin_transaction stasis_log_prepare_transaction stasis_log_commit_transaction
|
||||
stasis_log_abort_transaction stasis_log_end_aborted_transaction stasis_log_write_update stasis_log_write_clr
|
||||
stasis_log_write_dummy_clr stasis_log_begin_nta stasis_log_end_nta
|
||||
);
|
||||
|
||||
my %opts;
|
||||
|
||||
my @opts = qw (CMAKE_EXE_LINKER_FLAGS
|
||||
CMAKE_SHARED_LINKER_FLAGS
|
||||
CMAKE_MODULE_LINKER_FLAGS);
|
||||
|
||||
foreach my $opt (@opts) {
|
||||
$opts{$opt} = 1;
|
||||
}
|
||||
|
||||
my $prefix = ' -Wl,--wrap,';
|
||||
|
||||
my $val = $prefix . join $prefix, @funcs;
|
||||
|
||||
if(!-f 'CMakeCache.txt') { die 'CMakeCache not found\n'; }
|
||||
|
||||
my @file = `cat CMakeCache.txt`;
|
||||
|
||||
my $hits = 0;
|
||||
|
||||
open OUT, ">CMakeCache.txt.toggle~";
|
||||
|
||||
foreach my $line (@file) {
|
||||
chomp $line;
|
||||
if($line =~ /^\s*([^\:]+)\:([^\=]+)\=(.*)$/) {
|
||||
my ($k,$t,$v) = ($1,$2,$3);
|
||||
|
||||
if($opts{$k}) {
|
||||
$hits++;
|
||||
if($enable) {
|
||||
print OUT "$k:$t=$val\n";
|
||||
} else {
|
||||
print OUT "$k:$t=\n";
|
||||
}
|
||||
} else {
|
||||
print OUT "$line\n";
|
||||
}
|
||||
} else {
|
||||
print OUT "$line\n";
|
||||
}
|
||||
}
|
||||
my $continue = 1;
|
||||
if($hits != @opts+0) {
|
||||
warn "replaced $hits lines, but expected " . (@opts+0) . ".\n";
|
||||
$continue = 0;
|
||||
}
|
||||
close OUT;
|
||||
$continue || die "Hit trobule. Bailing out.\n";
|
||||
|
||||
`mv CMakeCache.txt.toggle~ CMakeCache.txt`;
|
||||
`make clean`;
|
||||
Loading…
Reference in a new issue