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