root/gc/hpux_test_and_clear.s

   1         .SPACE $PRIVATE$
   2         .SUBSPA $DATA$,QUAD=1,ALIGN=8,ACCESS=31
   3         .SUBSPA $BSS$,QUAD=1,ALIGN=8,ACCESS=31,ZERO,SORT=82
   4         .SPACE $TEXT$
   5         .SUBSPA $LIT$,QUAD=0,ALIGN=8,ACCESS=44
   6         .SUBSPA $CODE$,QUAD=0,ALIGN=8,ACCESS=44,CODE_ONLY
   7         .IMPORT $global$,DATA
   8         .IMPORT $$dyncall,MILLICODE
   9         .SPACE $TEXT$
  10         .SUBSPA $CODE$
  12         .align 4
  13         .EXPORT GC_test_and_clear,ENTRY,PRIV_LEV=3,ARGW0=GR,RTNVAL=GR
  14 GC_test_and_clear
  15         .PROC
  16         .CALLINFO FRAME=0,NO_CALLS
  17         .ENTRY
  18         ldcw,co (%r26),%r28
  19         bv,n 0(%r2)
  20         .EXIT
  21         .PROCEND