@@ -5559,6 +5559,7 @@ tests/test/cg/tnot.pp svneol=native#text/plain
tests/test/cg/tobjsiz2.pp svneol=native#text/plain
tests/test/cg/tobjsize.pp svneol=native#text/plain
tests/test/cg/tpara1.pp svneol=native#text/plain
+tests/test/cg/tpara2.pp svneol=native#text/plain
tests/test/cg/tprintf.pp svneol=native#text/plain
tests/test/cg/traise1.pp svneol=native#text/plain
tests/test/cg/traise2.pp svneol=native#text/plain
@@ -562,7 +562,7 @@ implementation
function int_cgsize(const a: aint): tcgsize;{$ifdef USEINLINE}inline;{$endif}
const
size2cgsize : array[0..8] of tcgsize = (
- OS_NO,OS_8,OS_16,OS_32,OS_32,OS_64,OS_64,OS_64,OS_64
+ OS_NO,OS_8,OS_16,OS_NO,OS_32,OS_NO,OS_NO,OS_NO,OS_64
);
begin
if a>8 then
@@ -0,0 +1,49 @@
+type
+ sint16 = smallint;
+ uint16 = word;
+
+ Point = record
+ case SInt16 of
+ 0: (
+ v: SInt16;
+ h: SInt16;
+ );
+ 1: (
+ vh: array [0..1] of SInt16;
+ end;
+ Rect = record
+ top: SInt16;
+ left: SInt16;
+ bottom: SInt16;
+ right: SInt16;
+ topLeft: Point;
+ botRight: Point;
+ RGBColor = record
+ red: UInt16;
+ { magnitude of red component }
+ green: UInt16;
+ { magnitude of green component }
+ blue: UInt16;
+ { magnitude of blue component }
+function test(r: Rect; c1, c2: RGBColor): Rect;
+begin
+ test:= r;
+end;
+var
+ r: rect;
+ c1,c2: rgbcolor;
+ test(r,c1,c2);
+end.