]>
Commit | Line | Data |
---|---|---|
fd6a6309 TT |
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 |