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

* use oldfpccall for 1.1+

Browse Source
This commit is contained in:
peter 2003-10-03 14:46:10 +00:00
parent c63b079d07
commit 1f23804bcf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/tbs/tb0168.pp
View File

@ -14,7 +14,7 @@ type rec = record
{ this is really for tests but { this is really for tests but
this should be coded with const r1 and r2 !! } this should be coded with const r1 and r2 !! }
function x(r1 : rec; r2 : rec; var r3 : rec) : integer; assembler; function x(r1 : rec; r2 : rec; var r3 : rec) : integer; assembler; {$ifndef ver1_0}oldfpccall;{$endif}
asm asm
movl r3, %edi movl r3, %edi
movl r1, %ebx movl r1, %ebx