From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: ** X-Spam-Status: No, score=2.5 required=5.0 tests=BAYES_00,LONGWORDS, TO_NO_BRKTS_PCNT autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,cb2bc43e6f95a4fe,start X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2003-05-29 14:18:59 PST Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed.icl.net!newsfeed.fjserv.net!kibo.news.demon.net!news.demon.co.uk!demon!not-for-mail From: "Luke A. Guest" Newsgroups: comp.lang.ada Subject: It's been a while... Date: Thu, 29 May 2003 22:18:53 +0100 Message-ID: NNTP-Posting-Host: abyss2.demon.co.uk Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 8bit X-Trace: news.demon.co.uk 1054243138 3744 62.49.62.197 (29 May 2003 21:18:58 GMT) X-Complaints-To: abuse@demon.net NNTP-Posting-Date: Thu, 29 May 2003 21:18:58 +0000 (UTC) User-Agent: Pan/0.13.4 (She had eyes like strange sins.) Xref: archiver1.google.com comp.lang.ada:38017 Date: 2003-05-29T22:18:53+01:00 List-Id: Hi, I learned Ada at University around 1995 and I've been interested in getting back into it. Now, I have a simple "hello" app and it is huge. Now, I don't want to have a load of people telling me not to judge Ada on the size, but I really want to know how to get the app size down. The app is: -rwxr-xr-x 1 laguest users 200492 2003-05-29 22:16 hello This is an example program from the sources, compiled with: gnatmake -O3 and Ihave used "strip" to get rid of the debug symbols, and the app size is: -rwxr-xr-x 1 laguest users 73292 2003-05-29 22:17 hello but, if I do this: strings hello, I get the following: /lib/ld-linux.so.2 libc.so.6 strcpy waitpid stdout utime ungetc sigemptyset getenv getpid memcpy setvbuf readlink feof malloc isatty __frame_state_for readdir fflush putenv abort fprintf strcat __deregister_frame_info fseek stdin mktime ferror strstr strncpy unlink realloc _IO_getc fork execv sigaction fread symlink localtime memset clearerr getppid tcgetattr ttyname getcwd fgetc sprintf fclose scanf stderr mkstemp fputc localtime_r fwrite __xstat rewind freopen __fxstat fopen atoi _IO_putc fileno _IO_stdin_used _exit gmtime __libc_start_main __register_frame_info_table tcsetattr __register_frame_info free __gnat_handler_installed __gl_wc_encoding __dummy program_error __gl_unreserve_all_interrupts gnat_argc gnat_envp __gl_exception_tracebacks __gl_restrictions __gl_main_priority __gl_locking_policy __gl_task_dispatching_policy system__soft_links__get_machine_state_addr max_path_len gnat_argv __gl_zero_cost_exceptions __gl_queuing_policy __gl_time_slice_val gnat_exit_status constraint_error storage_error __gmon_start__ GLIBC_2.1 GLIBC_2.0 PTRh j j j jbj (WVS ~&V gfff gfff 8C9M \WVS (WVS 0WVS PRQh PRQh PRQh PRQS TWVS gfff gfff \WVS $WVS 8_t5 8_u; j;h8z t!VS t_WV t*WS RPh< RPht RPh< RPht RPh< RPht RPh< RPh< RPht RPhL RPh< RPht RPhL RPh< RPht RPhL RPh< RPht RPhL RPh< RPht RPhL RPh< RPht RPh< RPht RPh< RPh< RPht RPh< RPht RPh< RPht RPh< RPht 9C0~ RPh< RPht 9P0~ RPh< RPht t29u RPh< RPht 9G,~ G,PVW RPht RPht 9s0~ 9s0| RPhL RPh< RPht RPh< RPht 9s,tiS 9s,~ S 9s,}% 9s,| 9s,u RPh< RPht RPh< RPht RPh< RPht RPh< RPht RPhL RPh< RPht RPhL RPht t!VS t_WV t*WS $WVS WVSj jGh(} RPh< RPh< RPht RPh< RPht WVS RPh< RPh< RPhL j8PR RPh< RPh< RPh< RPht RPh< RPht WVS jzhd WVS $hd WVS WVS $h|1 $hl5 j.h% j7h% j@h%