[Win32forth-cvs] win32forth/src PRIMHASH.F,1.2,1.3

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18976/win32forth/src

Modified Files:
	PRIMHASH.F 
Log Message:
gah:  optimized cfacode for methods

Index: PRIMHASH.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/PRIMHASH.F,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** PRIMHASH.F	18 Apr 2005 17:39:42 -0000	1.2
--- PRIMHASH.F	19 May 2005 07:49:22 -0000	1.3
***************
*** 43,51 ****
  
  CFA-CODE M0CFA
!                 xchg    esp, ebp
!                 push    esi
!                 push    OP [UP]
!                 push    LP [UP]
!                 xchg    esp, ebp
                  mov     OP [UP], ebx            \ get object address
                  mov     LP [UP], ebp            \ LP = ebp
--- 43,52 ----
  
  CFA-CODE M0CFA
!                 mov     -4 [ebp], esi
!                 mov     ecx, OP [UP]
!                 mov     -8 [ebp], ecx
!                 mov     ecx, LP [UP]
!                 mov     -12 [ebp], ecx
!                 sub     ebp, # 12
                  mov     OP [UP], ebx            \ get object address
                  mov     LP [UP], ebp            \ LP = ebp
***************
*** 62,70 ****
                  mov     ecx, 0 [esi]            \ get inline offset
                  add     esi, # 4                \ esi past offset
!                 xchg    esp, ebp
!                 push    esi
!                 push    OP [UP]
!                 push    LP [UP]
!                 xchg    esp, ebp
                  add     OP [UP], ecx            \ add offset to object address
                  mov     LP [UP], ebp            \ LP = ebp
--- 63,72 ----
                  mov     ecx, 0 [esi]            \ get inline offset
                  add     esi, # 4                \ esi past offset
!                 mov     -4 [ebp], esi
!                 mov     esi, OP [UP]
!                 mov     -8 [ebp], esi
!                 mov     esi, LP [UP]
!                 mov     -12 [ebp], esi
!                 sub     ebp, # 12
                  add     OP [UP], ecx            \ add offset to object address
                  mov     LP [UP], ebp            \ LP = ebp