From d83c65b121d756771756648df5a586ad68fc0162 Mon Sep 17 00:00:00 2001
From: Michalis Kamburelis <michalis.kambi@gmail.com>
Date: Wed, 18 May 2022 01:13:04 +0100
Subject: [PATCH 1/2] Fix gears.pp compilation with FPC 3.2.2

Otherwise it complains:

gears.pp(291,40) Error: Incompatible type for arg no. 1: Got "<address of procedure(const LongInt;const ShortString);Register>", expected "<procedure variable type of procedure(LongInt;ShortString);Register>"
---
 examples/gears.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/examples/gears.pp b/examples/gears.pp
index 7fe518b..20ebe3d 100644
--- a/examples/gears.pp
+++ b/examples/gears.pp
@@ -193,7 +193,7 @@
       GLPT_SetWindowShouldClose(win, True);
   end;
 
-  procedure error_callback(const error: integer; const description: string);
+  procedure error_callback(error: integer; description: string);
   begin
     writeln(stderr, description);
   end;

From 16aa3ffe23d176eda5e35b883aa5132f9ed931d9 Mon Sep 17 00:00:00 2001
From: Michalis Kamburelis <michalis.kambi@gmail.com>
Date: Wed, 18 May 2022 01:13:33 +0100
Subject: [PATCH 2/2] Add missing CThreads to make gears work on macOS, also
 fix wglpt typo

---
 examples/gears.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/examples/gears.pp b/examples/gears.pp
index 20ebe3d..e4c97a1 100644
--- a/examples/gears.pp
+++ b/examples/gears.pp
@@ -12,13 +12,14 @@
 {$mode objfpc}
 
 uses
+  {$ifdef UNIX} CThreads, {$endif}
   StrUtils,
   GL,
   GLPT;
 
 (**
 
-  Draw a gear wheel.  You'll probably wglpt to call this function when
+  Draw a gear wheel.  You'll probably want to call this function when
   building a display list since we do a lot of trig here.
 
   Input:  inner_radius - radius of hole at center