2
0
Эх сурвалжийг харах

* pas2jni: Skip var parameters of unsupported types.

git-svn-id: trunk@43381 -
yury 5 жил өмнө
parent
commit
b988837d1b

+ 5 - 2
utils/pas2jni/writer.pas

@@ -864,10 +864,13 @@ begin
           if (VarType <> nil) and (VarType.DefType = dtJniEnv) then
             continue;
           s:=s + '; ' + Name + ': ';
+          ss:=DefToJniType(VarType, err);
           if not IsJavaVarParam(vd) then
-            s:=s + DefToJniType(VarType, err)
+            s:=s + ss
           else begin
-            s:=s + 'jarray';
+            if not err then
+              ss:='jarray';
+            s:=s + ss;
             if tempvars = nil then
               tempvars:=TStringList.Create;
             if VarType = nil then