blob: ece25c8fab40d1ffbe8ae18d16300336a8c1240f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{ %CPU=m68k }
{ Old file: tbs0102.pp }
{ page fault when trying to compile under ppcm68k OK 0.99.1 }
{ assembler reader of m68k for register ranges }
unit tb0086;
interface
implementation
{$ifdef M68K}
procedure int_help_constructor;
begin
asm
movem.l d0-a7,-(sp)
end;
end;
{$endif M68K}
end.
|
