From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-0.8 required=5.0 tests=BAYES_00,INVALID_DATE autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,e947872b350ada8e X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 1994-12-06 11:53:29 PST Path: bga.com!news.sprintlink.net!howland.reston.ans.net!wupost!waikato!canterbury.ac.nz!southern.co.nz!equinox.gen.nz!jsnode.equinox.gen.nz!joe From: joe@jsnode.equinox.gen.nz (Joseph Skinner) Newsgroups: comp.lang.ada Subject: Re: GNAT-Problem '+'-operator with Count Distribution: world Message-ID: <2ee30bbc.4a534e4f4445@jsnode.equinox.gen.nz> Date: Tue, 06 Dec 1994 01:46:52 +1300 References: <3bn74o$go5@tucs6.rz.tu-cottbus.de> Organization: .. X-Newsreader: TRN 1.96 (beta) for OS/2 X-Posting-Software: UUPC/extended 1.12j inews (25May94 07:51) Date: 1994-12-06T01:46:52+13:00 List-Id: In article <3bn74o$go5@tucs6.rz.tu-cottbus.de>, Andreas Krohn wrote: >I have a problem with the '+' operator in GNAT. I have posted the part with >the error message. Could someone give me a hint, how to solve this >problem. > > > > 147. > 148. procedure solve_matrix(source: in matrix;target: in out matrix) is > 149. x,y,i,j:Count; --akt. Pos. in Matrix > 150. nachbarn:INTEGER; --Anzahl der Nachbarn jeder Zelle > 151. a,b:Count; > 152. > 153. begin > 154. for i in feldmin..feldmax loop > 155. for j in feldmin..feldmax loop > 156. nachbarn:=0; --neue Zelle 0 setzen > 157. for x in 1..3 loop --nachbarn ermitteln > 158. for y in 1..3 loop > 159. a:=i+x-2; > | > invalid operand types for operator "+" >z >z 160. b:=j+y-2; > | > invalid operand types for operator "+" >z >z 161. if source(a,b)=TRUE then nachbarn:=nachbarn+1; > 162. end if; > 163. end loop; > At a guess the problem is that the definitions for '+' is not visible to the program. Check out your with and use statements to make sure that the definition is visible. On the other hand I may be spouting BS and I'm sure that someone else will tell me if I am. Joe -- =============================================================================== Joseph Skinner | Invercargill usenet: joe@jsnode.equinox.gen.nz | New Zealand There is no such thing as a wizard who minds his own business - Berengis the Black Court Mage to the Earl Caeline