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

* added nostackframe to fix running on darwin/i386

Browse Source 
git-svn-id: trunk@9195 -
This commit is contained in:
Jonas Maebe 2007-11-11 16:24:05 +00:00
parent 7b8bbae582
commit e385c0f7b1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tw8153.pp
View File

@ -11,7 +11,7 @@ type
procedure testatt; virtual; procedure testatt; virtual;
end; end;
procedure tc.testintel; assembler; procedure tc.testintel; assembler; nostackframe;
asm asm
mov ecx,[eax] mov ecx,[eax]
jmp [ecx + vmtoffset tc.v] jmp [ecx + vmtoffset tc.v]
@ -19,7 +19,7 @@ end;
{$asmmode att} {$asmmode att}
procedure tc.testatt; assembler; procedure tc.testatt; assembler; nostackframe;
asm asm
movl (%eax),%ecx movl (%eax),%ecx
jmpl +vmtoffset tc.v(%ecx) jmpl +vmtoffset tc.v(%ecx)