[prev in list] [next in list] [prev in thread] [next in thread] 

List:       hpux-devtools
Subject:    Re: HPUX-DEVTOOLS: Using perl from Q4 to get & print 64 bit
From:       "Rich Rauenzahn" <rrauenza () cup ! hp ! com>
Date:       2003-03-31 18:02:25
[Download RAW message or body]

Disclaimer -- I know about ZERO about Q4, but know a lot about Perl.

> BUT...64 bit values are mangled and truncated to 32 bits.  Which, uh, 
> reduces the usefulness of the information ;-).
> 
> Can anybody clarify how one would go about setting a variable in a perl 
> script to a 64 bit value from q4?
> 
> Currently I'm doing this sort of thing:
> 
>      sub doPrint64 {
> 
>     my($buf_addr);
> 
>         &PushHistory();
> 
>       $buf_addr = &Evaluate('&dbTbuf');
> 
>     printf(STDOUT "dbTbuf %p\n",$buf_addr);
> 
>       &PopHistory();
>      }
> 

If you can somehow get a buffer of bytes into your perl script (i.e., the
binary representation) -- you could use unpack() to unpack the bits
into a scalar variable.

Rich
 _________________________________________________________________
 To leave this mailing list, send mail to majordomo@cxx.cup.hp.com
    with the message UNSUBSCRIBE hpux-devtools
 _________________________________________________________________
[prev in list] [next in list] [prev in thread] [next in thread]