1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
{ %skiptarget=win32,win64 }
{ %OPT=-Cg- }
{ Old file: tbs0227.pp }
{ external var does strange things when declared in localsymtable OK 0.99.11 (PFV) }
var
stacksize : ptrint;external name '__stklen';
function getstacksize:ptrint;assembler;
asm
{$ifdef CPUI386}
movl stacksize,%eax
end ['EAX'];
{$endif CPUI386}
{$ifdef CPUX86_64}
movq stacksize@GOTPCREL(%rip),%rax
movq (%rax),%rax
end ['EAX'];
{$endif CPUX86_64}
{$ifdef CPU68K}
move.l stacksize,d0
end ['D0'];
{$endif CPU68K}
{$ifdef cpupowerpc}
{$if not defined(macos) and not defined(aix)}
lis r3, stacksize@ha
lwz r3, stacksize@l(r3)
{$else macos}
lwz r3, stacksize(r2)
lwz r3, 0(r3)
{$endif macos}
end;
{$endif cpupowerpc}
{$ifdef cpusparc}
sethi %hi(stacksize),%i0
or %i0,%lo(stacksize),%i0
end;
{$endif cpusparc}
{$ifdef cpuarm}
ldr r0,.Lpstacksize
ldr r0,[r0]
b .Lend
.Lpstacksize:
.long stacksize
.Lend:
end;
{$endif cpuarm}
begin
writeln(getstacksize);
end.
|