paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 20:11:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

* pas2jni: Fixed string constant handling after recent changes in FPC.

Browse Source 
git-svn-id: trunk@34275 -
This commit is contained in:
yury 2016-08-11 12:41:13 +00:00
parent 3a2dd2d6e1
commit d99f913836
1 changed files with 23 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
utils/pas2jni/writer.pas
View File

@ -1170,19 +1170,30 @@ begin
s:='double';
end
else begin
s:=DefToJavaType(d.VarType);
if d.VarType.DefType = dtType then
case TTypeDef(d.VarType).BasicType of
btLongWord, btInt64:
v:=v + 'L';
btBoolean:
if v = '1' then
v:='true'
else
v:='false';
end;
s:='';
case d.VarType.DefType of
dtType:
case TTypeDef(d.VarType).BasicType of
btLongWord, btInt64:
v:=v + 'L';
btBoolean:
if v = '1' then
v:='true'
else
v:='false';
end;
dtArray:
with TArrayDef(d.VarType) do
if (ElType.DefType = dtType) and (TTypeDef(ElType).BasicType in [btChar, btWideChar]) then
s:='String';
end;
if s = '' then
s:=DefToJavaType(d.VarType);
end;
Fjs.WriteLn(Format('public static final %s %s = %s;', [s, d.Name, v]));
v:=Format('public static final %s %s = %s;', [s, d.Name, v]);
if s = SUnsupportedType then
v:='// ' + v;
Fjs.WriteLn(v);
end;
procedure TWriter.WriteEnum(d: TDef);