paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Isolated IE200311075 bug found today

Browse Source 
git-svn-id: trunk@1871 -
This commit is contained in:
daniel 2005-12-02 21:05:28 +00:00
parent b507ddae51
commit 190cdc6f4b
4 changed files with 56 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

@ -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

11
tests/tbs/tb0497.pp Normal file
View File

@ -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.

22
tests/tbs/tb0497a.pp Normal file
View File

@ -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.

20
tests/tbs/tb0497b.pp Normal file
View File

@ -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.