1
by Ryan Murray
Import upstream version 6.0+6.1alpha4 |
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$ |
|
11 |
||
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
|