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,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1994-12-02 19:20:03 PST
Path: 
 bga.com!news.sprintlink.net!howland.reston.ans.net!pipex!uunet!zib-berlin.de!prise.nz.dlr.de!news.dfn.de!news.tu-cottbus.de!cop!ak
From: ak@informatik.tu-cottbus.de (Andreas Krohn)
Newsgroups: comp.lang.ada
Subject: GNAT-Problem '+'-operator with Count
Date: 2 Dec 1994 13:23:36 GMT
Organization: UCS,  TECHNICAL UNIVERSITY at COTTBUS (FRG)
Message-ID: <3bn74o$go5@tucs6.rz.tu-cottbus.de>
NNTP-Posting-Host: cop.informatik.tu-cottbus.de
X-Newsreader: TIN [version 1.2 PL2]
Date: 1994-12-02T13:23:36+00:00
List-Id: <comp.lang.ada>

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;