[Info-vax] Debugging a Pascal program under VMS V9.2-2

Chris Townley news at cct-net.co.uk
Thu Apr 4 19:07:41 EDT 2024


On 04/04/2024 23:26, Single Stage to Orbit wrote:
> OK this is strange and maybe I've misundersood something but basically
> I can't exmaine values of variables, as below.
> 
> ─ SRC: module START_RECEIVER -scroll-
> source─────────────────────────────────────────────────────────────────
> ────────────────────────
>      39: End;
>      40:
>      41: (* Declaration of lib$get_symbol *)
>      42: Procedure lib$get_symbol ( %DESCR symbol : Varying [$l1] of
> char;
>      43:                            %DESCR value  : Varying [$l2] of
> char); external;
>      44:
>      45:
>      46: Var
>      47:   username : Varying [15] of char;
>      48:   output_dev : Varying [16] of char;
>      49:
>      50: Begin
> ->  51:   translate_logical('NWAY$PATH',pathname);
>      52:   translate_logical('SYS$OUTPUT',output_dev);
>      53:   translate_logical('STARTREC$USERNAME',username);
>      54:   username := username + '_NetV2';
>      55:   status := $CREPRC( image := pathname + 'REC.EXE',
>      56:            output := output_dev,
>      57:            baspri := 3,
>      58:            prcnam := username );
>      59: End.
> ─ OUT -
> output─────────────────────────────────────────────────────────────────
> ──────────────────────────────────────────────────────
> stepped to START_RECEIVER\START_RECEIVER\%LINE 51
>      51:   translate_logical('NWAY$PATH',pathname);
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> ─ PROMPT -error-program-
> prompt─────────────────────────────────────────────────────────────────
> ─────────────────────────────────────
> DBG> examine username
> Debugger error in RSTTYPES\DBG$STA_SYMTYPE or session corruption
> DBG> examine output_dev
> Debugger error in RSTTYPES\DBG$STA_SYMTYPE or session corruption
> DBG>
> DBG>
> 
> 
> Versions in use -
> 
> OpenVMS x86 V9.2-2
> DEBUG V9.2-009
> PASCAL: V6.3-143 (GEM 50XC4)
> 
> I have checked and I have definitely compiled the program with /DEBUG
> /NOOPTIMIZE, and linked using /DEBGU
> 
> Any ideas?


Did you try linking /DEBUG ?

;}

-- 
Chris




More information about the Info-vax mailing list