Browse Source

less hints

mattias 1 year ago
parent
commit
20d7379843
2 changed files with 5 additions and 1 deletions
  1. 1 1
      src/base/fresnel.renderer.pas
  2. 4 0
      src/gtk3/fresnel.gtk3.pas

+ 1 - 1
src/base/fresnel.renderer.pas

@@ -180,7 +180,7 @@ var
   Grad : TFresnelCSSLinearGradient;
 
 begin
-  if el=nil then;
+  if El=nil then ;
   Params.Normalize;
   if (Params.BackgroundImage is TFresnelCSSLinearGradient) then
     begin

+ 4 - 0
src/gtk3/fresnel.gtk3.pas

@@ -1,7 +1,11 @@
 unit Fresnel.Gtk3;
 
 {$mode objfpc}{$H+}
+{$IF FPC_FULLVERSION>30300}
 {$WARN 6060 off : Case statement does not handle all possible cases}
+{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
+{$ENDIF}
+
 interface
 
 uses