BigDecimal - Include

[Helle]

Hatte ich nicht mehr dran gedacht: Beide Proceduren produzieren im ASM-Output Instruktions-Müll und ich habe sie deshalb auskommentiert.
Gruß
Helle

[CSHW89]

Ja gut, ich hoffe mal, dass das so schnell wie möglich bereinigt wird.
Ansonsten zu 'PBSub': das was Stargate bereits sagte, ist richtig. Einfach 'Else: ub = 0' einsetzen, dann funktionierts.
lg kevin

[Sicro]

Einfach 'Else: ub = 0' einsetzen, dann funktionierts.

Wäre gut, wenn du das in deinem Code noch einfügen könntest. Nicht alle lesen den Thread durch.

Gerade festgestellt:

Code: Alles auswählen

Define.BigDecimal bda, bdb, result

BDFromString("1", bda)
BDFromString("3", bdb)
BDdiv(bda, bdb, result)
Debug BDStr(result) ; liefert "333333333."

Ansonsten klasse Include. So etwas fehlt in PureBasic nativ noch.

[Derren]

Ansonsten klasse Include. So etwas fehlt in PureBasic nativ noch.

Seh ich auch so. Aber nicht mit zusätzlichen Funktionen, sondern als Compilerswitch. Dann wird das Programm halt minimal langsamer, dafür gibt's mehr Komfort beim Umgang mit Dezimalzahlen.

[CSHW89]

Ups. Ich hatte mal ne neuere Version hochgeladen, den Link hier aber nicht mehr aktuallisiert (steht nun im ersten Post). Da sind noch ein paar Kleinigkeiten geändert worden. Weiß aber ehrlich gesagt, nicht mehr was .

@Sicro: hast mir gerade echt Angst gemacht. Anscheinend funktioniert der Code nicht unter 64-bit. Ich hatte damals kein 64-bit-System, welshalb ich es nicht testen konnte. Kompiliere den Code zur Not erstmal mit 32-bit, mit der klappt es wie gewohnt. Ich kümmere mich mal die nächsten Tage darum.

lg Kevin

[CSHW89]

Ok, 64-bit sollte wieder klappen. Ein ".l" bei einem Dim hat gefehlt.
Der Typ des Arrays der Mantisse ist ja Long. Es kann sein, dass das Programm bei 64-bit dadurch etwas langsamer ist. Wenn man will, kann man alle ".l" durch ".i" austauschen (dabei aber keines vergessen!). Das könnte minimal schneller sein, ist aber auch auf Kosten doppelter Größe der Zahlen. Muss jeder für sich selbst abwiegen.

lg Kevin

[Sicro]

Vielen Dank für die Korrektur