blob: 9124b20085bd7db44787b310a0bac0f89e94d346 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ Source provided for Free Pascal Bug Report 3137 }
{ Submitted by "Vincent Snijders" on 2004-06-04 }
{ e-mail: vslist@zonnet.nl }
unit tw3137;
{$ifdef fpc}{$mode delphi}{$endif}
interface
function a: integer; assembler;
implementation
function a: integer;
asm
end;
end.
|
