mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 21:48:01 +02:00
3d6c53ee74
It's an internal sym, but it contains user data. Together with the previous commit resolves #39845
42 lines
509 B
ObjectPascal
42 lines
509 B
ObjectPascal
{ %opt=-gt -Sc }
|
|
|
|
{$mode objfpc}
|
|
|
|
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
|
|
if pos^ = c then
|
|
pos += 1
|
|
else
|
|
halt(1);
|
|
end;
|
|
|
|
procedure TLLVMTest.test();
|
|
begin
|
|
str := 'abc';
|
|
pos:=@str[1];
|
|
expect('a');
|
|
end;
|
|
|
|
|
|
begin
|
|
l := TLLVMTest.create;
|
|
l.test();
|
|
end.
|
|
|