EXPRPARS.INC/optimization

I don't change anything to the behavior of Fasm,
I just removed unnecessary code.
Results in memory are exactly the same as the original code (syser debugger)
Fasm works perfectly with this change.

Code:

fp_get:             lods    byte[esi]
           .....
;              call    fp_optimize             ;[-] useless (only to do "mov "dword[edi+8],8000h)
                mov     dword[edi+8],8000h      ;[+]
                mov     [fp_format],0
fp_before_dot:     lods    byte[esi]
           .....
;              mov     [edi+7],al              ;[-]
;               mov     dl,7                    ;[-]
;               mov     dword [edi+8],edx       ;[-]
                call    fp_optimize
         .....

;-----------------------------------------------------

;fp_optimize:    mov     eax,[edi]               ;[-] "OLD" fp_optimize
;           mov     ebp,[edi+4]
;                or      ebp,[edi]
;          or      ebp,[edi+12]
;               jz      fp_zero
;.loop:          test    byte [edi+7],80h
;           jnz     .done
;              shld    [edi+4],eax,1
;              mov     ebp,[edi+12]
;               shld    eax,ebp,1
;          mov     [edi],eax
;          shl     dword [edi+12],1
;           dec     dword [edi+8]
;              jmp     .loop
;.done:            ret
;fp_zero:    mov     dword [edi+8],8000h
;                ret

fp_optimize:     or      al,al                   ;[+] "NEW" fp_optimize
            jz      fp_zero
             mov     [edi+7],al
          mov     dword[edi+8],7
.loop:            dec     dword[edi+8]
                shl     dword[edi+4],1
              jns     .loop
               ret
fp_zero:     mov     dword[edi+8],8000h
          ret