| Hi!
We have got compiler problems on an ALPHA (i don't think it's a
compiler compatibility problem)
Configuration:
VMS Version: V 6.2-1H3
Pascal Version: V 5.5 ECO 2
The following code compiles on a VAX without problems but accvios on
the mentioned ALPHA:
------------------------------------------------------------------------------
[INHERIT ('sys$share:starlet')]
PROGRAM module_a(output);
[EXTERNAL]
PROCEDURE ExecuteWrite (%REF [ASYNCHRONOUS] PROCEDURE fp;
str: VARYING[v] OF CHAR); EXTERN;
FUNCTION CLG$InternalWrite(str: VARYING[v] OF CHAR): INTEGER;
BEGIN
WRITELN(str);
CLG$InternalWrite := SS$_NORMAL;
END;
VAR
f_ptr : [STATIC, VOLATILE] ARRAY [0..4] OF INTEGER;
ste : VARYING[80] OF CHAR;
BEGIN
f_ptr[0]:=IADDRESS(CLG$InternalWrite);
ste := 'This is a test message !';
ExecuteWrite(%REF f_ptr[0],ste);
END.
------------------------------------------------------------------------------
[INHERIT ('sys$share:starlet')]
MODULE module_b;
[GLOBAL]
EDURE ExecuteWrite (PROCEDURE UserWrite(str: VARYING[v] OF CHAR);
str: VARYING[v] OF CHAR);
BEGIN
UserWrite(str);
END;
END.
------------------------------------------------------------------------------
PROC%SYSTEM-F-ACCVIO, access violation, reason mask=00, virtual
address=00000000
, PC
=00000000, PS=0000001B
%TRACE-F-TRACEBACK, symbolic stack dump follows
image module routine line rel PC abs
PC
0 0000000000000000
0000000000000000
MODULE_A MODULE_B EXECUTEWRITE 10 0000000000000108
00000000000202F8
MODULE_A MODULE_A MODULE_A 24 00000000000001C8
00000000000201C8
0 FFFFFFFF851EC170
FFFFFFFF851EC170
--------------------------------------
Is this a known 5.5 BUG ?
Will it be fixed in the upcomming ECO ?
thanks
Michael
|