Changes between Version 1 and Version 2 of Ticket #336


Ignore:
Timestamp:
06/03/2024 10:06:27 PM (2 years ago)
Author:
Gary Dixon
Comment:

Legend:

Unmodified
Added
Removed
Modified

  • Ticket #336 – Description

    v1 v2  
    1616A >ldd>sss>source>bound_ssu_.s.archive::ssu_invocation_.pl1 (original)
    1717B >user_dir_dir>Multics>GDixon>work>ssu_parms>ssu_invocation_.pl1 (new)
     18
     19
     20A123      dcl  (addr, codeptr, null, pointer, rtrim, stackframeptr, string) builtin;
     21Changed by B to:
     22B131      dcl  (addr, codeptr, null, pointer, rtrim, segno, stackframeptr, string) builtin;
    1823
    1924
    … …  
    5055A606                     go to SWITCH_SSU_REQUEST_TABLES_REFNAME;     /* wrong object segment */
    5156Changed by B to:
    52 B583                ename = "";
    53 B584                call hcs_$fs_get_seg_ptr ("ssu_et_", other_ssu_ptr, code);
    54 B585                if (code ^= 0) then do;                           /* didn't find the refname at all */
    55 B586      SWITCH_SSU_ET_REFNAME:
    56 B587                     call hcs_$fs_get_path_name (codeptr (ssu_invocation_), dirname, (0), ename, (0));
    57 B588                     if ename ^= "bound_ssu_" then return;        /* skip all these tests if ssu_invocation_ is unbound */
    58 B589                     call term_$single_refname ("ssu_et_", (0));  /* terminate it, whether initiated or not */
    59 B590                     call hcs_$initiate (dirname, ename, "ssu_et_", 0, 0, (null ()), (0));
    60 B591                end;
    61 B592                else if pointer (other_ssu_ptr, 0) ^= pointer (codeptr (ssu_invocation_), 0) then go to SWITCH_SSU_ET_REFNAME;
    62 B593                                                                  /* wrong object segment */
    63 B594     
    64 B595                call hcs_$fs_get_seg_ptr ("ssu_requests_", other_ssu_ptr, code);
    65 B596                if (code ^= 0) then do;                           /* didn't find the refname at all */
    66 B597      SWITCH_SSU_REQUESTS_REFNAME:
    67 B598                     if ename = "" then
    68 B599                          call hcs_$fs_get_path_name (codeptr (ssu_invocation_), dirname, (0), ename, (0));
    69 B600                     if ename ^= "bound_ssu_" then return;        /* skip all these tests if ssu_invocation_ is unbound */
    70 B601                     call term_$single_refname ("ssu_requests_", (0));
    71 B602                                                                  /* terminate it, whether initiated or not */
    72 B603                     call hcs_$initiate (dirname, ename, "ssu_requests_", 0, 0, (null ()), (0));
    73 B604                end;
    74 B605                else if pointer (other_ssu_ptr, 0) ^= pointer (codeptr (ssu_invocation_), 0) then
    75 B606                     go to SWITCH_SSU_REQUESTS_REFNAME;           /* wrong object segment */
    76 B607     
    77 B608                call hcs_$fs_get_seg_ptr ("ssu_request_tables_", other_ssu_ptr, code);
    78 B609                if (code ^= 0) then do;                           /* didn't find the refname at all */
    79 B610      SWITCH_SSU_REQUEST_TABLES_REFNAME:
    80 B611                     if ename = "" then
    81 B612                          call hcs_$fs_get_path_name (codeptr (ssu_invocation_), dirname, (0), ename, (0));
    82 B613                     if ename ^= "bound_ssu_" then return;        /* skip this test if ssu_invocation_ is unbound */
    83 B614                     call term_$single_refname ("ssu_request_tables_", (0));
    84 B615                                                                  /* terminate it, whether initiated or not */
    85 B616                     call hcs_$initiate (dirname, ename, "ssu_request_tables_", 0, 0, (null ()), (0));
    86 B617                end;
    87 B618                else if pointer (other_ssu_ptr, 0) ^= pointer (codeptr (ssu_invocation_), 0) then
    88 B619                     go to SWITCH_SSU_REQUEST_TABLES_REFNAME;     /* wrong object segment */
     57B584                ename = "";
     58B585                call hcs_$fs_get_seg_ptr ("ssu_et_", other_ssu_ptr, code);
     59B586                if (code ^= 0) then do;                           /* didn't find the refname at all */
     60B587      SWITCH_SSU_ET_REFNAME:
     61B588                     call hcs_$fs_get_path_name (codeptr (ssu_invocation_), dirname, (0), ename, (0));
     62B589                     if ename ^= "bound_ssu_" then return;        /* skip all these tests if ssu_invocation_ is unbound */
     63B590                     call term_$single_refname ("ssu_et_", (0));  /* terminate it, whether initiated or not */
     64B591                     call hcs_$initiate (dirname, ename, "ssu_et_", 0, 0, (null ()), (0));
     65B592                end;
     66B593                else if segno (other_ssu_ptr) ^= segno (codeptr (ssu_invocation_)) then go to SWITCH_SSU_ET_REFNAME;
     67B594                                                                  /* wrong object segment */
     68B595     
     69B596                call hcs_$fs_get_seg_ptr ("ssu_requests_", other_ssu_ptr, code);
     70B597                if (code ^= 0) then do;                           /* didn't find the refname at all */
     71B598      SWITCH_SSU_REQUESTS_REFNAME:
     72B599                     if ename = "" then
     73B600                          call hcs_$fs_get_path_name (codeptr (ssu_invocation_), dirname, (0), ename, (0));
     74B601                     if ename ^= "bound_ssu_" then return;        /* skip all these tests if ssu_invocation_ is unbound */
     75B602                     call term_$single_refname ("ssu_requests_", (0));
     76B603                                                                  /* terminate it, whether initiated or not */
     77B604                     call hcs_$initiate (dirname, ename, "ssu_requests_", 0, 0, (null ()), (0));
     78B605                end;
     79B606                else if segno (other_ssu_ptr) ^= segno (codeptr (ssu_invocation_)) then
     80B607                     go to SWITCH_SSU_REQUESTS_REFNAME;           /* wrong object segment */
     81B608     
     82B609                call hcs_$fs_get_seg_ptr ("ssu_request_tables_", other_ssu_ptr, code);
     83B610                if (code ^= 0) then do;                           /* didn't find the refname at all */
     84B611      SWITCH_SSU_REQUEST_TABLES_REFNAME:
     85B612                     if ename = "" then
     86B613                          call hcs_$fs_get_path_name (codeptr (ssu_invocation_), dirname, (0), ename, (0));
     87B614                     if ename ^= "bound_ssu_" then return;        /* skip this test if ssu_invocation_ is unbound */
     88B615                     call term_$single_refname ("ssu_request_tables_", (0));
     89B616                                                                  /* terminate it, whether initiated or not */
     90B617                     call hcs_$initiate (dirname, ename, "ssu_request_tables_", 0, 0, (null ()), (0));
     91B618                end;
     92B619                else if segno (other_ssu_ptr) ^= segno (codeptr (ssu_invocation_)) then
     93B620                     go to SWITCH_SSU_REQUEST_TABLES_REFNAME;     /* wrong object segment */
    8994}}}
    9095