develooper Front page | perl.perl5.porters | Postings from July 2001

Re: Report /pro/3gl/CPAN/perl-5.7.1

Thread Previous | Thread Next
From:
Jarkko Hietaniemi
Date:
July 10, 2001 18:42
Subject:
Re: Report /pro/3gl/CPAN/perl-5.7.1
Message ID:
20010710204158.H29419@chaos.wustl.edu
> > with the cc/xlc/vac/whichever settings you have in that AIX box,
> > and see whether compiling threaded breaks this.  By now you should
> > get values like 994775434 for the tv_sec.
> 
> ibm:/pro/3gl/CPAN/perl-5.7.1 102 > cat > try.c
> #include <sys/time.h>
> #include <stdio.h>
> int main()
> {
>   struct timeval tv;
>   int status = gettimeofday(&tv, 0);
>   printf("%ld %ld (%d)\n", (long)tv.tv_sec, (long)tv.tv_usec, status);
>   return 0;
> }
> ibm:/pro/3gl/CPAN/perl-5.7.1 103 > make try.o
> `sh  cflags libperl.a try.o`  try.c
>           CCCMD =  cc_r -DPERL_CORE -c -DDEBUGGING -D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE -qmaxmem=16384 -DNEED_PTHREAD_INIT -I/pro/local/include -O2
> ibm:/pro/3gl/CPAN/perl-5.7.1 104 > make try
> cc_r -L/pro/local/lib  try.o   -o try
> ibm:/pro/3gl/CPAN/perl-5.7.1 105 > ./try
> 994777307 955598 (0)

Now, your new task is to find why does the same thing when compiled as
a part of Perl fail...?  Add debug printf() to the Time::HiRes code,
for example.

> ibm:/pro/3gl/CPAN/perl-5.7.1 106 >

-- 
$jhi++; # http://www.iki.fi/jhi/
        # There is this special biologist word we use for 'stable'.
        # It is 'dead'. -- Jack Cohen

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About