Most :m did'nt declare locals,
I remove the integrated locals-init in win32for 4.2 , It's about %25 faster on celeron 8xx...
( Lcc Wizard 2006-01-10 08:18:25 )

:object abc <super object
:m noop:      ;m
;object

: t             ( -- )
                cls
                time-reset 30000000 0 do noop: abc noop: abc loop .elapsed  cr
                ;

( 4.08 seconds vs 3.1 seconds )


\ ==============================================
\ fkernel.f
CREATE M0CFA
        0 OFA-H !               \ disable OFA resolution
                INIT-ASSEMBLER
                xchg    esp, ebp
                push    esi
                push    OP [UP]
                xchg    esp, ebp
                lea     esi, 8 [eax] [edi]      \ get new ip (skip m1cfa)
                mov     OP [UP]  , ebx            \ get object address
                pop     ebx
                add     esi, # 4                \ skip locals
                next    c;

CREATE M1CFA
        0 OFA-H !               \ disable OFA resolution
                INIT-ASSEMBLER
                mov     ecx, 0 [esi]            \ get inline offset
                add     esi, # 4
                xchg    esp, ebp
                push    esi
                push    OP [UP]
                xchg    esp, ebp
                lea     esi, 4 [eax] [edi]      \ get new ip
                add     OP [UP]  , ecx            \ add offset to object address
                add     esi, # 4 \ skip local args
                next    c;

NCODE EXITM     ( -- )
                xchg    esp, ebp
                pop     OP [UP]                   \ restore object pointer
                pop     esi                     \ restore ip
                xchg    esp, ebp
                next    c;

NCODE UNNESTM   ( -- )
                xchg    esp, ebp
                pop     OP [UP]                   \ restore object pointer
                pop     esi                     \ restore ip
                xchg    esp, ebp
                next    c;

NCODE UNNESTMp   ( -- )
                mov     ebp, LP [UP]
                xchg    esp, ebp
                pop     LP [UP]
             \  xchg    esp, ebp
             \  xchg    esp, ebp
                pop     OP [UP]                   \ restore object pointer
                pop     esi                     \ restore ip
                xchg    esp, ebp
                next    c;

: PARMS,        ( -- )   \ compile runtime to push parameters
      \  ?:M                             \ in method?
      \  IF      CELL NEGATE ALLOT       \ then deallocate the cell layed down
      \  ELSE
                COMPILE INIT-LOCALS     \ else this is a normal local def
      \  THEN
        INPARMS PARMS OVER - C, ( #locals ) C, ( #args )
        0 C, 0 C,  ( unused filler bytes for cell alignment )
  ;


: EXIT          ( -- )
                ?comp
                ?:M if
                        parms if  compile unnestmP  else  compile unnestm  then
                else
                        parms if  compile exitp     else  compile _exit    then
                then ; IMMEDIATE
\ ==============================================
\ class.f

: ;M            ( -- )
                ?:M 0= abort" Methods must START with :M !"
                false to ?:M
                ?csp
                parms if
                        postpone unnestmP
                else
                        postpone unnestm
                then
                postpone [
                0 to Parms
                semicolon-chain do-chain
                voc-also                        \ don't add to hash table
                ; IMMEDIATE