website logo
Auteur
avatar
pierrep

Forum » » Développement » » [Résolu] - Problème avec FreePascal sous Morphos 2.7


Post� : 26-04-2011 16:20 icone du post

J'avais adapté Ã FPC un petit programme écrit en Turbo Pascal 4.0 en utilisant des procédures pour émuler les primitives graphiques et notamment celle-ci :

procedure gotoxy(x,y:Integer);
var
nx,ny:Integer;
begin
nx := 5*x;
ny := 10*y;
Move(myWindow^.RPort,nx,ny);
end;

Depuis que j'ai installé Morphos 2.7 ce programme se compile sans problème mais à l’exécution j'obtiens :
"*** application is meditating ***"
Après quelques tests je me suis apperçu que c'est après l’exécution de cette procédure gotoxy que le programme plante.

Le problème ne vient pas de FPC car j' ai essayé de compiler le programme avec la version 2.04 avec laquelle je j'avais écrit et le résultat est le même.

Quelqu'un aurait-il une explication ?

Merci

Cet article provient de Meta-MorphOS
https://www.meta-morphos.org/viewtopic.php?topic=761&forum=52