Fixed error "F2084 Internal Error: C20339" related to Delphi 10.2.1. (F…

…ix risoflora#19)
Al-Muhandis · Feb 1, 2021 · a27de09 · a27de09
1 parent 52d7753
commit a27de09
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/Package/BrookTardigrade.dproj b/Package/BrookTardigrade.dproj
@@ -88,9 +88,9 @@
     <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
         <DCC_RemoteDebug>false</DCC_RemoteDebug>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
-        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=5.4.4.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=5.4.3.0;Comments=</VerInfo_Keys>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=5.4.5.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=5.4.3.0;Comments=</VerInfo_Keys>
         <VerInfo_MinorVer>4</VerInfo_MinorVer>
-        <VerInfo_Release>4</VerInfo_Release>
+        <VerInfo_Release>5</VerInfo_Release>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">
         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>

diff --git a/Package/BrookTardigrade.lpk b/Package/BrookTardigrade.lpk
@@ -28,7 +28,7 @@ Lesser General Public License for more details.
 You should have received a copy of the GNU Lesser General Public
 License along with Brook framework; if not, write to the Free Software
 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA"/>
-    <Version Major="5" Minor="4" Release="4"/>
+    <Version Major="5" Minor="4" Release="5"/>
     <Files Count="23">
       <Item1>
         <Filename Value="../Source/BrookDefines.inc"/>

diff --git a/Source/BrookMathExpression.pas b/Source/BrookMathExpression.pas
@@ -482,7 +482,7 @@ function TBrookMathExpression.Compile(const AExpression: string;
     EX.cls := Self;
     FExtensionsHandle[I] := EX;
   end;
-  FExtensionsHandle[FExtensions.Count] := Default(sg_expr_extension);
+  FillChar(FExtensionsHandle[FExtensions.Count], SizeOf(sg_expr_extension), #0);
   R := sg_expr_compile(FHandle, M.ToCString(AExpression), M.Length(AExpression),
     @FExtensionsHandle[0]);
   FCompiled := R = 0;