Freepascal - Versionsgeschichte

Root: /* OrgaMon-Projekte */

2025-08-13T09:13:50Z

OrgaMon-Projekte

← Nächstältere Version		Version vom 13. August 2025, 11:13 Uhr
Zeile 13:		Zeile 13:
	== OrgaMon-Projekte ==		== OrgaMon-Projekte ==

	[[keepcon]], [[bakexternal]], [[domadd]], [[lOrgaMon]], [[Polyzalos]], [[HTTP2]]		[[keepcon]], [[bakexternal]], [[domadd]], [[lOrgaMon]], [[Polyzalos]], [[HTTP2]], [[massConf]]

	== Installation ==		== Installation ==

Root: /* case statement */

2024-11-27T15:09:59Z

case statement

← Nächstältere Version		Version vom 27. November 2024, 17:09 Uhr
Zeile 184:		Zeile 184:
	Die Zuweisung nach a erfolgt in einem eigenen Thread. DIe Codeausführung wird sofort mit der nächsten Zeile fortgesetzt. Auch für die Zuweisung zu b wird ein Thread gestartet. Erst bei einem lesenden Zugriff auf a oder b wird auf das Ergebnis (= Beendigung des Threads) gewartet, ein erneuter schreibender ZUgriff auf a oder b würde den Thread ohne Warten auf das Ergebnis abbrechen.		Die Zuweisung nach a erfolgt in einem eigenen Thread. DIe Codeausführung wird sofort mit der nächsten Zeile fortgesetzt. Auch für die Zuweisung zu b wird ein Thread gestartet. Erst bei einem lesenden Zugriff auf a oder b wird auf das Ergebnis (= Beendigung des Threads) gewartet, ein erneuter schreibender ZUgriff auf a oder b würde den Thread ohne Warten auf das Ergebnis abbrechen.

	=== ~~case~~ statement ===		=== prism statement ===

			Ich denke über eine Optimierung nach, einen Sonderfall des "case" Statements nach. Der Compiler könnte es automatisch machen oder er durch "prism" gezwungen.

			prism c
			0..3:
			4..9:
			10:
			13:
			else
			end;

			* dies würde vom Compiler nicht mit einer "if" Kette entschieden, sondern mit einer Jumptable mit 14 Einträgen. c wird als Offset interprätiert um die Jumptable zu adressieren. 11 und 12 springen in den "else" Zweig, <0 oder >13 auch. Die "Entscheidung"


	* fpc\compiler\x86_64\nx64set.pas Line 63 ff		* fpc\compiler\x86_64\nx64set.pas Line 63 ff
	* Optimierung nur bei -Os, (=size), ich halte aber auch "speed" für ein Argument		* Optimierung nur bei -Os, (=size), ich halte aber auch "speed" für ein Argument

	~~Es ist eine Optimierung beim Freepascal Case Statement möglich, wenn z.B. anhand eines enum-Types unterschieden werden soll:~~

	* die Optimierung für bei einer Hohen Granularität sind keiner erhöhten Code Grösse		* die Optimierung für bei einer Hohen Granularität sind keiner erhöhten Code Grösse

Root: /* relevante Projekte */

2024-10-14T12:32:05Z

relevante Projekte

← Nächstältere Version		Version vom 14. Oktober 2024, 14:32 Uhr
Zeile 353:		Zeile 353:
	== relevante Projekte ==		== relevante Projekte ==

	* http://greenfishsoftware.org/gfie.php
	* https://github.com/mikerabat/mrmath		* https://github.com/mikerabat/mrmath
	* https://de.wikipedia.org/wiki/Netwide_Assembler		* https://de.wikipedia.org/wiki/Netwide_Assembler

Root: /* relevante Projekte */

2024-10-14T12:28:48Z

relevante Projekte

← Nächstältere Version		Version vom 14. Oktober 2024, 14:28 Uhr
Zeile 354:		Zeile 354:

	* http://greenfishsoftware.org/gfie.php		* http://greenfishsoftware.org/gfie.php
	* https://github.com/ncs-sniper/Lib.CityHash
	* https://github.com/mikerabat/mrmath		* https://github.com/mikerabat/mrmath
	* https://de.wikipedia.org/wiki/Netwide_Assembler		* https://de.wikipedia.org/wiki/Netwide_Assembler

Root: /* OrgaMon-Projekte */

2024-03-22T12:01:04Z

OrgaMon-Projekte

← Nächstältere Version		Version vom 22. März 2024, 14:01 Uhr
Zeile 13:		Zeile 13:
	== OrgaMon-Projekte ==		== OrgaMon-Projekte ==

	[[keepcon]], [[bakexternal]], [[domadd]], [[lOrgaMon]], [[Polyzalos]]		[[keepcon]], [[bakexternal]], [[domadd]], [[lOrgaMon]], [[Polyzalos]], [[HTTP2]]

	== Installation ==		== Installation ==

Root: /* "param" anstelle von "var" */

2024-02-23T19:11:21Z

"param" anstelle von "var"

← Nächstältere Version		Version vom 23. Februar 2024, 21:11 Uhr
Zeile 146:		Zeile 146:
	=== "param" anstelle von "var" ===		=== "param" anstelle von "var" ===

			<syntaxhighlight lang="pascal" line>
	var		var
	MomentTimeout : ANFiXDate; Parameter;		MomentTimeout : ANFiXDate; Parameter;
Zeile 166:		Zeile 166:
	' Dateieinträge frei, da sie älter als 10 Tage sind');		' Dateieinträge frei, da sie älter als 10 Tage sind');
	end;		end;
			</syntaxhighlight>

	"param" Variable sind wie "var" Variable, die aber erst gesetzt werden, wenn ein (erster) lesender Zugriff erfolgt. Das "Setzen" des VAriablen-Wertes erfolgt gar nicht, an dieser Stelle wird kein Code ausgeführt, erst beim ersten Vergleich wird "MomentTimeout" gesetzt. Danach wird MomentTimeout wie eine normale Variable verwendet. Dadurch lässt sich der Code übersichtlicher gestalten. Man kann die "gathering" Phase schön beisammenhalten - auch wenn die die Kosten hoch sind. Es wird jedoch keine Zeit verbraten, und eine Menge komplexe if-Bedingungen gespart.		"param" Variable sind wie "var" Variable, die aber erst gesetzt werden, wenn ein (erster) lesender Zugriff erfolgt. Das "Setzen" des VAriablen-Wertes erfolgt gar nicht, an dieser Stelle wird kein Code ausgeführt, erst beim ersten Vergleich wird "MomentTimeout" gesetzt. Danach wird MomentTimeout wie eine normale Variable verwendet. Dadurch lässt sich der Code übersichtlicher gestalten. Man kann die "gathering" Phase schön beisammenhalten - auch wenn die die Kosten hoch sind. Es wird jedoch keine Zeit verbraten, und eine Menge komplexe if-Bedingungen gespart.

Root: /* Beispiel */

2024-02-23T19:04:01Z

Beispiel

← Nächstältere Version		Version vom 23. Februar 2024, 21:04 Uhr
Zeile 108:		Zeile 108:
	== Beispiel ==		== Beispiel ==

	<syntaxhighlight lang="pascal" line>		<syntaxhighlight lang="pascal" line highlight="3">
	program circularreference;		program circularreference;


	procedure Marco(n: Integer); forward;		procedure Marco(n: Integer); forward;

Root: /* Beispiel */

2024-02-23T19:01:18Z

Beispiel

← Nächstältere Version		Version vom 23. Februar 2024, 21:01 Uhr
Zeile 112:		Zeile 112:


	procedure Marco(n: Integer); ~~<b>~~forward~~</b>~~;		procedure Marco(n: Integer); forward;

	procedure Polo(n: Integer);		procedure Polo(n: Integer);

Root: /* Beispiel */

2024-02-23T19:01:05Z

Beispiel

← Nächstältere Version		Version vom 23. Februar 2024, 21:01 Uhr
Zeile 112:		Zeile 112:


	procedure Marco(n: Integer); forward;		procedure Marco(n: Integer); <b>forward</b>;

	procedure Polo(n: Integer);		procedure Polo(n: Integer);

Root: /* AnsiUpperCase */

2024-02-23T18:59:38Z

AnsiUpperCase

← Nächstältere Version		Version vom 23. Februar 2024, 20:59 Uhr
Zeile 79:		Zeile 79:
	# gibt es keine Änderung, z.B. "A" bleibt "A". Aus Performanche-Gründen interessieren diese Details aber nicht		# gibt es keine Änderung, z.B. "A" bleibt "A". Aus Performanche-Gründen interessieren diese Details aber nicht

			<syntaxhighlight lang="pascal" line>
	const		const
	LUT		LUT
Zeile 103:		Zeile 104:
	for n := 1 to l do		for n := 1 to l do
	result[n] := LUT[ord(src[n])]		result[n] := LUT[ord(src[n])]
			</syntaxhighlight>

	== Beispiel ==		== Beispiel ==