|
Last change
on this file was 132, checked in by cinc, 19 years ago |
|
Boehm-Demers-Weiser garbage collector. Single-threaded for OS/2.
|
|
File size:
487 bytes
|
| Line | |
|---|
| 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
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
