fix: Merge pull request #192 from TazE-scripts/master

[Minor] - Silenced unused variables - Linux
Torwent · Aug 5, 2024 · 25851ee · 25851ee
2 parents e3021a2 + 06925fc
commit 25851ee
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/utils/forms/formutils.simba b/utils/forms/formutils.simba
@@ -1776,44 +1776,44 @@ end;
 function GetProcAddr(handle: PtrUInt; name: PChar): Pointer;
 external 'GetProcAddress@kernel32.dll '+ WINAPI_CC;
 {$ELSE}
-function ShowWindow(hwnd: TOSWindow; nCmdShow: UInt32): LongBool;
+function ShowWindow({$H-}hwnd: TOSWindow; nCmdShow: UInt32){$H+}: LongBool;
 begin
   WriteLn('ShowWindow() is not implemented for this operating system!');
   Result := False;
 end;
 
-function SetWindowAttribute(hwnd: TOSWindow; dwAttribute: DWORD; pvAttribute: Pointer; cbAttribute: DWORD): UInt32;
+function SetWindowAttribute({$H-}hwnd: TOSWindow; dwAttribute: DWORD; pvAttribute: Pointer; cbAttribute: DWORD){$H+}: UInt32;
 begin
   WriteLn('SetWindowAttribute() is not implemented for this operating system!');
   Result := 0;
 end;
 
-function SetWindowAttribute(hwnd: TOSWindow; dwAttribute: DWORD; pvAttribute: LongBool): UInt32; overload;
+function SetWindowAttribute({$H-}hwnd: TOSWindow; dwAttribute: DWORD; pvAttribute: LongBool){$H+}: UInt32; overload;
 begin
   WriteLn('SetWindowAttribute() is not implemented for this operating system!');
   Result := 0;
 end;
 
-function SetWindowDarkTitleBar(hwnd: TOSWindow): UInt32;
+function SetWindowDarkTitleBar({$H-}hwnd: TOSWindow){$H+}: UInt32;
 begin
   WriteLn('SetWindowDarkTitleBar() is not implemented for this operating system!');
   Result := 0;
 end;
 
 
-function SetWindowTheme(hwnd: TOSWindow; pszSubAppName: PWideChar; pszSubIdList: PWideChar): UInt32;
+function SetWindowTheme({$H-}hwnd: TOSWindow; pszSubAppName: PWideChar; pszSubIdList: PWideChar){$H+}: UInt32;
 begin
   WriteLn('SetWindowTheme() is not implemented for this operating system!');
   Result := 0;
 end;
 
-function SetWindowTheme(hwnd: TOSWindow; pszSubAppName: WideString; pszSubIdList: PWideChar = nil): UInt32; overload;
+function SetWindowTheme({$H-}hwnd: TOSWindow; pszSubAppName: WideString; pszSubIdList: PWideChar = nil){$H+}: UInt32; overload;
 begin
   WriteLn('SetWindowTheme() is not implemented for this operating system!');
   Result := 0;
 end;
 
-function GetProcAddr(handle: PtrUInt; name: PChar): Pointer;
+function GetProcAddr({$H-}handle: PtrUInt; name: PChar){$H+}: Pointer;
 begin
   WriteLn('GetProcAddr() is not implemented for this operating system!');
   Result := nil;

diff --git a/utils/items/consumables.simba b/utils/items/consumables.simba
@@ -363,4 +363,4 @@ end;
 Global TotalConsumableCost variable used to track the amount of money spent in by consuming consumables.
 *)
 var
-  TotalConsumableCost: Int32;
+  {$H-}TotalConsumableCost: Int32; {$H+}