diff options
Diffstat (limited to 'winsup/cygwin/gentls_offsets')
-rwxr-xr-x | winsup/cygwin/gentls_offsets | 71 |
1 files changed, 71 insertions, 0 deletions
diff --git a/winsup/cygwin/gentls_offsets b/winsup/cygwin/gentls_offsets new file mode 100755 index 000000000..fe5fab96e --- /dev/null +++ b/winsup/cygwin/gentls_offsets @@ -0,0 +1,71 @@ +#!/usr/bin/perl -s +my $tls = shift; +my $tls_out = shift; +open(TLS, $tls) or die "$0: couldn't open tls file \"$tls\" - $!\n"; +my $struct = ''; +my @fields = (); +my $def = ''; +while (<TLS>) { + next if $struct && (!/gentls_offsets/o && /\(/o); + $def .= $_ if $struct; + last if /^};/o; + /^\s*typedef/o and do { + $def .= $_ ; + next; + }; + if (!s/;.*$//o) { + if (!$struct && /^\s*(?:struct|class)\s*([a-z_0-9]+)/o) { + $def .= $_; + $struct = $1 + } + next; + } + s%/\*\s*gentls_offsets.*/\*\s*gentls_offsets\s*\*/%%og; + s/(?:\[[^\]]*\]|struct|class)//o; + s/^\s+\S+\s+//o; + s/[\*\s()]+//go; + for my $f (split(/,/)) { + push(@fields, $f); + } +} +close TLS; +open(TMP, '>', "/tmp/$$.cc") or die "$0: couldn't open temporary index file \"/tmp/$$.c\" - $!\n"; +print TMP <<EOF; +#include <stdio.h> +#include <stdlib.h> +#include <signal.h> +typedef void *HANDLE; +$def +int +main(int argc, char **argv) +{ + $struct foo[1]; +# define foo_end ((char *) (foo + 1)) +# define offset(f) (((char *) &(foo->f)) - foo_end) +EOF + print TMP 'puts ("//;# autogenerated: Do not edit.\n");', "\n\n"; + for my $f (@fields) { + print TMP ' printf ("//; $tls::', $f, ' = %d;\n", ', "offset($f));\n"; + } + print TMP ' puts ("//; __DATA__\n");', "\n"; + for my $f (@fields) { + print TMP ' printf ("#define tls_', $f, ' (%d)\n", ', "offset($f));\n"; + } + + print TMP <<EOF; + + exit (0); +} +EOF +close TMP; +system @ARGV, '-o', "/tmp/$$-1.cc", '-E', "/tmp/$$.cc"; +system 'g++', '-o', "/tmp/$$.a.out", "/tmp/$$-1.cc" and +($? == 127 && system 'c++', '-o', "/tmp/$$.a.out", "/tmp/$$-1.cc") and +die "$0: couldn't generate executable for offset calculation \"/tmp/$$.a.out\" - $!\n"; +open(TLS_OUT, '>', $tls_out) or die "$0: couldn't open tls index file \"tls_out\" - $!\n"; +open(OFFS, "/tmp/$$.a.out|") or die "$0: couldn't run \"/tmp/$$.a.out\" - $!\n"; +print TLS_OUT <OFFS>; +close OFFS; +close TLS_OUT; +# unlink "/tmp/$$.cc", "/tmp/$$.a.out"; +exit(0); |