codetools: PreInc/PostInc/PreDec/PostDec completion

Author: fibodevy

components/codetools/identcompletiontool.pas

@@ -1941,6 +1941,13 @@ procedure TIdentCompletionTool.GatherPredefinedIdentifiers(CleanPos: integer;
     AddCompilerProcedure('WriteLn','Args:Arguments');
     AddCompilerProcedure('WriteStr','var S:String;Args:Arguments');
     AddCompilerProcedure('SwapValues','var A,B:T');
+    if cmsPrepostIncDec in Scanner.CompilerModeSwitches then begin
+      // value-returning inc/dec: Pre yields the value after the update, Post the one before
+      AddCompilerFunction('PreInc','var N:T;X:Integer=1','T');
+      AddCompilerFunction('PostInc','var N:T;X:Integer=1','T');
+      AddCompilerFunction('PreDec','var N:T;X:Integer=1','T');
+      AddCompilerFunction('PostDec','var N:T;X:Integer=1','T');
+    end;
     if (cmsParallelFor in Scanner.CompilerModeSwitches)
     and ContextInImplicitStatementScope(Context.Node,CleanPos,issParallelForBody) then begin
       // implicit worker-locals of `for parallel` bodies only

components/codetools/linkscanner.pas

@@ -248,7 +248,8 @@   TSourceChangeStep = record
     cmsInterpolatedStrings,{ Unleashed: $'text {expr} text' interpolated string literals }
     cmsAutoProperties,     { Unleashed: accessor-less property synthesizes a backing field }
     cmsParallelFor,        { Unleashed: `for parallel` worker-pool loop, WorkerIndex/WorkerCount in the body }
-    cmsOutVar              { Unleashed: `var x` declares an inline variable at an out-argument, `_` discards it }
+    cmsOutVar,             { Unleashed: `var x` declares an inline variable at an out-argument, `_` discards it }
+    cmsPrepostIncDec       { Unleashed: PreInc/PostInc/PreDec/PostDec value-returning inc/dec }
     );
   TCompilerModeSwitches = set of TCompilerModeSwitch;
 const
@@ -298,7 +299,7 @@   TSourceChangeStep = record
      cmsStatementExpressions,cmsArrayEquality,cmsInlineVars,cmsTuples,
      cmsComposableRecords,cmsMultiLineStrings,cmsStaticSection,cmsInlineStatic,
      cmsThreadStatic,cmsInterpolatedStrings,cmsLock,cmsAsyncAwait,cmsAutoProperties,
-     cmsParallelFor,cmsOutVar]
+     cmsParallelFor,cmsOutVar,cmsPrepostIncDec]
     );
   cmAllModesWithGeneric = [cmDELPHI,cmDELPHIUNICODE,cmOBJFPC,cmUnleashed];
   Pas2jsFixedModeswitches = [cmsArray2dynarray,cmsArrayOperators,
@@ -369,7 +370,8 @@   TSourceChangeStep = record
     'INTERPOLATEDSTRINGS',
     'AUTOPROPERTIES',
     'PARALLELFOR',
-    'OUTVAR'
+    'OUTVAR',
+    'PREPOSTINCDEC'
     );
 
 type