1{ %cpu=powerpc }
2{ %target=darwin,macos}
3
4type
5  tr1 = record
6    b: byte;
7  end;
8
9  tr2 = record
10    l: longint;
11  end;
12
13  tr3 = record
14    i: int64;
15  end;
16
17  tr4 = record
18    s: string;
19  end;
20
21var
22  r1: tr1;
23  r2: tr2;
24  r3: tr3;
25  r4: tr4;
26
27procedure p1normal(const r: tr1);
28begin
29  if @r = @r1 then
30    halt(1);
31end;
32
33
34procedure p2normal(const r: tr2);
35begin
36  if @r = @r2 then
37    halt(1);
38end;
39
40
41procedure p3normal(const r: tr3);
42begin
43  if @r = @r3 then
44    halt(1);
45end;
46
47
48procedure p4normal(const r: tr4);
49begin
50  if @r <> @r4 then
51    halt(1);
52end;
53
54procedure p1normal2(r: tr1);
55begin
56  if @r = @r1 then
57    halt(1);
58end;
59
60
61procedure p2normal2(r: tr2);
62begin
63  if @r = @r2 then
64    halt(1);
65end;
66
67
68procedure p3normal2(r: tr3);
69begin
70  if @r = @r3 then
71    halt(1);
72end;
73
74
75procedure p4normal2(r: tr4);
76begin
77  if @r = @r4 then
78    halt(1);
79end;
80
81
82procedure p1mw(const r: tr1); mwpascal;
83begin
84  if @r <> @r1 then
85    halt(1);
86end;
87
88
89procedure p2mw(const r: tr2);mwpascal;
90begin
91  if @r <> @r2 then
92    halt(1);
93end;
94
95
96procedure p3mw(const r: tr3);mwpascal;
97begin
98  if @r <> @r3 then
99    halt(1);
100end;
101
102
103procedure p4mw(const r: tr4);mwpascal;
104begin
105  if @r <> @r4 then
106    halt(1);
107end;
108
109
110procedure p1mw2(r: tr1); mwpascal;
111begin
112  if @r = @r1 then
113    halt(1);
114end;
115
116
117procedure p2mw2(r: tr2);mwpascal;
118begin
119  if @r = @r2 then
120    halt(1);
121end;
122
123
124procedure p3mw2(r: tr3);mwpascal;
125begin
126  if @r = @r3 then
127    halt(1);
128end;
129
130
131procedure p4mw2(r: tr4);mwpascal;
132begin
133  if @r = @r4 then
134    halt(1);
135end;
136
137
138begin
139  p1normal(r1);
140  p2normal(r2);
141  p3normal(r3);
142  p4normal(r4);
143
144  p1normal2(r1);
145  p2normal2(r2);
146  p3normal2(r3);
147  p4normal2(r4);
148
149  p1mw(r1);
150  p2mw(r2);
151  p3mw(r3);
152  p4mw(r4);
153
154  p1mw2(r1);
155  p2mw2(r2);
156  p3mw2(r3);
157  p4mw2(r4);
158end.
159