Ich habe mal versucht, x- Units in ein Programm einzubinden.
Beipielhaft mit l= 4.
Code: Alles auswählen
//Unit 1
unit p000001;
interface
procedure go;
implementation
procedure go();
Begin
writeln(1);
writeln(2);
writeln(3);
writeln(4);
End;
End.
// und das Programm:
program test;
uses
p000001,
p000002,
p000003,
p000004;
BEGIN
p000001.go;
p000002.go;
p000003.go;
p000004.go;
END.
Leider musste ich feststellen, dass Freepascal die Units nicht parallel compiliert.
Der große Vorteil ist der erheblich geringe Bedarf an Hauptspeicher während des kompilierens.
Code: Alles auswählen
{$MODE objFPC}
const
l = 1000;
StrLen = 7;
type
tStr7 = string[StrLen];
tNameLst = array[1..l] of tStr7;
procedure StringInc(var s:tStr7);// Spielerei ;-)
var
i : integer;
ch : pChar;
Begin
i := Length(s)-1;
ch := @s[1];
repeat
ch[i] := chr(Ord(ch[i])+1);
IF Ord(ch[i])<=Ord('9') then
BREAK
else
Begin
ch[i] := '0';
dec(i);
IF i < 1 then
BREAK;
end;
until false;
end;
procedure BuildUnit(var name:tStr7;ofs,cnt:integer);
var
f: Text;
Begin
Assign(f, name+'.pas');
Rewrite(f);
WriteLn(f, 'unit '+name+';',#13#10);
WriteLn(f, 'interface ',#13#10,' procedure go;',#13#10,'implementation');
WriteLn(f, ' procedure go();',#13#10,' Begin');
For cnt := cnt downto 1 do
Begin
writeln(f,' writeln(',ofs,');');
inc(ofs);
end;
WriteLn(f, ' End;',#13#10,'End.');
Close(f);
end;
procedure BuildProgram(NameLst:tNameLst);
var
f: Text;
i : integer;
begin
Assign(f, 'pascaltest.pas');
Rewrite(f);
WriteLn(f, 'program test;' + #13#10);
Writeln(f, 'uses');
for i := 1 to l-1 do
Writeln(f,' ',NameLst[i],',');
Writeln(f,' ',NameLst[l],';');
Writeln(f,'BEGIN');
for i := 1 to l do
Writeln(f,' ',NameLst[i],'.go;');
Writeln(f,'END.');
Close(f);
end;
procedure Button1Click;
var
name : tStr7;
NameLst : tNameLst;
i, j: LongInt;
begin
setlength(name,StrLen);
fillchar(name[1],StrLen,'0');
name[1] := 'p';
j := 1;
for i := 1 to l do
Begin
StringInc(name);
writeln(Name);
NameLst[i] := name;
BuildUnit(name,j,l);
inc(j,l);
end;
BuildProgram(NameLst);
end;
procedure Button2Click;
var
f: Text;
i, j: integer;
begin
Assign(f, 'ctest.c');
Rewrite(f);
WriteLn(f, '#include <stdio.h> ');
WriteLn(f, 'void Ausgabe(int i) {printf("%d\n", i);}',#13#10);
for i := 1 to l do begin
WriteLn(f, 'void p', i, '()');
WriteLn(f, '{');
for j := 1 to l do begin
WriteLn(f, ' Ausgabe(', l * (i-1) + j, ');');
end;
WriteLn(f, '};' + #13#10);
end;
WriteLn(f, 'int main()');
WriteLn(f, '{');
for i := 1 to l do begin
WriteLn(f, ' p', i, '();');
end;
WriteLn(f, '}');
Close(f);
end;
Begin
Button1Click;
// Button2Click;
end.
Erstellt 1000 Units p00001 bis p001000. Das geht relativ fix:
Code: Alles auswählen
...
p000999
p001000
real 0m2.113s
user 0m0.160s
sys 0m0.300s
Das Kompilieren dauert aber länger, es wird auch nur eine Unit nach der anderen kompiliert.
l=707 dauerte zuvor 36.? jetzt 40.6 Sekunden .
Aber jetzt kann ich auch l=1000 auf Linux 32-Bit testen
Code: Alles auswählen
...
Compiling p000999.pas
Compiling p001000.pas
Linking pascaltest
/usr/bin/ld: warning: link.res contains output sections; did you forget -T?
1011005 lines compiled, 94.10 sec
real 1m34.998s
user 1m30.347s
sys 0m3.053s
Aber nochmaliges kompilieren bei Änderung an einer Unit dauert nur 1,8 s, ohne Änderung 1,6 s.
Code: Alles auswählen
time fpc pascaltest.pas
Free Pascal Compiler version 2.6.4 [2014/03/03] for i386
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Linux for i386
Compiling pascaltest.pas
Compiling p001000.pas
Linking pascaltest
/usr/bin/ld: warning: link.res contains output sections; did you forget -T?
3013 lines compiled, 1.8 sec
real 0m1.757s
user 0m0.843s
sys 0m0.250s
Man bräuchte ein Hilfsprogramm, was alle genutzten units rausfischt und dann parallel compiliert und erst zum Schluss alles zusammenführt.
Lazarus kann das wohl,
Gruß Horst
EDIT: Beim Text umkopiren entstehen merkwürdige Sätze.
Mal 4096 Units mit 4096 Zeilen erzeugt.->Die ausführbare Datei hat 688.163,980 Byte und funktioniert sogar.xterm ist so schnell...
Code: Alles auswählen
Compiling p004095.pas
Compiling p004096.pas
Linking pascaltest
/usr/bin/ld: warning: link.res contains output sections; did you forget -T?
16822277 lines compiled, 3724.0 sec
real 62m4.489s
user 53m58.993s
sys 0m51.983s
Ich gehe davon aus das ein i7 bei single Thread nicht wirklich viel schneller ist als ein i3 -4330 mit 3,5 Ghz.
EIne ntfs Festplatte ist sicher nicht optimal, aber die Dateien sind ja zum Teil in dem 8 Gb Hauptspeicher als Cache zu finden.
Edit2:
Nochmaliges Kompilieren dauerte 4min 20 Sekunden, also praktisch nur das linken.
Der maximale Speicherbedarf war dann 2649 Mb.
Verein
Links
