Move FILL to assembler

davazp · Apr 15, 2012 · 595dcc8 · 595dcc8
1 parent bea598a
commit 595dcc8
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 3 deletions.
diff --git a/core.fs b/core.fs
@@ -428,9 +428,6 @@
 : min
     2dup > if nip else drop then ;
 
-: fill ( c-addr u c -- )
-    -rot 0 ?do 2dup c! 1+ loop 2drop ;
-
 : pick  ( xn ... x0 u -- xn ... x0 xu )
     1+ cells sp + @ ;
 

diff --git a/forth.S b/forth.S
@@ -437,6 +437,18 @@ BUILTIN_WORD_NAME(cmove_to, "cmove>")
 END_WORD(cmove_to)
 
 
+BUILTIN_WORD(fill)
+        pushl %edi
+        movl (%esi), %eax
+        movl 4(%esi), %ecx
+        movl 8(%esi), %edi
+        rep stosb
+        popl %edi
+        addl $12, %esi
+        ret
+END_WORD(fill)
+
+
 /* port -- n */
 BUILTIN_WORD(inputb)
         xorl %eax, %eax
@@ -577,6 +589,16 @@ BUILTIN_WORD_NAME(divide, "/")
 END_WORD(divide)
 
 
+BUILTIN_WORD_NAME(udivide, "u/")
+        xorl %edx, %edx
+        movl 4(%esi), %eax
+        divl (%esi)
+	addl $4, %esi
+        movl %eax, (%esi)
+        ret
+END_WORD(udivide)
+
+
 BUILTIN_WORD(mod)
         movl 4(%esi), %eax
         cdq