rendered paste body$ gnatmake -P globe_3d_gps_linux.gpr
gnatgcc -c -gnato -fstack-check -g -gnat95 -gnatwk -gnatwm -gnatwp -gnatwz -gnatVc -gnatVf -gnatVi -gnatVm -gnatVo -gnatVr -gnatVs -gnatVt -gnatyh -gnatyi -gnatyk -gnatyn -gnatyp -I- -gnatA /home/oenone/src/Ada/globe3d/src/gl/gl-geometry.adb
gl-geometry.adb:161:04: missing "return" statement in function body
gl-geometry.adb:164:16: no selector "primitive_Id" for type "Geometry'class" defined at gl-geometry.ads:137
gl-geometry.adb:322:07: warning: unreachable code
gnatmake: "/home/oenone/src/Ada/globe3d/src/gl/gl-geometry.adb" compilation error