handle a -s option by executing sstrip/strip program

1 files changed, 14 insertions, 0 deletions

diff --git a/tccelf.c b/tccelf.c
index 0adc3dc..5ca5089 100644
--- a/tccelf.c
+++ b/tccelf.c
@@ -2689,6 +2689,20 @@ static int elf_output_file(TCCState *s1, const char *filename)
 
     /* Create the ELF file with name 'filename' */
     ret = tcc_write_elf_file(s1, filename, phnum, phdr, file_offset, sec_order);
+    if (s1->do_strip) {
+	const char *strip = "sstrip "; // super strip utility from ELFkickers
+	const char *null = " 2> /dev/null";
+	int len = strlen(strip) + strlen(filename) + strlen(null) + 1;
+	{
+	    int rc;
+	    char buf[len];
+	    sprintf(buf, "%s%s%s", strip, filename, null);
+	    rc = system(buf);
+	    if (rc) {
+		system(buf+1);	// call a strip utility from binutils
+	    }
+	}
+    }
  the_end:
     tcc_free(s1->symtab_to_dynsym);
     tcc_free(sec_order);