Small LOH fix for Dictionary (#8024)

* Small LOH fix for Dictionary

Dictionary started with 10000 capacity which will be put on the LOH

* Update Optimizer.fs

src/fsharp/Optimizer.fs

@@ -3435,7 +3435,7 @@ let OptimizeImplFile (settings, ccu, tcGlobals, tcVal, importMap, optEnv, isIncr
           g=tcGlobals 
           amap=importMap
           optimizing=true
-          localInternalVals=Dictionary<Stamp, ValInfo>(10000)
+          localInternalVals=Dictionary<Stamp, ValInfo>()
           emitTailcalls=emitTailcalls
           casApplied=new Dictionary<Stamp, bool>() }
     let (optEnvNew, _, _, _ as results) = OptimizeImplFileInternal cenv optEnv isIncrementalFragment hidden mimpls