Velthuis.Console.pas - Won't compile in Lazarus

[KodeZwerg]

Still the same error. I'm on win7 x64.
https://i.postimg.cc/0NrQqqCj/Capture.png

To make velthuisconsole2.zip from Thaddy compile, here a tutorial:
1. download velthuisconsole2.zip
2. extract it in its own project folder
3. rename ConsoleDemo.dpr to ConsoleDemo.lpr
4. open lazarus "Project -> Close Project" if anything is opened
5. select "Open Project"
6. change filemask filter from "Lazarus Project (*.lpi)"  to "All Files (*.*)"
7. locate and doubleclick ConsoleDemo.lpr
8. select "Create Project" -> "Simple Program"
9. press F9 so the file "Velthuis.Console" gets opened
10. scroll to start of file "Velthuis.Console" and...
replace this

Code: Pascal  [Select][+][-]

1. {$IF DEFINED(FPC)}
2.   {$DEFINE CompilerVersion=17.0}
3.   {$MODE DELPHI}
4.   {$DEFINE HASERROUTPUT}
5. {$ENDIF}
6.  

with that

Code: Pascal  [Select][+][-]

1. {$IF DEFINED(FPC)}
2.   {$DEFINE CompilerVersion=17.0}
3.   {$MODE DELPHI}
4.   {$DEFINE HASERROUTPUT}
5.   {$ASMMODE intel}
6. {$ENDIF}
7.  

and save project.

Does it compile and run?
I just quick tested as 64bit windows target with Lazarus 3.99 (rev main_3_99-2053-g3635aa3044) FPC 3.2.2 x86_64-win64-win32/win64

And please in future copy the error message and paste it in here instead of taking a screenshot and upload it not here.

[Thaddy]

@KodeZwerg
In mode delphi asmmode is already intel, because basm is intel. No need.
Indeed you can rename dpr to lpr, but I use Geany so I don't need that.
It does only contain 16 assembly for a hardware sound. I would simply remove that part of the code. I just left it in, but I think Rudy would not have mind if it is removed.
[edit] I found an older working version in which I had actually removed the 16 bit assembler.
Apart from that, the code was the same, though.

[KodeZwerg]

@KodeZwerg
In mode delphi asmmode is already intel, because basm is intel. No need.

If you say so but why does it not compile saying the register variables are undeclared and with "{$ASMMODE intel}" they are defined so I can compile, a bug found?

[Thaddy]

For {$mode delphi} the asm mode should be intel, because of the basm syntax being Intel style. intel. If it isn't it, is a bug.

[Atak_Snajpera]

Still the same error. I'm on win7 x64.
https://i.postimg.cc/0NrQqqCj/Capture.png

To make velthuisconsole2.zip from Thaddy compile, here a tutorial:
1. download velthuisconsole2.zip
2. extract it in its own project folder
3. rename ConsoleDemo.dpr to ConsoleDemo.lpr
4. open lazarus "Project -> Close Project" if anything is opened
5. select "Open Project"
6. change filemask filter from "Lazarus Project (*.lpi)"  to "All Files (*.*)"
7. locate and doubleclick ConsoleDemo.lpr
8. select "Create Project" -> "Simple Program"
9. press F9 so the file "Velthuis.Console" gets opened
10. scroll to start of file "Velthuis.Console" and...
replace this

Code: Pascal  [Select][+][-]

1. {$IF DEFINED(FPC)}
2.   {$DEFINE CompilerVersion=17.0}
3.   {$MODE DELPHI}
4.   {$DEFINE HASERROUTPUT}
5. {$ENDIF}
6.  

with that

Code: Pascal  [Select][+][-]

1. {$IF DEFINED(FPC)}
2.   {$DEFINE CompilerVersion=17.0}
3.   {$MODE DELPHI}
4.   {$DEFINE HASERROUTPUT}
5.   {$ASMMODE intel}
6. {$ENDIF}
7.  

and save project.

Does it compile and run?
I just quick tested as 64bit windows target with Lazarus 3.99 (rev main_3_99-2053-g3635aa3044) FPC 3.2.2 x86_64-win64-win32/win64

And please in future copy the error message and paste it in here instead of taking a screenshot and upload it not here.

Thank you for all your help! Now everything works fine.

[Thaddy]

Glad to be of help. It is a nice piece of code from Rudy. Most of his code is still on-line. There are more gems.

[marcov]

Except that I warned him (and Jedi) already in 2002-2003 to not use delphi versions directly as a condition in sources.  http://www.stack.nl/~marcov/porting.pdf

[Thaddy]

Well, that's why I spoof the Delphi version to what is usually compatible with fpc. Saves a lot of work.
You may want to revise your porting.pdf, though: although helpful it is out of date at some points.
Has always been helpful, though.