Lines Matching refs:SPtr

64       SPtr : Int := Name_Entries.Table (Id).Name_Chars_Index + 1;  variable
71       SLast : constant Int := SPtr + SLen - 1;
92             C := Name_Chars.Table (SPtr);
93             SPtr := SPtr + 1;
113       while SPtr <= SLast loop
114          C := Name_Chars.Table (SPtr);
119            and then SPtr <= SLast - 2
120            and then Name_Chars.Table (SPtr + 1) not in 'A' .. 'Z'
122             SPtr := SPtr + 1;
128            and then SPtr <= SLast - 4
129            and then Name_Chars.Table (SPtr + 1) not in 'A' .. 'Z'
131             SPtr := SPtr + 1;
137            and then SPtr <= SLast - 8
138            and then Name_Chars.Table (SPtr + 1) = 'W'
140             SPtr := SPtr + 2;
145          elsif C = 'Q' and then SPtr < SLast then
152               UTF_32_Code (Get_Char_Code (Name_Chars.Table (SPtr + 1)));
154             SPtr := SPtr + 2;
160             SPtr := SPtr + 1;