|
@@ -368,8 +368,8 @@ begin
|
|
Result:=0;
|
|
Result:=0;
|
|
aClassName:=GetName(Intf);
|
|
aClassName:=GetName(Intf);
|
|
aPasIntfName:=GetPasIntfName(Intf);
|
|
aPasIntfName:=GetPasIntfName(Intf);
|
|
- AddLn('class function Cast(Intf: IJSObject): '+aPasIntfName+';');
|
|
|
|
- Code:='class function '+aClassName+'.Cast(Intf: IJSObject): '+aPasIntfName+';'+sLineBreak;
|
|
|
|
|
|
+ AddLn('function Cast(Intf: IJSObject): '+aPasIntfName+';');
|
|
|
|
+ Code:='function '+aClassName+'.Cast(Intf: IJSObject): '+aPasIntfName+';'+sLineBreak;
|
|
Code:=Code+'begin'+sLineBreak;
|
|
Code:=Code+'begin'+sLineBreak;
|
|
Code:=Code+' Result:='+aClassName+'.Cast(Intf);'+sLineBreak;
|
|
Code:=Code+' Result:='+aClassName+'.Cast(Intf);'+sLineBreak;
|
|
Code:=Code+'end;'+sLineBreak;
|
|
Code:=Code+'end;'+sLineBreak;
|
|
@@ -431,6 +431,12 @@ Var
|
|
begin
|
|
begin
|
|
Result:=True;
|
|
Result:=True;
|
|
Data:=aDef.Data as TPasDataWasmJob;
|
|
Data:=aDef.Data as TPasDataWasmJob;
|
|
|
|
+ if Data.PasName='' then
|
|
|
|
+ begin
|
|
|
|
+ writeln('Note: skipping Getter of '+aDef.Parent.Name+' at '+GetDefPos(aDef));
|
|
|
|
+ exit(false);
|
|
|
|
+ end;
|
|
|
|
+
|
|
Suff:='';
|
|
Suff:='';
|
|
RT:='';
|
|
RT:='';
|
|
if (foConstructor in aDef.Options) then
|
|
if (foConstructor in aDef.Options) then
|