unix/boot/spp/rpp/rpprat/whiles.r


1
2
3
4
5
6
7
8
9
10
11
12
13
14

#-h-  whiles			  148  local   12/01/80  15:55:12
# whiles - generate code for end of while
   include  defs

   subroutine whiles (lab)

   integer lab
   include COMMON_BLOCKS

   call outgo (lab)
   call indent (-1)
   call outcon (lab + 1)
   return
   end