[fpc-pascal] Remove unused functions in a class

[JoshyFun]

Hello Jonas,

Sunday, April 5, 2009, 5:27:02 PM, you wrote:


>> Something like this could kill the dead code detection ? A simple
>> yes/no is enoght :)

JM> Not in case of whole-program optimization:

JM> --- dead.sorg   2009-04-05 17:24:25.000000000 +0200
JM> +++ dead.s      2009-04-05 17:24:32.000000000 +0200
JM> @@ -91,10 +91,7 @@
JM>   # [29] TDerivedFoo(MyObj).Myprocedure();
JM>          movl    L_U_P$PROGRAM_MYOBJ$non_lazy_ptr-Lj2(%ebx),%eax
JM>          movl    (%eax),%eax
JM> -       movl    L_U_P$PROGRAM_MYOBJ$non_lazy_ptr-Lj2(%ebx),%edx
JM> -       movl    (%edx),%edx
JM> -       movl    (%edx),%edx
JM> -       call    *80(%edx)
JM> +       call    L_P$PROGRAM_TDEDERIVEDFOO_$__MYPROCEDURE$stub

JM> I'm not sure about -dvtentry.

Nice to see that, that's for sure a non easy objetive :)

-- 
Best regards,
 JoshyFun