Parcourir la source

* only use calling conventions supported on all platforms

git-svn-id: trunk@12942 -
Jonas Maebe il y a 16 ans
Parent
commit
0e6f9dc688
1 fichiers modifiés avec 2 ajouts et 2 suppressions
  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;