From 7f771f7363e0538056f6c3e789eddca33aaae346 Mon Sep 17 00:00:00 2001
From: Vlad Zarytovskii <vzaritovsky@hotmail.com>
Date: Mon, 29 Apr 2024 13:40:42 +0200
Subject: [PATCH] Revert "Beforecompile (#17057)"

This reverts commit 7e1b266a357f335dedfd28c99ddb891306ec4ef8.
---
 src/FSharp.Build/Microsoft.FSharp.Targets     | 32 +++-----------
 src/FSharp.Core/FSharp.Core.fsproj            | 13 ------
 .../tests/CompileOrder - BeforeAndAfter.proj  | 42 -------------------
 tests/fsharp/SDKTests/tests/ToolsTest.targets |  5 +--
 4 files changed, 6 insertions(+), 86 deletions(-)
 delete mode 100644 tests/fsharp/SDKTests/tests/CompileOrder - BeforeAndAfter.proj

diff --git a/src/FSharp.Build/Microsoft.FSharp.Targets b/src/FSharp.Build/Microsoft.FSharp.Targets
index 26999e6a646..3e5e347d12f 100644
--- a/src/FSharp.Build/Microsoft.FSharp.Targets
+++ b/src/FSharp.Build/Microsoft.FSharp.Targets
@@ -235,7 +235,7 @@ this file.
         </FSharpEmbedResXSource>
 
         <ItemGroup>
-            <Compile Include="@(_FsGeneratedResXSource)" CompileOrder="CompileBefore" />
+            <CompileBefore Include="@(_FsGeneratedResXSource)" />
             <FsGeneratedSource Include="@(_FsGeneratedResXSource)" />
             <FileWrites Include="@(_FsGeneratedResXSource)" />
         </ItemGroup>
@@ -247,7 +247,7 @@ this file.
         </FSharpEmbedResourceText>
 
         <ItemGroup>
-            <Compile Include="@(_FsGeneratedTxtSource)" CompileOrder="CompileBefore" />
+            <CompileBefore Include="@(_FsGeneratedTxtSource)" />
             <FsGeneratedSource Include="@(_FsGeneratedTxtSource)" />
             <EmbeddedResource Include="@(_FsGeneratedResx)" />
             <FileWrites Include="@(_FsGeneratedTxtSource)" />
@@ -255,27 +255,6 @@ this file.
         </ItemGroup>
     </Target>
 
-    <Target Name="FSharpSourceCodeCompileOrder">
-        <!-- implement <CompileOrder>CompileBefore</CompileOrder> -->
-        <ItemGroup>
-            <__Sources Remove="@(__Sources)" />
-            <__Sources Include="@(Compile->WithMetadataValue('CompileOrder', 'CompileFirst'))" />
-            <__Sources Include="@(CompileBefore)" />
-            <__Sources Include="@(Compile->WithMetadataValue('CompileOrder', 'CompileBefore'))" />
-            <__Sources Include="@(Compile->WithMetadataValue('CompileOrder', ''))" />
-            <__Sources Include="@(Compile->WithMetadataValue('CompileOrder', 'CompileAfter'))" />
-            <__Sources Include="@(CompileAfter)" />
-            <__Sources Include="@(Compile->WithMetadataValue('CompileOrder', 'CompileLast'))" />
-        </ItemGroup>
-        <ItemGroup>
-            <Compile Remove="@(Compile)" />
-            <CompileBefore Remove="@(CompileBefore)" />
-            <CompileAfter Remove="@(CompileAfter)" />
-            <Compile Include="@(__Sources)" />
-        </ItemGroup>
-        <Message Importance="low" Text="FSharpSourceCodeCompileOrder:Sources: '@(__Sources)'" />
-    </Target>
-
     <Target
         Name="CoreCompile"
         Inputs="$(MSBuildAllProjects);
@@ -305,7 +284,7 @@ this file.
                  $(NonExistentFile);
                  @(CustomAdditionalCompileOutputs)"
         Returns="@(FscCommandLineArgs)"
-        DependsOnTargets="$(CoreCompileDependsOn);FSharpSourceCodeCompileOrder"
+        DependsOnTargets="$(CoreCompileDependsOn)"
     >
 
         <Error
@@ -342,7 +321,6 @@ this file.
             <EmbeddedFiles Include="@(FsGeneratedSource)"  KeepDuplicates="false" Condition="'$(SourceLink)'!='' or '$(EmbeddedFiles)'!='' or '$(EmbedAllSources)'!=''" />
         </ItemGroup>
 
-
         <!-- Dotnet SDK requires SimpleResolution to be true Legacy project system build not -->
         <PropertyGroup>
             <FscOtherFlags Condition="'$(SimpleResolution)' == 'true'">--simpleresolution $(OtherFlags)</FscOtherFlags>
@@ -393,7 +371,7 @@ this file.
               Resources="@(ActualEmbeddedResources)"
               SkipCompilerExecution="$(SkipCompilerExecution)"
               SourceLink="$(SourceLink)"
-              Sources="@(Compile)"
+              Sources="@(CompileBefore);@(Compile);@(CompileAfter)"
               SubsystemVersion="$(SubsystemVersion)"
               Tailcalls="$(Tailcalls)"
               TargetType="$(OutputType)"
@@ -456,7 +434,7 @@ this file.
             Overwrite="true"/>
 
         <ItemGroup Condition="'$(AdditionalSourcesText)' != ''">
-            <Compile Include="$(TargetFrameworkMonikerAssemblyAttributesPath)"><CompileOrder>CompileBefore</CompileOrder></Compile>
+            <CompileBefore Include="$(TargetFrameworkMonikerAssemblyAttributesPath)" />
             <_FsGeneratedTfmAttributesSource Include="$(TargetFrameworkMonikerAssemblyAttributesPath)" />
         </ItemGroup>
     </Target>
diff --git a/src/FSharp.Core/FSharp.Core.fsproj b/src/FSharp.Core/FSharp.Core.fsproj
index f3e27acaee6..0f9fe0fb624 100644
--- a/src/FSharp.Core/FSharp.Core.fsproj
+++ b/src/FSharp.Core/FSharp.Core.fsproj
@@ -61,25 +61,12 @@
     </EmbeddedResource>
     <EmbeddedResource Include="ILLink.LinkAttributes.xml" LogicalName="ILLink.LinkAttributes.xml" />
     <EmbeddedResource Include="ILLink.Substitutions.xml" LogicalName="ILLink.Substitutions.xml" />
-  </ItemGroup>
-  <ItemGroup Condition="'$(Configuration)' == 'Proto'">
-    <!-- This can be removed once CompileBefore support is shipped in an rtm relase -->
     <CompileBefore Include="prim-types-prelude.fsi">
       <Link>Primitives/prim-types-prelude.fsi</Link>
     </CompileBefore>
     <CompileBefore Include="prim-types-prelude.fs">
       <Link>Primitives/prim-types-prelude.fs</Link>
     </CompileBefore>
-  </ItemGroup>
-  <ItemGroup Condition="'$(Configuration)' != 'Proto'">
-    <Compile Include="prim-types-prelude.fsi" CompileOrder="CompileFirst">
-      <Link>Primitives/prim-types-prelude.fsi</Link>
-    </Compile>
-    <Compile Include="prim-types-prelude.fs" CompileOrder="CompileFirst">
-      <Link>Primitives/prim-types-prelude.fs</Link>
-    </Compile>
-  </ItemGroup>
-  <ItemGroup>
     <Compile Include="prim-types.fsi">
       <Link>Primitives/prim-types.fsi</Link>
     </Compile>
diff --git a/tests/fsharp/SDKTests/tests/CompileOrder - BeforeAndAfter.proj b/tests/fsharp/SDKTests/tests/CompileOrder - BeforeAndAfter.proj
deleted file mode 100644
index 55134523861..00000000000
--- a/tests/fsharp/SDKTests/tests/CompileOrder - BeforeAndAfter.proj	
+++ /dev/null
@@ -1,42 +0,0 @@
-<Project ToolsVersion="4.0" DefaultTargets="Test" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-
-  <!-- Initialize Variables -->
-  <PropertyGroup>
-    <FSharpCompilerPath></FSharpCompilerPath>
-  </PropertyGroup>
-
-  <!-- Expected Values -->
-  <PropertyGroup>
-    <ExpectedFSharpShimPresent>true</ExpectedFSharpShimPresent>
-    <ExpectedFSharpCompilerPath>/Common7/IDE/CommonExtensions/Microsoft/FSharp/Tools/</ExpectedFSharpCompilerPath>
-    <ExpectedFscToolExe>fscAnyCpu.exe</ExpectedFscToolExe>
-    <ExpectedFscToolPath>_VsInstallRoot_/Common7/IDE/CommonExtensions/Microsoft/FSharp/Tools/</ExpectedFscToolPath>
-    <ExpectedDotnetFscCompilerPath></ExpectedDotnetFscCompilerPath>
-    <ExpectedCompile>One;Two;Three;Four;Five;Six;Seven;Eight;Nine;Ten;Eleven;Twelve;Thirteen;Fourteen</ExpectedCompile>
-  </PropertyGroup>
-
-  <Import Project="ToolsTest.props" />
-
-  <PropertyGroup>
-  </PropertyGroup>
-
-  <ItemGroup>
-    <CompileAfter Include="Eleven" />
-    <Compile Include="Thirteen" CompileOrder="CompileLast" />
-    <CompileBefore Include="Three" />
-    <CompileAfter Include="Twelve" />
-    <CompileBefore Include="Four" />
-    <Compile Include="Seven" />
-    <Compile Include="Eight" />
-    <Compile Include="Five" CompileOrder="CompileBefore" />
-    <Compile Include="One" CompileOrder="CompileFirst" />
-    <Compile Include="Nine" CompileOrder="CompileAfter" />
-    <Compile Include="Fourteen" CompileOrder="CompileLast" />
-    <Compile Include="Ten" CompileOrder="CompileAfter" />
-    <Compile Include="Two" CompileOrder="CompileFirst" />
-    <Compile Include="Six" CompileOrder="CompileBefore" />
-  </ItemGroup>
-
-  <Import Project="ToolsTest.targets" />
-
-</Project>
diff --git a/tests/fsharp/SDKTests/tests/ToolsTest.targets b/tests/fsharp/SDKTests/tests/ToolsTest.targets
index 3e68a5af856..7a4138e5eed 100644
--- a/tests/fsharp/SDKTests/tests/ToolsTest.targets
+++ b/tests/fsharp/SDKTests/tests/ToolsTest.targets
@@ -4,11 +4,10 @@
 
   <Import Project="$(TargetsDirectory)\Microsoft.FSharp.targets" />
 
-  <Target Name="Test" DependsOnTargets="FSharpSourceCodeCompileOrder">
+  <Target Name="Test">
     <Message Importance="High" Text="===========================================================================================================" />
     <Message Importance="High" Text="Testing : $(MSBuildProjectName)" />
 
-
     <!-- check for expected settings -->
     <Error Condition="'$(ExpectedFSharpShimPresent)' != '$(FSharp_Shim_Present)'" Text="FSharp_Shim_Present expected:'$(ExpectedFSharpShimPresent)' actual: '$(FSharp_Shim_Present)'" />
 
@@ -18,8 +17,6 @@
 
     <Error Condition="'$(ExpectedFscToolPath)' != '$(FscToolPath)'" Text="FscToolPath:  expected:'$(ExpectedFscToolPath)' actual:'$(FscToolPath)'" />
 
-    <Error Condition="'$(ExpectedCompile)' != '' and  '$(ExpectedCompile)' != '@(Compile)'" Text="ExpectedCompile:  expected:'$(ExpectedCompile)' actual:'@(Compile)'" />
-
     <Error Condition="'$(ExpectedDotnetFscCompilerPath)' == '' and '$(DotnetFscCompilerPath)' != ''" Text="DotnetFscCompilerPath expected to be empty actual:'$(DotnetFscCompilerPath)'" />
 
     <Error Condition="'$(ExpectedDotnetFscCompilerPath)' != '' and $([System.String]::new('$(DotnetFscCompilerPath)').EndsWith('$(ExpectedDotnetFscCompilerPath)')) == true" Text="DotnetFscCompilerPath expected to end with:  '$(ExpectedDotnetFscCompilerPath)' actual:'$(DotnetFscCompilerPath)'" />