From 5376263984dd287d6460e4039dc9ffd375c87818 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Wed, 26 Aug 2009 19:56:22 -0500 Subject: [PATCH] more inlines on struct-arrays to make the optimizing go down smoother --- basis/struct-arrays/struct-arrays.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/struct-arrays/struct-arrays.factor b/basis/struct-arrays/struct-arrays.factor index 0f03c58212..97d952f845 100755 --- a/basis/struct-arrays/struct-arrays.factor +++ b/basis/struct-arrays/struct-arrays.factor @@ -13,8 +13,8 @@ TUPLE: struct-array { element-size array-capacity read-only } { class read-only } ; -M: struct-array length length>> ; -M: struct-array byte-length [ length>> ] [ element-size>> ] bi * ; +M: struct-array length length>> ; inline +M: struct-array byte-length [ length>> ] [ element-size>> ] bi * ; inline : (nth-ptr) ( i struct-array -- alien ) [ element-size>> * ] [ underlying>> ] bi ; inline @@ -23,7 +23,7 @@ M: struct-array nth-unsafe [ (nth-ptr) ] [ class>> dup struct-class? ] bi [ memory>struct ] [ drop ] if ; inline M: struct-array set-nth-unsafe - [ (nth-ptr) swap ] [ element-size>> ] bi memcpy ; + [ (nth-ptr) swap ] [ element-size>> ] bi memcpy ; inline M: struct-array new-sequence [ element-size>> [ * ] 2keep ]