Dynamische Speicherzuweisung für Feldgruppen

[Matthias182]

Dass es keinen Fehler gibt beim Zugriff auf Daten mit einem NULL-Pointer kann ich kaum glauben. Normalerweise gibts da einen MCH-Fehler (Adresse nicht gesetzt).

Wenn du zu wenig Speicher zuordnest und dann auf Speicher dahinter zugreifst merkt das System das ggf. nicht solange der intern zugewiesene Speicher ausreicht.
Der Programmierer ist da vollkommen auf sich selbst gestellt.

ok, den Fehler gab es sicher nicht. Also muss ich irgendwas falsch gemacht haben.

Könntest du vielleicht anhand meines Programms erklären, was ich ändern muss, um den Fehler zu bekommen?

Du solltest zumindest abfragen, ob %ALLOC und %REALLOC erfolgreich waren.

Das werde ich natürlich später tun und dann auch entsprechend darauf reagieren. Ich wollte einfach in einem kurzen Programm sehen, wie sich diese Methode verhält und ob ich sie in andere Programme einbauen kann.

[Pikachu]

Also das wirft hier unter V5R4 einen MCH3601 (Zeiger für angegebene Position nicht gesetzt.) gefolgt von einem RNQ0222 (Zeiger- oder Parameterfehler).

D Arrayptr        S               *   Inz(*Null)     
D cArray          DS                  Based(Arrayptr)
D  aArray                             dim(1000)      
D   aField1                     10    overlay(aArray)
D Value           S             10A   INZ('Test01')  
D X               S             10P 0 INZ(1)         
D Y               S             10P 0                
                                                     
 /Free                                               
  aField1(X) = Value;                                
  *INLR = *ON;                                       
 /End-Free 

[BenderD]

... hier muss man (mindestens) 2 Dinge voneinander unterscheiden:

Eine Variable mit based Deklaration wird vom Compiler ohne Speicher angelegt, wenn dem based Pointer zur Compiletime kein statischer Wert zugewiesen werden kann. Wird sowas dann zur Laufzeit referenziert, merkt die runtime das, und motzt.

Habe ich dem based Pointer einen Wert zugewiesen (über alloc, %addr, oder sowas) kann ich die Variable bedienen. Dynamische Speicher Allokierung ist keine (in Worten: k e i n e !) Stärke der RPG Runtime Umgebungen, so ein Pointer auf der AS/400 weiß nicht auf was er da zeigt und das ist ihm auch Wurscht. Die entsprechenden Prüfungen sind lückenhaft, wie ein Käse, als man den Kühen noch keine Antibiotika gab. Adressiere ich Phantasiewerte für den Pointer, durch Rechenfehler, Verwendung von mehr Elementen des Arrays als es hat... könnte es knallen, muss aber nicht, wenn man Pech hat, dann überklopft ein neuer alloc möglicherweise irgendwas und wenn da dann ein anderer Pointer stand, dann gehts richtig in den Wald - auf Windows nennt man das dann Bluescreen, auf AS/400 WebSphere.

Aufpassen muss man natürlich zusätzlich noch an anderen Stellen, wie Pointer Alignment, korrekte Freigabe von Speicher etc. - es sei denn, man verwendet eine fertige Komponente, da gibt es auf meiner Freeware Seite eine HashTable und einen Vector, bei Mihael (RPGNEXTGEN.COM) einen Vector, eine linked list und weiteres, Thomas (tools400.de) hat sowas wahrscheinlich auch Open Source und Google findet wohl noch mehr.

D*B

[Matthias182]

Hallo,

ich bekomme den gleichen Fehler, wenn ich dein Beispiel nutze.

Dann habe ich wohl einen Gedankenfehler in meinem Programm.

Kann es sein, dass diese Anweisungen mehr Speicher zuweisen, als ich erwarte (X+10 = 11 Elemente)?

// Allocate memory X + 10 elements
Y = X + 10;
Arrayptr = %Alloc(%Size(cArray) * Y); 

[Fuerchau]

Klar, du weist ja nicht die Größe der einzelnen Elemente zu sondern die definierte Größe deiner gesamten DS, und das N-Mal.

[Matthias182]

In Ordnung, ich habe ein Feld mit der Länge 10 in meinem Array.

Also müsste ich wenn ich 11 Elemente zuweise Platz für 110 Zeichen haben, oder nicht?

Wo liegt mein Irrtum?

[BenderD]

11 * 10.000 = 110.000

lass das lieber mit der Pointer Rechnerei!

D*B

In Ordnung, ich habe ein Feld mit der Länge 10 in meinem Array.

Also müsste ich wenn ich 11 Elemente zuweise Platz für 110 Zeichen haben, oder nicht?

Wo liegt mein Irrtum?

[Fuerchau]

cArray ist eine Struktur mit 1000 Elementen von aArray, also 10.000 lang.
%size(cArray) liefert daher 10.000
%size(aArray) liefert 10.

[Matthias182]

11 * 10.000 = 110.000

lass das lieber mit der Pointer Rechnerei!

D*B

Na ja, wenn man sich nicht mit Themen auseinander setzt, dann wird man sie auch nicht verstehen.

Also nochmal, die Berechnung ist also:

Länge Feld (10) x Elemente Array (1000) x 11 = 110 000

Das bedeutet aber, dass ich automatisch mehr Speicher zugewiesen habe, als das Array Elemente aufnehmen kann. Stimmt das soweit?

Die Frage ist nun, wie schaffe ich es denn dann, weniger Speicher zuzuweisen? Wenn die Anzahl Elemnte immer eine Rolle spielt ist das aus meiner Sicht so nicht möglich.

[Fuerchau]

Du musst nur für deine Berechnung das richtige Feld für %size wähen, dann stimmt auch die Berechnung, also
%size(aArray) * X

Aber:
Wenn du ein Array mit 1000 Elementen anlegst, kannst du nicht mehr als 1000 Elemente einstellen, da es sonst einen Index-Out-Of-Range-Laufzeit-Fehler gibt.
Du kannst aber durchaus mehr Elemente definieren solange eine einzelne Zuweisung 16MB nicht übersteigt.

[Pikachu]

Die Frage ist nun, wie schaffe ich es denn dann, weniger Speicher zuzuweisen? Wenn die Anzahl Elemnte immer eine Rolle spielt ist das aus meiner Sicht so nicht möglich.

Arrayptr = %Alloc(6) weist weniger Speicher zu.

[BenderD]

... pointer und dynamische Speicher Allocation gehören zu den Themen, die in 99,99% aller Programme nicht gebraucht werden und für eine Vielzahl von Problemen übelster Art verantwortlich sind. Da sollte man die Finger davon lassen, mindestens bis man das Handwerkszeug aus dem FF beherrscht, Dazu gehört ganz sicher, dass man versteht was man da deklariert und wieviel Speicher das belegt. Am Rande sei vermerkt, dass die Redefinition mit dem Overlay keinerlei Sinn macht.

D*B,

der so ziemlich der letzte ist, der für Forscherdrang kein Verständnis hat, aber alles zu seiner Zeit.

Na ja, wenn man sich nicht mit Themen auseinander setzt, dann wird man sie auch nicht verstehen.