From 611b8cc748c1d553dcc682d943527b516f1c6483 Mon Sep 17 00:00:00 2001
From: Adrien Lescourt <adrien.lescourt@gmail.com>
Date: Tue, 31 Oct 2017 09:35:45 +0100
Subject: [PATCH] Fix infinite loop at the end of test_sglib.adb
---
README.md | 1 +
example/test_sglib.adb | 3 +--
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/README.md b/README.md
index 1d2af6d..c82b116 100644
--- a/README.md
+++ b/README.md
@@ -15,6 +15,7 @@ git clone https://githepia.hesge.ch/iti_logiciel_public/ada_sglib.git /home/monU
Compilation de la librairie (ignorer les 'warning')
```
+cd /home/monUsername/ada_sglib
gcc -c Xdraw.c
gnatmake -c sglib.adb
ar rc libSglib.a *.o
diff --git a/example/test_sglib.adb b/example/test_sglib.adb
index 8757b7d..90ca4f7 100644
--- a/example/test_sglib.adb
+++ b/example/test_sglib.adb
@@ -2,7 +2,6 @@ with Sglib; use Sglib; -- Définition des paquetages utilises
procedure TEST_SGLIB is
-- Procedure principale dessinant textes et figures:
- A : Integer;
begin
-- Initialisation de la fenetre X:
INITX(100,100,400,400);
@@ -68,7 +67,7 @@ begin
end loop ;
-- Attente infinie:
loop
- A:=A+1;
+ Null;
end loop ;
-- -- Fermeture de la fenêtre X:
--CLOSEX;
--
GitLab