Subject: | |
From: | |
Reply To: | Keven Miller (rtt) |
Date: | Sun, 18 Feb 2007 23:43:38 -0700 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
BADDRESS does indeed return an 8 byte (32 bit) address,
in Native mode.
:pasxllk t1,t1p
PAGE 1 HP PASCAL/iX HP31502A.05.02 COPYRIGHT HEWLETT-PACKARD CO. 1986
SUN, FEB 18, 2007, 11:32 PM
0 1.000 0 PROGRAM TEST (OUTPUT);
0 2.000 0
0 3.000 0 PROCEDURE wake_up;
1 4.000 0 TYPE
1 5.000 0 integer = -32768..32767;
2 6.000 0 array10i1 = ARRAY [1..10] OF integer;
3 7.000 0 x8 = PACKED ARRAY [1..8] OF char;
4 8.000 0 VAR
4 9.000 0 inum, item : array10i1;
6 10.000 0 fname : x8;
7 11.000 1 BEGIN
7 12.000 1 fname := 'FILENAM';
8 13.000 1 fname[8]:= CHR(13);
9 14.000 1 inum[1] := 3;
10 15.000 1 item[1] := BINARY('0000000000100001');
11 16.000 1 inum[2] := 10;
12 17.000 1 item[2] := BINARY('0000000000000000');
13 18.000 1 inum[3] := 9;
14 19.000 1
14 20.000 1 WRITELN ( 'Fname=', BADDRESS(fname) );
15 21.000 1
15 22.000 1 item[3] := BADDRESS(fname);
16 23.000 1 inum[4] := 0; { Last item }
17 24.000 1 END;
0 25.000 1 BEGIN
0 26.000 1 wake_up;
1 27.000 1 END.
NUMBER OF ERRORS = 0 NUMBER OF WARNINGS = 0
PROCESSOR TIME 0: 0: 0 ELAPSED TIME 0: 0: 0
NUMBER OF LINES = 27 LINES/MINUTE = 4462.8
NUMBER OF NOTES = 0
END OF COMPILE
HP Link Editor/iX (HP30315A.06.17) Copyright Hewlett-Packard Co 1986
LinkEd> link from=$oldpass;to=t1p
END OF LINK
:t1p
Fname= 1099244072
**** Bound violation or range error (TRAPS 12).
ABORT: T1P.PTOC.KEVENM
PC=30c.00005194 wake_up+$d8
* 0) SP=41852270 RP=30c.000052f0 _start+$84
1) SP=418521b0 RP=30c.00000000
(end of NM stack)
$2 ($57) nmdebug > **** PROCESS ABORT INTERACTIVE DEBUG FACILITY ****
$3 ($57) nmdebug > c
Program terminated in an error state. (CIERR 976)
:calc 1099244072
1099244072, $41852228, %10141221050
:
Note the hex equivalent appears to be a valid data address, in Native mode.
These parameters and values are very familiar, as if your trying
to call CREATEPROCESS.
Please note that in Native mode CREATEPROCESS,
the item-numbers, and items, are suppose to be 32-bit integer arrays.
Keven Miller
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
|
|