Débogage Alpha BASIC pour OpenVMS

Question

J'essaie de reprendre certains projets impliquant DEC BASIC, A.K.A. VAX BASIC, A.K.A. Alpha BASIC. J'espère vraiment rencontrer quelqu'un avec de l'expérience ici. J'ai traversé le manuel d'utilisation pour VAX/Alpha BASIC à travers et bien que je ne peux pas comprendre comment déboguer le code partageable.

Je peux créer, compiler et lier du code partageable, je peux déboguer le code qui fait référence au code partageable, mais je ne peux pas déboguer le code partageable. Toute aide serait grandement appréciée.

Les commandes que je utilise pour compiler et lier sont:

$ BASIC/DEBUG/NOOPTIMIZE COMPARE_DATES_TEST.BAS,COMPARE_DATES.BAS 
$ LINK/SHAREABLE/DEBUG COMPARE_DATES.OBJ,COMPARE_DATES_SUB/OPT 
$ LINK/DEBUG COMPARE_DATES_TEST,COMPARE_DATES_MAIN/OPT 
$ RUN COMPARE_DATES_TEST 

Le contenu des deux fichiers d'options sont:

$ type COMPARE_DATES_SUB.OPT 
! COMPARE_DATES_SUB.OPT 
SYMBOL_VECTOR=(COMPARE_DATES=PROCEDURE) 
$ type COMPARE_DATES_MAIN.OPT 
! COMPARE_DATES_MAIN.OPT 
COMPARE_DATES/SHAREABLE 

Mon code partageable a un bug, mais je ne le font pas savoir où, les rapports de débogage:

— SRC: module COMPARE_DATES_TEST$MAIN -scroll-source———————————————————————————— 
    1: EXTERNAL INTEGER FUNCTION COMPARE_DATES(STRING,STRING) 
    2: DECLARE STRING A$, B$ 
    3: A$ = "01-APR-18" 
    4: B$ = "15-MAY-2017" 
    5: 
-> 6: PRINT COMPARE_DATES(A$, B$) 
    7: END 
— OUT -output——————————————————————————————————————————————————————————————————— 
stepped to COMPARE_DATES_TEST$MAIN\COMPARE_DATES_TEST$MAIN\%LINE 3 
stepped to COMPARE_DATES_TEST$MAIN\COMPARE_DATES_TEST$MAIN\%LINE 4 
stepped to COMPARE_DATES_TEST$MAIN\COMPARE_DATES_TEST$MAIN\%LINE 6 
%BAS-F-SUBOUTRAN, Subscript out of range 
-BAS-I-FROFUN, In external function COMPARE_DATES 
-BAS-I-FROMOD, In module COMPARE_DATES_TEST 
break on unhandled exception preceding 18446744071563830960 
— PROMPT -error-program-prompt—————————————————————————————————————————————————— 
%DEBUG-I-SOURCESCOPE, source lines not available for %PC in scope number 0 
     Displaying source for 6\%PC 
DBG> 

Answer 1

Trop long pour un commentaire: Vous avez compilé avec /NOOPTIMIZE , donc je m'attendais à ce qu'un STEP/INTO à la ligne 6, PRINT COMPARE_DATES(A$, B$), serait passé à COMPARE_DATES dans votre image partageable. Je ne sais pas pourquoi ce n'est pas le cas ici. Le débogueur a raison, vous n'avez pas les sources pour DEC$BASRTL. Votre image partageable n'est pas installée, elle se trouve dans votre espace d'adressage. Il semble que PRINT a des problèmes avec l'argument passé. Je voudrais essayer un SET IMAGE COMPARE_DATES; SET MODULE/ALL; SET BREAK COMPARE_DATES à l'invite de débogage initiale. Cela fait connaître tous les symboles de débogage de l'image partageable et définit un point d'arrêt dans votre fonction. Et puis un GO devrait vous mettre dans votre fonction. (J'ai remarqué que vous avez les mêmes noms pour la fonction, le module source et l'image partageable Cela ne devrait pas poser de problème.)