Changeset 72 for trunk/Packages/TemplateGenerics

Timestamp:

Mar 6, 2016, 12:10:38 AM (9 years ago)

Author:

chronos

Message:

• Modified: Built with FPC 3.0.0. Fixed various compiler messages.

Location:

trunk/Packages/TemplateGenerics

Files:

• Additional/UBinarySerializer.pas (modified) (9 diffs)
• Generic/GenericMatrix.inc (modified) (1 diff)
• TemplateGenerics.lpk (modified) (3 diffs)
• TemplateGenerics.pas (modified) (1 diff)

trunk/Packages/TemplateGenerics/Additional/UBinarySerializer.pas

@@ -65 +65 @@
   StringLength: Longint;
 begin
+  StringLength  := 0;
   FStream.ReadBuffer(StringLength, SizeOf(StringLength));
   Result := ReadString(StringLength);
@@ -94 +95 @@
 function TBinarySerializer.ReadByte: Byte;
 begin
+  Result := 0;
   FStream.ReadBuffer(Result, SizeOf(Byte));
 end;
@@ -99 +101 @@
 function TBinarySerializer.ReadCardinal: Cardinal;
 begin
+  Result := 0;
   FStream.ReadBuffer(Result, SizeOf(Cardinal));
   if SwapData then Result := SwapEndian(Result);
@@ -105 +108 @@
 function TBinarySerializer.ReadInt64: Int64;
 begin
+  Result := 0;
   FStream.ReadBuffer(Result, SizeOf(Int64));
   if SwapData then Result := SwapEndian(Result);
@@ -121 +125 @@
   Count: Byte;
 begin
+  Count := 0;
   FStream.ReadBuffer(Count, 1);
   Result := ReadString(Count);
@@ -206 +211 @@
 function TBinarySerializer.ReadDouble: Double;
 begin
+  Result := 0;
   FStream.ReadBuffer(Result, SizeOf(Double));
 end;
@@ -211 +217 @@
 function TBinarySerializer.ReadSingle: Single;
 begin
+  Result := 0;
   FStream.ReadBuffer(Result, SizeOf(Single));
 end;
@@ -216 +223 @@
 function TBinarySerializer.ReadWord: Word;
 begin
+  Result := 0;
   FStream.ReadBuffer(Result, SizeOf(Word));
   if SwapData then Result := SwapEndian(Result);
@@ -262 +270 @@
 procedure TBinarySerializer.WriteByte(Data: Byte);
 begin
+  Data := 0;
   FStream.WriteBuffer(Data, SizeOf(Byte));
 end;

trunk/Packages/TemplateGenerics/Generic/GenericMatrix.inc

@@ -49 +49 @@
     function Implode(RowSeparator, ColSeparator: string; Converter: TGMatrixToStringConverter): string;
     procedure Explode(Text, Separator: string; Converter: TGMatrixFromStringConverter; SlicesCount: Integer = -1);
-    function IndexOf(Item: TGMatrixItem; Start: TGMatrixIndex = 0): TGMatrixIndex;
-    function IndexOfList(List: TGMatrix; Start: TGMatrixIndex = 0): TGMatrixIndex;
+    function IndexOf(Item: TGMatrixItem; Start: TGMatrixIndex): TGMatrixIndex;
+    function IndexOfList(List: TGMatrix; Start: TGMatrixIndex): TGMatrixIndex;
     procedure Insert(Index: TGMatrixIndex; Item: TGMatrixItem);
     procedure InsertList(Index: TGMatrixIndex; List: TGMatrix);

trunk/Packages/TemplateGenerics/TemplateGenerics.lpk

@@ -1 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <Package Version="4">
     <PathDelim Value="\"/>
     <Name Value="TemplateGenerics"/>
+    <Type Value="RunAndDesignTime"/>
     <AddToProjectUsesSection Value="True"/>
     <Author Value="Chronos (robie@centrum.cz)"/>
@@ -16 +17 @@
       <CodeGeneration>
         <Optimizations>
+          <OptimizationLevel Value="3"/>
           <VariablesInRegisters Value="True"/>
-          <OptimizationLevel Value="3"/>
         </Optimizations>
       </CodeGeneration>
       <Other>
         <CompilerMessages>
-          <UseMsgFile Value="True"/>
+          <IgnoredMessages idx5024="True"/>
         </CompilerMessages>
-        <CompilerPath Value="$(CompPath)"/>
       </Other>
     </CompilerOptions>
@@ -139 +139 @@
       </Item27>
     </Files>
-    <Type Value="RunAndDesignTime"/>
     <RequiredPkgs Count="2">
       <Item1>

trunk/Packages/TemplateGenerics/TemplateGenerics.pas

@@ -5 +5 @@
 unit TemplateGenerics;
 
+{$warn 5023 off : no warning about unused units}
 interface