[Search for users]
[Overall Top Noters]
[List of all Conferences]
[Download this site]
| Title: | DEC Pascal Bug Reports |
| Notice: | New kit announcement in TURRIS::Pascal conference |
| Moderator: | TLE::GARRISON |
|
| Created: | Wed Sep 09 1992 |
| Last Modified: | Fri May 30 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 838 |
| Total number of notes: | 3659 |
838.0. "immediate unsigned parameter isn't sign-extended" by TLE::REAGAN (All of this chaos makes perfect sense) Wed May 21 1997 11:22
The following program doesn't sign-extend the pos_d1 unsigned
value into the 64-bit immediate argument. I'm pretty sure it
has something to do with the face that GEM calls POW_QQ for
even 32-bit IPWRs and the sign-extending code is skipped.
[inherit('sys$library:starlet','sys$library:pascal$lib_routines')]
program test(input,output);
var status, d1, pos_d1 : unsigned;
begin
status := lib$get_ef(d1);
status := $clref(d1);
pos_d1 := 2 ** (d1-32);
status := $wflor(d1,pos_d1);
end.
R17 passed to $WFLOR is 0000000080000000 instead of FFFFFFFF80000000
-John
| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 838.1 | | TLE::REAGAN | All of this chaos makes perfect sense | Thu May 22 1997 10:28 | 4 |
| I reported this to GEM and they have fixed it. The upcoming V5.6 SSB
release will contain the fix.
-John
|