Преглед на файлове

* fix test for non-x86 platforms

florian преди 1 година
родител
ревизия
d43d581507
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  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))
       ])
     ]);