Sfoglia il codice sorgente

* fix test for non-x86 platforms

florian 11 mesi fa
parent
commit
d43d581507
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      tests/test/trtti15.pp

+ 1 - 1
tests/test/trtti15.pp

@@ -184,7 +184,7 @@ begin
   Writeln('Testing interface ITestRaw');
   { raw interfaces don't support $M+ currently }
   TestInterface(GetTypeData(TypeInfo(ITestRaw)), True, 'Test',1, [
-      MakeMethod('Test', ccReg, mkFunction, TypeInfo(LongInt), [
+      MakeMethod('Test', DefaultCallingConvention, mkFunction, TypeInfo(LongInt), [
       MakeParam('$self', [pfHidden, pfSelf, pfAddress], TypeInfo(ITestRaw))
       ])
     ]);