Free Pascal compiler for Amiga

[System]

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.

[whabang]

Oh! Gotta download that one...

[whabang]

Bummer! Only for Linux ( Don't like 0.X versions... )

[System]

Does anyone even use Pascal  to teach computer science anymore???

(Although it would be far better than C/C++...)

[whabang]

Does anyone even use Pascal to teach computer science anymore???

They do at my old school.
To bad I never took those classes... :-D

[KennyR]

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 ;-)

[System]

@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.

[whabang]

@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.  :-(

[AMC258]

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;