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

no message

Browse Source
This commit is contained in:
florian 2005-01-19 20:03:50 +00:00
parent ec7c4a2ff4
commit 4c59b499fa
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/webtbs/tw3576.pp Normal file
View File

@ -0,0 +1,14 @@
{ Source provided for Free Pascal Bug Report 3576 }
{ Submitted by "Simon Kissel" on 2005-01-19 }
{ e-mail: scamp@untergrund.net }
{$mode delphi}
{$asmmode intel}
function Q_CompStr(const S1, S2: string): Integer;assembler;
asm
end;
begin
Q_CompStr('','');
end.