Code portability

Author: joaopauloschuler

neural/neuralab.pas

@@ -18,8 +18,7 @@
 with this program; if not, write to the Free Software Foundation, Inc.,
 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 }
-
-{$MODE Delphi}
+{$IFDEF FPC}{$MODE Delphi}{$ENDIF}
 
 interface
 
@@ -126,8 +125,11 @@ function ABKey(S: array of byte; Divisor: longint): longint;
   SumKey: longint;
 begin
   SumKey := 203;
+{$IFDEF FPC}
 {$PUSH}
+{$ENDIF}
 {$OVERFLOWCHECKS OFF}
+
   for I := Low(S) to High(S) do
   begin
     SumKey :=
@@ -136,7 +138,9 @@ function ABKey(S: array of byte; Divisor: longint): longint;
   end;
   ABKey := abs(SumKey) mod Divisor;
 {$OVERFLOWCHECKS ON}
+{$IFDEF FPC}
 {$POP}
+{$ENDIF}
 end;
 
 function ABCmp(var X, Y: array of byte): boolean;

neural/neuralbyteprediction.pas

@@ -41,7 +41,9 @@
 
 unit neuralbyteprediction; // this unit used to be called UBup3
 
+{$IFDEF FPC}
 {$MODE Delphi}
+{$ENDIF}
 
 interface
 
@@ -1189,7 +1191,9 @@ procedure TStatePredictionClass.deleteDuplicateNeurons;
 begin
   NeuronList := TStringList.Create();
   NeuronList.Sorted := True;
+  {$IFDEF FPC}
   NeuronList.SortStyle := sslAuto;
+  {$ENDIF}
   for neuronPos := Low(FNN) to High(FNN) do
   begin
 

neural/neuraldatasets.pas

@@ -165,12 +165,12 @@ procedure CreateCifar10Volumes(out ImgTrainingVolumes, ImgValidationVolumes,
   ImgTestVolumes: TNNetVolumeList);
 
 // loads a CIFAR10 into TNNetVolumeList
-procedure loadCifar10Dataset(ImgVolumes: TNNetVolumeList; idx:integer; base_pos:integer = 0; color_encoding: byte = csEncodeRGB);
-procedure loadCifar10Dataset(ImgVolumes: TNNetVolumeList; fileName:string; base_pos:integer = 0; color_encoding: byte = csEncodeRGB);
+procedure loadCifar10Dataset(ImgVolumes: TNNetVolumeList; idx:integer; base_pos:integer = 0; color_encoding: byte = csEncodeRGB); overload;
+procedure loadCifar10Dataset(ImgVolumes: TNNetVolumeList; fileName:string; base_pos:integer = 0; color_encoding: byte = csEncodeRGB); overload;
 
 // loads a CIFAR100 into TNNetVolumeList
-procedure loadCifar100Dataset(ImgVolumes: TNNetVolumeList; idx:integer; base_pos:integer = 0; color_encoding: byte = csEncodeRGB);
-procedure loadCifar100Dataset(ImgVolumes: TNNetVolumeList; fileName:string; base_pos:integer = 0; color_encoding: byte = csEncodeRGB);
+procedure loadCifar100Dataset(ImgVolumes: TNNetVolumeList; idx:integer; base_pos:integer = 0; color_encoding: byte = csEncodeRGB); overload;
+procedure loadCifar100Dataset(ImgVolumes: TNNetVolumeList; fileName:string; base_pos:integer = 0; color_encoding: byte = csEncodeRGB); overload;
 
 // This function returns TRUE if data_batch_1.bin and error message otherwise
 function CheckCIFARFile():boolean;
@@ -187,7 +187,7 @@ procedure TranslateCifar10VolumesToMachineAnimal(VolumeList: TNNetVolumeList);
 
 implementation
 
-uses SysUtils, math, FileUtil{, uvolumelcl, Graphics};
+uses SysUtils, math;
 
 procedure TranslateCifar10VolumesToMachineAnimal(VolumeList: TNNetVolumeList);
 var
@@ -664,7 +664,7 @@ procedure TestBatch
       vOutput.SetClassForReLU( ImgVolumes[ImgIdx].Tag );
     end;
 
-    ErrorSum += vOutput.SumDiff(pOutput);
+    ErrorSum := ErrorSum + vOutput.SumDiff(pOutput);
 
     if (bIsSoftmax) then
     begin
@@ -679,7 +679,7 @@ procedure TestBatch
         CurrentLoss := 1;
       end;
 
-      Loss += CurrentLoss;
+      Loss := Loss + CurrentLoss;
     end;
   end;
 

neural/neuralgeneric.pas

@@ -18,7 +18,11 @@
 *)
 unit neuralgeneric;
 
-{$mode objfpc}{$H+}
+{$IFDEF FPC}
+{$mode objfpc}
+{$ENDIF}
+
+{$H+}
 
 interface
 

neural/neuralplanbuilder.pas

@@ -1,4 +1,4 @@
-(*
+(*
 neuralplanbuilder: This unit "builds and optimizea plans" towards success with
 AI techniques. A plan (TPlan) is a sequence of actions and predicted states.
 A composite plan (TCompositePlan) is an array of plans that can work together.
@@ -21,7 +21,9 @@
 
 unit neuralplanbuilder; // this unit used to be called UFway44.
 
+{$IFDEF FPC}
 {$MODE Delphi}
+{$ENDIF}
 
 { Lazarus/Free Pascal Source }
 // made by Joao Paulo Schwarz Schuler