Fix for issue 40184 - Internal error 200204175

Summary

Added handling for st.symtabletype=withsymtable in function make_mangledname in sourcefile compiler/symdef.pp

System

• Operating system: All, Patch testet on Windows 10, MSDOS, GO32 V2 DOS extender
• Processor architecture: All, Patch testet on x86-64, i8086, i386
• Device: All, Patch testet on Computer

What is the current bug behavior?

Internal compiler error 200204175 occurs when compiling a class-procedure with functionreference argument in a constructor-with-statement

With TCaller.Create do 
  Execute(procedure(AInt:Integer) <== Internal error 200204175 
  begin 
    // some code
  end);

What is the behavior after applying this patch?

The section of code compiles without errors. The compiled testprogram runs as expected.