|
@@ -184,7 +184,7 @@ begin
|
|
Writeln('Testing interface ITestRaw');
|
|
Writeln('Testing interface ITestRaw');
|
|
{ raw interfaces don't support $M+ currently }
|
|
{ raw interfaces don't support $M+ currently }
|
|
TestInterface(GetTypeData(TypeInfo(ITestRaw)), True, 'Test',1, [
|
|
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))
|
|
MakeParam('$self', [pfHidden, pfSelf, pfAddress], TypeInfo(ITestRaw))
|
|
])
|
|
])
|
|
]);
|
|
]);
|