Amiga.org
Amiga News and Community Announcements => Amiga News and Community Announcements => Amiga Software News => Topic started by: System on October 28, 2002, 02:34:51 PM
-
It's not such an actual news item, as it's from 17 October 2002, but I think it's very useful for those studying informatics at university if they have to create Pascal programs or for hobby programmers as Pascal is still a greate structured programming language.
I am using this compiler for several months now and it works perfectly.
Version 1.0.6 has been built for Amiga-m68k on October 17, 2002
Follow this link to the news section of www.freepascal.org (http://www.freepascal.org/news.html).
-
Oh! Gotta download that one...
-
Bummer! Only for Linux ( Don't like 0.X versions... )
-
Does anyone even use Pascal to teach computer science anymore???
(Although it would be far better than C/C++...)
-
Does anyone even use Pascal to teach computer science anymore???
They do at my old school.
To bad I never took those classes... :-D
-
I learned how to code in Pascal at uni - when I should really have
been learning C++ (grrr). But anyway, pity this Amiga version doesn't
compile PPC executables. :-P ;-)
-
@whabang
Bummer! Only for Linux ( Don't like 0.X versions... )
As you can read in the news section, version 1.0.6 has been built. I think they will put it in the download section soon.
-
@siciliano
A linux-m68k snapshot (version 1.0.7) of the compiler is now available here. An amiga-m68k snapshot (version 1.0.7) should follow soon.
It should follow soon. It's not done yet. :-(
-
I found another bug within the Amiga FPC package. Yes, unfortunately, I have forgotten what the others were. These are the worst possible things to debug!
In the unit intuition.pas,
FUNCTION AddGList(window : pWindow; gadget : pGadget; position : ULONG; numGad : LONGINT; requester : pRequester) : WORD;
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L window,A0
MOVEA.L gadget,A1
MOVE.L position,D0
MOVE.L numGad,D1
MOVEA.L requester,A2
MOVEA.L _IntuitionBase,A6
JSR -438(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END;
Should be:
FUNCTION AddGList(Window:pWindow;Gadget:pGadget;Position:Word;NumGad:Integer;Requester:pRequester):Word;
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L window,A0
MOVEA.L gadget,A1
MOVE.W position,D0
MOVE.W numGad,D1
MOVEA.L requester,A2
MOVEA.L _IntuitionBase,A6
JSR -438(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END
END;