| Title: | DEC Pascal Notes |
| Notice: | See note 1 for kits. Bug reports to CLT::DEC_PASCAL_BUGS |
| Moderator: | TLE::REAGAN |
| Created: | Sat Jan 25 1986 |
| Last Modified: | Tue Jun 03 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 2675 |
| Total number of notes: | 13409 |
The following code produce a bugcheck-dump (access violation) with Rdb 7.0
if the Pascal code is compiled with /DEBUG/NOOPTIMIZE. The same code in
C work fine with the Debugger. Linking without the /DEBUG flag the program
doesn't produce a bugcheckdump.
Pascal: V5.5
OpenVMS Alpha: V7.1
Oracle Rdb: V7.0
PROGRAM:
program test_bugcheck (input, output) ;
VAR
TDS_T_DB_NAME_1 : [GLOBAL] VARYING [100] OF CHAR := 'TDS_DATABASE_1';
DATABASE
DB_1 = [GLOBAL] FILENAME 'TDS_DATABASE_1';
[hidden] procedure check ;
begin
READY DB_1 ;
START_TRANSACTION READ_ONLY WAIT
RESERVING R_PC_PPL_ACT FOR SHARED READ ;
FOR FIRST 1 A IN R_PC_PPL_ACT
WITH A.PERS = "ES$"
AND A.PPL_LOG_NR = 1 ;
writeln ('found') ;
END_FOR ;
COMMIT ;
end ;
begin
check ;
end.
RDB-DEFINITIONS:
Columns for table R_PC_PPL_ACT:
Column Name Data Type Domain
----------- --------- ------
PPL_LOG_NR INTEGER D_PPL_LOG_NR
PPL_LOG_ACT CHAR(6) D_PPL_LOG_ACT
PERS CHAR(3) D_PERS
For me it's not a bug in Rdb. There must be a problem between the
Debugger and Pascal.
/Werner
| T.R | Title | User | Personal Name | Date | Lines |
|---|---|---|---|---|---|
| 2674.1 | TLE::REAGAN | All of this chaos makes perfect sense | Fri May 23 1997 14:59 | 8 | |
Exactly what is the "bugcheck-dump" look like? Can you show me?
Can I see the Pascal output from the precompiler?
I do not have an Rdb system nor do I have your database so it will
be impossible for me to run your program on my system.
-John
| |||||