[Win32forth-cvs] win32forth-stc/src/kernel gkernel.f,1.25,1.26

[Alex M. <ale...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5713

Modified Files:
	gkernel.f 
Log Message:
arm: further support for type system; cleaner optimisation

Index: gkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/kernel/gkernel.f,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** gkernel.f	13 Nov 2006 00:49:28 -0000	1.25
--- gkernel.f	22 Nov 2006 00:07:14 -0000	1.26
***************
*** 545,550 ****
                  next;
  
- \ -------------------- stack operators -------------------------------
- 
  code sp@        ( -- addr )                   \ get addr of the stack
       0 1 in/out
--- 545,548 ----
***************
*** 799,802 ****
--- 797,801 ----
                  next;
  
+ ((
  code 3reverse   ( n1 n2 n3 -- n3 n2 n1 )
  \ *G exchange first and third items on data stack
***************
*** 818,821 ****
--- 817,844 ----
                  mov 0 [ebp], ecx
                  next;
+ ))
+ 
+ code s-reverse ( n[k]..2 1 0 k -- 0 1 2..n[k] ) \ w32f
+ \ *g reverse n items on stack   \n
+ \ ** usage: 1 2 3 4 5 5 s-reverse ==> 5 4 3 2 1
+      -1 -1 in/out
+                 lea     ecx, -4 [ebp]     \ ecx points 4 under top of stack
+                 lea     eax, 4 [ecx] [eax*4] \ eax points 4 over stack
+                                    \ bump pointers, if they overlap, stop
+ @@1:            sub     eax, # 4          \ adjust top
+                 add     ecx, # 4          \ adjust bottom
+                 cmp     ecx, eax          \ compare
+                 jae     short @@2         \ ecx passing ebx, so exit
+                                           \ rotate a pair
+                 mov     edx, 0 [eax]      \ bottom to edx
+                 xor     0 [ecx], edx      \ exchange top and edx
+                 xor     edx,  0 [ecx]
+                 xor     0 [ecx], edx
+                 mov     0 [eax], edx      \ eax to bottom
+                 jmp     short @@1         \ next pair
+ 
+ @@2:            mov     eax, [ebp]
+                 lea     ebp, 4 [ebp]
+                 next    c;
  
  \ -------------------- Memory operators -------------------------------