Archives for Compiler Core

FreePascal 3.2.0a

Posted by ALB42 on 12. Juli 202014 Comments

Charlie took some time to review the FreePascal 3.2.0 packages, I created. I changed them according to the suggestions. Some of the hints are not possible at the moment, needs some changes in the code, others are easy to change. He also found a bug in vlink, which got solved and we include now also the latest version of vlink.

The biggest change for the users is, that it now installs into a folder called „FPC“ (instead of FreePascal) also the assign created is named „FPC:“ (instead of „FreePascal“). If you did install the old package and install the new one you can afterwards (after the reboot) delete the old „FreePascal“ drawer.

Yesterday I did exchange all links to the new version already, when updating the arm-AROS version. But here are the links again

Downloads:
Amiga 68k OS3.x+ 68020+ SoftFPU
Amiga OS4 OS4.x PowerPC (X5000 not supported)
AROS ARM RasPi 1-4 ABIv0
AROS i386 ABIv0
MorphOS OS 3.x
Have fun using them!

With it the archives are now also uploaded to the official FPC server and can be downloaded there as well, that means we finally have an official Amiga, MorphOS, AROS release of FPC. Congratulations and thanks to all people involved.

FreePascal 3.2.0

Posted by ALB42 on 20. Juni 202030 Comments

Finally Version 3.2.0 of FreePascal is released. This is the first final release contains the Amiga style systems fully usable. A while before I did some extra work to also create an Amiga-sytle installer, which will be also released with this. Today I will also release the 3.2.0 FreePascal packages for Amiga 68k, Amiga OS4, AROS for ARM, AROS for i386 and MorphOS. So basically all versions except AROS for x86_64 because that’s still too unstable to use (mainly the AROS 64 bit is still a moving target and I was not able to fix that, because AROS is simply not working after the last changes and my last questions about it got just ignored)

Downloads:
Amiga 68k OS3.x+ 68020+ SoftFPU
Amiga OS4 OS4.x PowerPC (X5000 not supported)
AROS ARM RasPi 1-4 ABIv0
AROS i386 ABIv0
MorphOS OS 3.x
Have fun using them!

You notice, these files are still hosted on my server and not on the official FreePascal Server, as the last release 3.0 as well. I was told because my previous packages did not meet the standards for official FreePascal packages. Which was true, I did not care about and packed a lot additional stuff into, like fpgui or LCL and I did not know there are readme texts to add which are not in the official repository but in an external one.

For that release 3.2 I did a lot of work on finding out what would be a good Amiga style package and which docs/texts should be added. Therefore I created that installer package I release today. I also asked for a review and put on to the official FreePascal server, as an official Amiga FreePascal package or give me feedback on what I should further changed.

Sadly that did not happen, I did not get any feedback and the release archives are still nowhere to be found on the official servers, therefore missed for that release.

That whole story took away my motivation as well over the last month as well, it seems rather futile to continue to work on it, when nobody even really use it, which is still true, unfortunately, I have to admit.

FreePascal and X5000

Posted by ALB42 on 30. Mai 2020No Comments

UPDATE: since revision 45802 Free Pascal is not also compatible with X5000 processor, thanks to work by ChainQ. Support for X5000 start with Free Pascal 3.2.2.

Because I got this question already some times, and I do not want to write it again and again, I just make this blog post that I can simple point to at any time 😉

Why my Programs does not work on AmigaOS4 X5000?

The problem is, that FreePascal itself does not know the X5000 CPU, and it seems to be not a normal PowerPC, but needs some special care. I heard something about special alignment problems. I don’t have a X5000, Charlie doesn’t have a X5000 and we do not know whats special about it to fix that issue. Besides, we both are not really using OS4, we both use Classic and MorphOS and I use additionally a big Part AROS (mainly i386 a bit ARM).

As some might notice, long time there was no working AmigaOS4 FreePascal, because I did not have any OS4 capable computer. I used mainly AROS, Charlie used mainly MorphOS and both we used some kind of Amiga68k and that was exactly the work shares we did in FreePascal. Charlie asked and explained some times that there could be an AmigaOS4 port (an older Version was still inside) if someone would step up as Maintainer for it. We didn’t want to do, we had AROS and Amiga68k and MorphOS already. Which is already much to work on. Besides OS4 is a completely different kind of fish (because of the Interfaces).

Then one day this thread came along and if you follow the thread you can see, Charlie decided to make the initial OS4 implementation and someone said, he will step up as maintainer, but sadly this didn’t happen. I’m too much of a FreePascal Amiga guy to let that port in such sorry state and started to implement the rest nevertheless, making me the maintainer for OS4, even I had no interest to be. Of course I’m a big fan, that all four platforms are now supported by FreePascal and due our continuing work on it, they are 99% compatible. (e.g we hid the OS4 Interfaces away, so you do not need to care about that when writing your software)

Recently I bought a AmigaOS4 computer (thanks again to the one sold me that, its working nicely), because in UAE it’s not really usable. But I only use it to test FreePascal, my programs the installer and so on. But for that a some thousands Euro machine would be overkill (and also waste of space). I try to keep the FreePascal AmigaOS4 at least somehow working but not more. In the end the message stays:

If you are interested in Pascal and Amiga(OS4) and want to help with the compiler doing a better job on X5000 (or any other computer as well) you can just do it, it’s open source, send us a patch. If you want to step up as maintainer for AmigaOS4, even better, contact ChainQ/Charlie or me, of course we will happily help. Do not fear, you will not be left alone.

Amiga 1.x Online Compiler

Posted by ALB42 on 10. April 2020No Comments

Charlie implemented a Amiga 1.x compatible version of the FreePascal compiler. It’s a little bit harder to write program for 1.x so many features are missing in Workbench 1.x. These machines are usually 7 Mhz and only very little RAM, so cross compiling is highly advised. Of course the Online compiler would be a good starting point for basic tests.

And that is exactly what I did, I created a separate Online Compiler for the Amiga 1.x Version, why separate, because most of the sources of the original Online Amiga FreePascal Compiler will not work with 1.x. I included a creation of a bootable ADF file directly from the executable created so you can directly try your work inside a UAE instance for example in the very nice Scripted Amiga Emulator.

See for yourself:

So if you are locked inside your home because of corona, why not do something new and start to learn to code FreePascal for Amiga. Have fun.

Online Compiler for all Amiga OS3.x, OS4, MorphOS, AROS: Link

Online Compiler for Amiga OS 1.x: Linḱ

CRT Online

Posted by ALB42 on 8. Januar 2020No Comments

Updated Online Amiga FPC Compiler again with the latest CRT unit and also tried a bunch of console based games using CRT units, all work more or less (some need some adjustments in the code) some of them are even single file pascal source files, so can be used in the online compiler.

SourceNotice
DeadColdrouge-like unfinished game (no win)
Gruesomenice rouge like game
tetris-pascalinsert a TextBackground(DarkGray); at start
Top-snek-dotpas tetrisinsert a TextBackground(Black); CursorOff(); at start
BitTetris No exit from game
Snake Game in TPcomment the two port[] lines at start
Snake
Pascal Snake
Serpent Snake
Tic-Tac-Toe
Pascal Threes
Pascal Torchnice tech demo, replace line 257: i := xxx error with Break; or compile with fpc -Mtp
Pascal PETTamagothi
Symbol Game strange gfx, replace chars #xxx Values with some better chars
Gomoku5 in a row
Word guessing gameadjust pathes ‚\‘ to ‚/‘ wordlist only contains apple
Countdown game
My almost FPStech demo figure movement
Snail race insert a TextBackground(DarkGray); ClrScr; at start
Tank Game
Memory Game

Status CRT unit (feat. DeadCold)

Posted by ALB42 on 1. Januar 2020One Comment

Someone might ask how the crt is going, and how useful this is already. I want to answer it with a little screenshot:

DeadCold on AROS

That is a nice little rouge-like game called DeadCold, written in FreePascal for the console. As you can see it runs and the picture looks right. (it’s not perfectly right, but somehow usable). And because a little video tells much more about how this game runs here is also a little video about it:

There are some drawing problems, especially on the messages and sometimes some of the map disappear but not bad I would say. There are also some messages about removing critter failed… but that seems some error in the game code.

The colors is badly hacked for now, and only works for AROS, I’m not sure if I can upload that this status to the official repository, I will work on it a bit more.

CRT Unit

Posted by ALB42 on 29. Dezember 2019No Comments

Most Tutorials about Pascal use the CRT unit in a very early Lesson. They use it only for ReadKey() to wait for a key at end of Program. It would be of course the same to just use a ReadLn and wait for an Enter.

I tried already to implement CRT before using an old implementation, but exactly this ReadKey implementation does not work at all when KingCON or other console replacements is used.

Now I got a hint in MorphOS Forum (always a very good Source for Implementation hints) to set the console in RAW: mode (using SetMode()) and then just read from the console the pressed keys. If console in raw mode, one can read cursor keys and F keys from the console.

I tried that and on MorphOS and AmigaOS3 it works well, Read blocks until a Button is pressed. But AROS of course is different again 😉 it always returns a Value sometimes 185, sometimes 184, not really know what that means. I thought about some kind of timer event but this should look different.

But finally it works, mapped some keys like F-keys and cursor. Also worked on the output gotoxy and colors, the colors are a little bit tricky, because the Amiga console only supports the first 8 pens (as far as I see it) so I cannot just ObtainBestPen, and the first 8 Pens are usually fixed and not the colors I need. I try to change them with ObtainPen but when they are already taken I just try to find one which has a close color, which does not work very well. Solution unknown.

I compile the example of ReadKey as example3.pas and compiled a little RPG-Game I found which is console based, which is a good testcase for colors and GotoXY. Of course looks not the same as in the DOS console but it is usable.