From d3ec94b5c9ea5c8a5fd3e2a5989efd5df6d0b6f0 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Thu, 15 Oct 2009 05:43:28 -0500 Subject: [PATCH] cpu.x86: just a cleanup --- basis/cpu/x86/x86.factor | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/basis/cpu/x86/x86.factor b/basis/cpu/x86/x86.factor index af2d75f02d..abe6d308b8 100644 --- a/basis/cpu/x86/x86.factor +++ b/basis/cpu/x86/x86.factor @@ -387,6 +387,12 @@ M: x86 %vm-field-ptr ( dst field -- ) : store-tagged ( dst tag -- ) tag-number OR ; +: load-cards-offset ( dst -- ) + 0 MOV rc-absolute-cell rel-cards-offset ; + +: load-decks-offset ( dst -- ) + 0 MOV rc-absolute-cell rel-decks-offset ; + M:: x86 %allot ( dst size class nursery-ptr -- ) nursery-ptr dst load-allot-ptr dst class store-header @@ -399,12 +405,12 @@ M:: x86 %allot ( dst size class nursery-ptr -- ) ! Mark the card temp1 card-bits SHR - temp2 0 MOV rc-absolute-cell rel-cards-offset + temp2 load-cards-offset temp2 temp1 [+] card-mark MOV ! Mark the card deck temp1 deck-bits card-bits - SHR - temp2 0 MOV rc-absolute-cell rel-decks-offset + temp2 load-decks-offset temp2 temp1 [+] card-mark MOV ; M: x86 %write-barrier ( src slot temp1 temp2 -- ) (%write-barrier) ;