A thermodynamic model for silicate melt in CaO–MgO–Al2O3–SiO2 to 50 kbar and 1800 °C