This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix tab/space issue that entered in 17893. AIX.
[metaconfig.git] / U / modified / libc.U
index 411de1f..b67a30d 100644 (file)
@@ -62,6 +62,7 @@
 ?S:.
 ?T:thislib try libnames xxx xscan xrun thisname com tans file
 ?F:!libnames
+?LINT:extern PASE
 ?LINT:extern libnames
 ?LINT:change libnames
 ?LINT:change nm_opt
@@ -384,12 +385,19 @@ else
        fi
 fi
 nm_extract="$com"
-if $test -f /lib/syscalls.exp; then
+case "$PASE" in
+define)
+    echo " "
+    echo "Since you are compiling for PASE, extracting more symbols from libc.a ...">&4
+    dump -Tv /lib/libc.a | awk '$7 == "/unix" {print $5 " " $8}' | grep "^SV" | awk '{print $2}' >> libc.list
+    ;;
+*)  if $test -f /lib/syscalls.exp; then
        echo " "
        echo "Also extracting names from /lib/syscalls.exp for good ole AIX..." >&4
        $sed -n 's/^\([^        ]*\)[   ]*syscall[0-9]*[        ]*$/\1/p' /lib/syscalls.exp >>libc.list
-fi
-?X: remember, indentation is wrong on purpose--RAM
+    fi
+    ;;
+esac
 ;;
 esac
 $rm -f libnames libpath