jvcllaz: Make sure that "Maximize compatibility" is checked in each package. Less hints and warnings.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8071 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jvcllaz/run/JvPascalInterpreter/JvInterpreter.pas

@@ -1543,6 +1543,7 @@ var
   liLen: integer;
   lp: PByte;
 begin
+  Result := nil;
   liLen := VarArrayHighBound(V, 1) - VarArrayLowBound(V, 1) + 1;
   SetLength(result, liLen);
   lp := VarArrayLock(V);
@@ -1749,7 +1750,7 @@ end;
 function StringLoadFromStream(Stream: TStream): string;
 var
   L: Integer = 0;
-  UTF8Str: UTF8String;
+  UTF8Str: UTF8String = '';
 begin
   Stream.ReadBuffer(L, SizeOf(L));
   SetLength(UTF8Str, L);
@@ -2768,6 +2769,7 @@ begin
     Ret := ': ' + ResTypName;
   end;
 
+  Param := '';
   for I := 0 to ParamCount - 1 do
   begin
     if (ParamTypes[I] and varByRef) = varByRef then
@@ -4383,6 +4385,7 @@ var
     JvInterpreterSrcUnit: TJvInterpreterSrcUnit;
     FParams: TTypeArray;
   begin
+    FParams := Default(TTypeArray);
     for I := 0 to FSrcUnitList.Count - 1 do
     begin
       JvInterpreterSrcUnit := TJvInterpreterSrcUnit(FSrcUnitList[I]);
@@ -5601,6 +5604,7 @@ var
 
   function PopExp: Variant;
   begin
+    Result := Default(Variant);
     if FExpStackPtr = -1 then
       JvInterpreterError(ieInternal, -1);
     JvInterpreterVarCopy(Result, FExpStack[FExpStackPtr]);
@@ -5888,6 +5892,7 @@ begin
           else
           begin
             FCurrArgs.Clear;
+            V1 := Default(Variant);
             InternalGetValue(nil, 0, V1);
             if not VarIsOrdinal(V1) then
               JvInterpreterError(ieIntegerRequired, PosBeg);
@@ -6067,6 +6072,7 @@ begin
       UpdateVarParams;
     if FCurrArgs.Indexed and not FCurrArgs.ReturnIndexed then
     begin
+      V := Default(Variant);
       JvInterpreterVarCopy(V, Result);
       if not GetElement(V, Result, FCurrArgs) then
         { problem }
@@ -6129,7 +6135,7 @@ begin
     if TVarData(Variable).VType = varArray then
     begin
       {Get array value}
-      PP := PJvInterpreterArrayRec(PtrInt(JvInterpreterVarAsType(Variable, varInteger)));
+      PP := {%H-}PJvInterpreterArrayRec(PtrInt(JvInterpreterVarAsType(Variable, varInteger)));
       if Args.Count > PP.Dimension then
         JvInterpreterError(ieArrayTooManyParams, -1)
       else
@@ -6208,7 +6214,7 @@ begin
     if TVarData(Variable).VType = varArray then
     begin
       { Get array value }
-      PP := PJvInterpreterArrayRec(PtrInt(JvInterpreterVarAsType(Variable, varInteger)));
+      PP := {%H-}PJvInterpreterArrayRec(PtrInt(JvInterpreterVarAsType(Variable, varInteger)));
       if Args.Count > PP.Dimension then
         JvInterpreterError(ieArrayTooManyParams, -1)
       else
@@ -6407,6 +6413,7 @@ var
     begin
       FCurrArgs.FHasVars := False;
       FCurrArgs.Types := FunctionDesc.FParamTypes;
+      V := Default(Variant);
       for I := 0 to FCurrArgs.Count - 1 do
       begin
         if (FunctionDesc.FParamTypes[I] and varByRef) <> 0 then
@@ -6937,6 +6944,7 @@ begin
     MyArgs.Obj := FCurrArgs.Obj;
     MyArgs.ObjTyp := FCurrArgs.ObjTyp;
     try
+      Variable := Default(Variant);
       if GetValue(Identifier, Variable, MyArgs) then
       begin
         if not SetElement(Variable, FVResult, FCurrArgs) then
@@ -7342,6 +7350,7 @@ begin
     NextToken;
     TypName := Token;
     DT := ParseDataType;
+    Value := Default(variant);
     for I := 0 to FSS.Count - 1 do
     begin
       DT.Init(Value);
@@ -7612,6 +7621,7 @@ begin
       raise EJvInterpreterError.Create(ieRaise, PosBeg, '', '');
     ttIdentifier:
       begin
+        V := Default(variant);
         InternalGetValue(nil, 0, V);
         if VarType(V) <> varObject then
           JvInterpreterError(ieClassRequired, PosBeg {?});
@@ -7976,7 +7986,7 @@ procedure TJvInterpreterUnit.ReadUnit(const UnitName: string);
 var
   OldUnitName: string;
   OldSource: string;
-  S: string;
+  S: string = '';
 begin
   if FAdapter.UnitExists(UnitName) then
     Exit;
@@ -8346,7 +8356,7 @@ end;
 procedure TJvInterpreterUnit.ExecFunction(Fun: TJvInterpreterFunctionDesc);
 var
   OldUnitName: string;
-  S: string;
+  S: string = '';
 begin
   PushState;
   FAllowAssignment := True;
@@ -8488,7 +8498,7 @@ end;
 
 procedure TJvInterpreterProgram.Run;
 var
-  UsesList: string;
+  UsesList: string = '';
 begin
   // (rom) Does this always work? After "program" a line end or tab is allowed.
   if AnsiStrLIComp(PChar(FParser.Source), 'program ', Length('program ')) <> 0 then
@@ -8681,7 +8691,7 @@ end;
 
 procedure TJvInterpreterArrayDataType.Init(var V: Variant);
 begin
-  V := NativeInt(JvInterpreterArrayInit(FDimension, FArrayBegin, FArrayEnd, FArrayType, FDT));
+  V := {%H-}NativeInt(JvInterpreterArrayInit(FDimension, FArrayBegin, FArrayEnd, FArrayType, FDT));
   TVarData(V).VType := varArray;
 end;
 

components/jvcllaz/run/JvPascalInterpreter/JvInterpreterFm.pas

@@ -620,6 +620,7 @@ var
   UnitName: string;
   S: string = '';
 begin
+  Result := Default(Variant);
   FFileName := FileName;
   try
     UnitName := ChangeFileExt(ExtractFileName(FFileName), '');