Lines Matching +full:open +full:- +full:pic
1 #!/usr/perl5/bin/perl -w
34 # The dynamic profiling is done by running ldd -r on the binary with
79 if (! defined($working_dir) || ! -d $working_dir) {
113 if (defined($tmp_prof_dir) && -d $tmp_prof_dir) {
127 if (! -d $tmp_prof_dir) {
135 # - $dir will be each one of these object directories.
136 # - $path_to_object will be the corresponding actual path
141 my $cnt = -1;
154 if (! -f $path_to_object) {
168 if (! $block_max || $last_i >= $binary_count - 1) {
202 open($static_prof_fh, ">$outfile") ||
217 system("$appcert_lib_dir/static_prof", '-p', '-s', '-o', $outfile,
221 open($static_prof_fh, ">$outfile") ||
227 # static linking problems only occur for 32-bit
233 if (open($elfdump_fh, "$cmd_elfdump -s -N .dynsym '$object' " .
278 open($dtneeded_fh, ">$dtneeded") ||
281 open($static_prof_fh, "<$outfile") ||
326 open($profile_error_fh, ">>$errfile") ||
336 open($profile_fh, ">$outfile") ||
380 # - less models to maintain. Note the symlink
382 # - libc_psr.so.1 is versioned, but we would be
433 # So, unless we open a model file while
447 # - more models to maintain.
489 open($profile_msg_fh, ">>$outfile") ||
515 # - we apply the library FILTER_AUX aliases in %filter_map
516 # - for shared objects we resolve symbolic links to the actual
518 # - we may be in a mode where we do not store full paths of
556 # should have no single-quote characters. We double check it does not
560 exiter(norunprog("|$cmd_sort -t'|' +1 | $cmd_uniq >> '$outfile'"));
564 open($prof_fh, "|$cmd_sort -t'|' +1 | $cmd_uniq >> '$outfile'") ||
565 exiter(norunprog("|$cmd_sort -t'|' +1 | $cmd_uniq >> '$outfile'",
569 "|$cmd_sort -t'|' +1 | $cmd_uniq >> '$outfile'", $!));
687 # ignore no bindings warning for non-ELF
698 "|$cmd_sort -t'|' +1 | $cmd_uniq >> '$outfile'", $!));
705 open($objects_fh, ">$outfile") || exiter(nofile($outfile, $!));
725 open($ldd_prof_fh, ">$outfile") || exiter(nofile($outfile, $!));
760 if (! -f $profile || ! open($profile_fh, "<$profile")) {
788 if (! open($all_neededs_fh, "<$profile")) {
811 "re-profiling binary objects with unbound symbols") . " ...\n");
831 if (! -f $path_to_object) {
902 if (exists($uref->{$dir2})) {
903 $cnt = $uref->{$dir2};
927 "re-profiling: %s\n" .
933 if (! -f $profile) {
938 open($prof_try_fh, "<$profile") ||
981 if (! rename($profile, "$profile.0") || ! -f "$profile.0") {
985 if (! open($prof_orig_fh, "<$profile.0")) {
990 if (! open($prof_fh, ">$profile")) {
1074 # file=/usr/platform/SUNW,Ultra-1/\
1251 # file=/usr/platform/SUNW,Ultra-1/lib/libc_psr.so.1; \
1280 # LD_DEBUG output does not indicate this, so dump -Lv is run on it
1373 # This routine runs ldd -r on the object file with LD_DEBUG flags turned
1383 # If there is some non-fatal error, it returns a 1-line string like:
1384 # ERROR: <error-message>
1393 if (! -f $object) {
1405 # confused and believes it is inside a C-style /* comment */
1410 # Output files for collecting output of the ldd -r command:
1433 "cannot fork for command: ldd -r %s: %s\n"), $object, $!));
1438 open(STDOUT, ">$outfile") ||
1441 open(STDERR, ">$errfile") ||
1457 # Run ldd -r:
1459 exec($cmd_ldd, '-r', $object);
1469 if (-s $errfile) {
1472 if (open($errfile_fh, "<$errfile")) {
1495 emsg("%s", norunprog("$cmd_ldd -r $object", "$msg\n"));
1499 "Error running: ldd -r LD_DEBUG: %s"), $msg);
1510 if (-f "$tmpdir/stdout") {
1512 if (! open($out_fh, "<$tmpdir/stdout")) {
1531 # Open it for reading:
1533 if (! open($ldd_file_fh, "<$file")) {
1562 # uniq'ing of the output. Non-PIC objects have
1588 $aok = 1 if ($idx != -1);
1628 "SUID - ldd(1) LD_DEBUG profile failed");
1631 "SGID - ldd(1) LD_DEBUG profile failed");