* Isolated IE200311075 bug found today

git-svn-id: trunk@1871 -

.gitattributes

@@ -5097,6 +5097,9 @@ tests/tbs/tb0493.pp svneol=native#text/plain
 tests/tbs/tb0494.pp -text
 tests/tbs/tb0495.pp svneol=native#text/plain
 tests/tbs/tb0496.pp svneol=native#text/plain
+tests/tbs/tb0497.pp -text
+tests/tbs/tb0497a.pp -text
+tests/tbs/tb0497b.pp -text
 tests/tbs/ub0060.pp svneol=native#text/plain
 tests/tbs/ub0069.pp svneol=native#text/plain
 tests/tbs/ub0119.pp svneol=native#text/plain

tests/tbs/tb0497.pp

@@ -0,0 +1,11 @@
+program tb0497;
+
+{This source file isolates an internal error 200311075 bug found on
+ 2 dec 2005.}
+
+{No code is needed, just using the unit triggers the bug.}
+
+uses tb0497a;
+
+begin
+end.

tests/tbs/tb0497a.pp

@@ -0,0 +1,22 @@
+unit tb0497a;
+
+{$inline on}
+
+interface
+
+function compress(dest:Pchar;var destLen:cardinal; source : Pchar; sourceLen:cardinal):longint;inline;
+
+implementation
+
+uses tb0497b;
+
+function compress(dest:Pchar;var destLen:cardinal; source : Pchar; sourceLen:cardinal):longint;inline;
+
+type Pbytearray=^Tbytearray;
+     Tbytearray=array[0..0] of byte;
+
+begin
+  compress:=tb0497b.compress(Pbyte(dest),destlen,Pbytearray(source)^,sourcelen);
+end;
+
+end.

tests/tbs/tb0497b.pp

@@ -0,0 +1,20 @@
+unit tb0497b;
+
+interface
+
+function compress (dest : Pbyte;
+                   var destLen : cardinal;
+                   const source : array of byte;
+                   sourceLen : cardinal) : integer;
+
+implementation
+
+function compress (dest : Pbyte;
+                   var destLen : cardinal;
+                   const source : array of byte;
+                   sourceLen : cardinal) : integer;
+begin
+end;
+
+
+end.