Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Fixes to gears.pp example #2

Open
wants to merge 2 commits into
base: trunk
Choose a base branch
from

Conversation

michaliskambi
Copy link

  1. error_callback needs a fix to compile, otherwise I get this:
$ fpc gears.pp -Fu../
Free Pascal Compiler version 3.2.2-rrelease_3_2_2-0-g0d122c4953 [2022/05/16] for x86_64
Copyright (c) 1993-2021 by Florian Klaempfl and others
Target OS: Darwin for x86_64
Compiling gears.pp
....
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>"
gears.pp(316) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted
  1. In this fork, I see one has to use CThreads on Unix.

  2. And a tiny typo fix - weird word wglpt in the comment, should be just want looking at gears original C code ( https://github.com/freedesktop/mesa-demos/blob/master/src/demos/gears.c ) :)

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>"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
1 participant