浏览代码

* only use calling conventions supported on all platforms

git-svn-id: trunk@12942 -
Jonas Maebe 16 年之前
父节点
当前提交
0e6f9dc688
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      tests/webtbs/tw12985.pp

+ 2 - 2
tests/webtbs/tw12985.pp

@@ -5,11 +5,11 @@
   convention mismatch when parsing the actual definition
 }
 
-{$calling register}
+{$calling cdecl}
 function test(l1,l2: longint): longint; forward;
 {$calling stdcall}
 
-function test(l1,l2: longint): longint; register;
+function test(l1,l2: longint): longint; cdecl;
 begin
 end;