af0815 hat geschrieben:Kann ich dir irgendwie helfen ?
Nehme das Angebot gerne an - aber am Besten, wenn wir uns mal im Chat treffen. Bin ja relativ regelmäßig dort.
mschnell: Gewünschte Version im Anhang.
af0815 hat geschrieben:Kann ich dir irgendwie helfen ?
Euklid hat geschrieben:mschnell: Gewünschte Version im Anhang.
mschnell hat geschrieben:Hmm. Da ist immer noch die globale Zahlenbasis drin.
Ich bin der Ansicht. Als Basis zur weiteren Bearbeitung brauchen wir eine Version, in der die globale Zahlenbasis als Wert nicht vorkommt (2^64 ist als Wert in keinem Typ darstellbar), sondern nur als in {$if abfragbarer Form mit den beide Möglichkeiten 2^32 und 2^64 also z.B. ist "GNURZBasis64" definiert oder nicht. Dann können wir später den Ausbau auf 64 Bit in Angriff nehmen.
Voll Kompatible Pascal- und ASM-Versionen derselben Funktionen (der "Internal"-Funktionen) sehe ich auch nicht.
Soll ich die basteln ?
Frage: Warum ist das überhaupt eine Klasse ?
Ich will nicht in Deiner Datei 'rumlöschen. Ich warte auf eine Version von Dir, die als Startpunkt für weitere (gemeinsame) Arbeiten (im SVN Archiv) dient. Alles andere ist mir zu chaotisch.Euklid hat geschrieben:mschnell hat geschrieben:Wenn man die GNZdiv löscht, wird auch die GNZ_GlobZahlenbasis nicht mehr benötigt.
mschnell hat geschrieben:Ich will nicht in Deiner Datei 'rumlöschen. Ich warte auf eine Version von Dir, die als Startpunkt für weitere (gemeinsame) Arbeiten (im SVN Archiv) dient.
Alles andere ist mir zu chaotisch.
Wegen einer kleinen Sache stirbt kein Projektmschnell hat geschrieben:Schade dass, das Projekt somit stirbt
Euklid hat geschrieben: Ich habe versucht, die Struktur der GNURZ so aufzubauen, dass sie von anderen Programmierern leicht erweitert werden kann. Dank af's SVN-Zugang wurde endgültig eine Öffnung des Projektes möglich.
mschnell hat geschrieben:Natürlich hat NX keine Arrays mit festen Grenzen .
Wenn ich das richtig sehe, muss man bei den NX-Funktionen für jeden Parameter das Datenfeld und die Länge angeben.
Code: Alles auswählen
//======================================
// A := A * B
//======================================
procedure IMul(A,B: PBigInt);
//======================================
// A <- A div B (B is not modified)
// Result := TRUE iff A mod B = 0
//======================================
function IDiv(A,B: PBigInt): Boolean;
Code: Alles auswählen
//===============================
// R := A + B
//===============================
procedure IAddTo(R,A,B: PBigInt);
mschnell hat geschrieben:Hat noch jemand Interesse an dem Thema ?