LLVM -gt crash
## Summary
-gt in a procedure with a nested procedure crashes
## System Information
<!-- The more information are provided the easier it is to replicate the bug -->
- **Operating system:** Linux
- **Processor architecture:** x86-64
- **Compiler version:** trunk 81a7da51a5c6affea394cfea7b604fe392ad83c9 clang-13
## Steps to reproduce
` -MObjFPC -Scgi -Cg -O1 -g -gl -gt -l -vewnhibq `
## Example Project
```
program Project1;
type TLLVMTest = class
str: ansistring;
pos: pchar;
procedure expect(c: char);
procedure test();
end;
var
l: TLLVMTest;
procedure TLLVMTest.expect(c: char);
procedure error;
begin
while (pos^ <> c) and (pos^ <> #0) do pos += 1;
end;
begin
writeln(pos <> nil);
// if pos^ = c then pos += 1
// else error();
end;
procedure TLLVMTest.test();
begin
str := 'abc';
pos:=@str[1];
expect('a');
end;
begin
l := TLLVMTest.create;
l.test();
end.
```
## What is the current bug behavior?
It crashes
## What is the expected (correct) behavior?
It should not crash
issue