Table of Contents

MCHKPTR

Table Of Contents

  • [00005] PROC MCHKPTR
  • [00061] PROC XTRACE

Source Code

MCHKPTR.txt 
  1. *DECK MCHKPTR 
  2. USETEXT NIPDEF
  3. USETEXT DEQCOM
  4. USETEXT FREETAB 
  5.  PROC MCHKPTR;                          # CHECK LOCATION MCHK IN MOVED
  6.                                           RANGE OR NOT,UPDATE IT IF YES#
  7.  
  8.  STARTIMS;
  9.  #
  10. *1DC  MCHKPTR 
  11. *     1. PROC NAME           AUTHOR              DATE 
  12. *        MCHKPTR             Y. HSIEH            77/02/10 
  13. * 
  14. *     2. FUNCTIONAL DESCRIPTIONS. 
  15. *        THIS ROUTINE IS RESPONSIBLE FOR CHECKING WHETHER 
  16. *        THE CONTENT OF ITEM MCHK IS IN THE RANGE OF BUFFERS
  17. *        JUST MOVED BY MGBGCLT OR NOT.
  18. *        IF YES, UPDATE MCHG TO THE CORRESPONDING POSITION
  19. *        WITHIN NEW RANGE.
  20. * 
  21. *     3. METHOD USED. 
  22. *        ALL THE PARMETERS ARE IN COMMON BLOCKS IN NIP LOW CORE.
  23. *        FOR OVERLAPPING CASE, DO NOT UPDATE MCHG IF IT IS UPDATED
  24. *        BY THE PRECEEDING BUFFER IN THE RANGE JUST MOVED.
  25. * 
  26. *     4. ENTRY PARAMETERS.   NONE 
  27. * 
  28. *     5. EXIT PARAMETER.
  29. *          MCHG              LOCATION IN MOVED RANGE WILL BE UPDATED. 
  30. * 
  31. *     6. COMDECKS CALLED AND SYMPL TEXTS USED.
  32. *        FREETAB     NIPDEF     OSIZE 
  33. * 
  34. *     7. ROUTINES CALLED. 
  35. *          XTRACE            RECORD CALL
  36. * 
  37. *     8. DAYFILE MESSAGES.   NONE 
  38. * 
  39. *        W A R N I N G - THE TOTAL SIZE OF THE GARBAGE COLLECTION 
  40. *                        ROUTINES (MAJPTR, MCHKPTR,MGBGCLT, 
  41. *                        MDRPTR, AND XCHKPCR) WITH THE DELAY
  42. *                        OPTION TURNED ON 
  43. *                        CAN NOT EXCEED THE PRIMARY AND SECONDARY 
  44. *CALL OSIZE 
  45. * 
  46. *        THIS PROCEDURE IS CALLED BY MAJPTR 
  47. * 
  48.  #
  49.  STOPIMS; 
  50. # 
  51.  PARAMETERS 
  52. # 
  53. #                  INPUT PARAMETERS                                    #
  54.                              # NONE                                    #
  55. #                  OUTPUT PARAMETERS                                   #
  56. #     ITEM MCHG                WILL BE CHANGED IF IN MOVED RANGE       #
  57. # 
  58.  EXTERNAL VARIABLES 
  59. # 
  60.  XREF BEGIN 
  61.       PROC XTRACE;           # RECORD CALL                             #
  62.       END 
  63. # 
  64.  LOCAL VARIABLES               NONE 
  65. # 
  66. #**********************************************************************#
  67.       BEGIN 
  68.       CONTROL IFEQ DEBUG,1; 
  69.          XTRACE("MCHKP") ;
  70.       CONTROL FI; 
  71.  
  72.       IF MCHG GQ MOLD AND MCHG LS MSIZE AND MCHG GR MCUR
  73.       THEN
  74.         BEGIN 
  75.         MCHG = MNEW + MCHG - MOLD;
  76.         END 
  77.  
  78.       RETURN; 
  79.       END 
  80. TERM