fpcsrc/tests/tbs/tb0355.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

{$mode delphi}

const
  CSV_Internal = 10;

type
  PTypeRec = ^TTypeRec;
  TTypeRec = record
    atypeid: Word;
  end;


function ChangeType(newtype: PTypeRec): Pointer;

begin
  if NewType.AtypeID = CSV_Internal then
  begin
  end;
end;

begin
end.