paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 13:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* pas2jni: Use cthreads first.

Browse Source 
git-svn-id: trunk@34953 -
This commit is contained in:
yury 2016-11-23 14:21:49 +00:00
parent ea16dfdcf8
commit d5cc2e83cf
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
utils/pas2jni/writer.pas
View File

@ -2742,6 +2742,7 @@ begin
Fps.WriteLn;
Fps.WriteLn('uses');
Fps.WriteLn('{$ifdef unix} cthreads, {$endif}', 1);
s:='';
for i:=0 to p.Units.Count - 1 do begin
ProcessRules(p.Units[i]);
@ -2752,10 +2753,15 @@ begin
continue;
if s <> '' then
s:=s + ', ';
if Length(s) >= 100 then begin
Fps.WriteLn(s, 1);
s:='';
end;
s:=s + p.Units[i].Name;
end;
Fps.WriteLn(s + ',', 1);
Fps.WriteLn('{$ifndef FPC} Windows, {$endif} {$ifdef unix} cthreads, {$endif} SysUtils, SyncObjs, jni;', 1);
if s <> '' then
Fps.WriteLn(s + ',', 1);
Fps.WriteLn('{$ifndef FPC} Windows, {$endif} SysUtils, SyncObjs, jni;', 1);
// Types
Fps.WriteLn;