haben wir schon Ostern ? - wer findet den Fehler ?

[paule32.jk]

@mytbo: wenn ich mich an Deinen Code halte:


showmessage('size 2: ' + inttostr(sizeof(instructions))); // hier erhalte ich: 4
SetLength(insArr, 2);
insArr[0].f := Lit;
insArr[1].f := Jmp;
ins := @Instructions[0]; // hier knallts

...
var
FSize: Integer;
FileStream: TFileStream;

FileStream := TFileStream.Create('test.bin', fmOpenRead);
SetLength(Instructions,FSize div sizeof(TInstruction));
FileStream.Read(Instructions, FileStream.Size); // length: 24

[mytbo]

Du verwendest verschiedene Techniken. Dann musst du so schreiben:

Delphi-Quellcode:

type
  TOpCode = (ocLit, ocOpr, ocLod, ocSto, ocCal, ocInt, ocJmp, ocJpc, ocWri);
  TInstruction = record
    f: TOpCode; // command
    l: Byte; // level
    a: Integer; // address
  end;
  PInstruction = ^TInstruction;

  TInstructions = array of PInstruction;

var
  ins: PInstruction;
  insArr: TInstructions;
begin
  SetLength(insArr, 2);

  GetMem(ins, SizeOf(TInstruction));
  insArr[0] := ins;
  ins.f := ocLit;

  GetMem(ins, SizeOf(TInstruction));
  insArr[1] := ins;
  ins.f := ocJmp;

  for var i: Integer := Low(insArr) to High(insArr) do
    ShowMessage(Format('OpCode: %s', [System.TypInfo.GetEnumName(TypeInfo(TOpCode), Ord(insArr[i].f))]));

  for var i: Integer := Length(insArr) - 1 downto 0 do
    FreeMem(insArr[i]);

Alternativ so:

Delphi-Quellcode:

var
  ins: PInstruction;
  insArr: TInstructions;
  insBufferSize: Integer;
begin
  SetLength(insArr, 2);

  insBufferSize := SizeOf(TInstruction) * Length(insArr);
  GetMem(ins, insBufferSize);
  insArr[0] := ins;
  ins.f := ocLit;

  Inc(ins);
  insArr[1] := ins;
  ins.f := ocJmp;

  for var i: Integer := Low(insArr) to High(insArr) do
    ShowMessage(Format('OpCode: %s', [System.TypInfo.GetEnumName(TypeInfo(TOpCode), Ord(insArr[i].f))]));

  FreeMem(insArr[0], insBufferSize);

Oder so wie in meinem letzten Post, aber du kannst es nicht beliebig mischen. Die Variante aus dem ersten Post wäre mein Favorit.

Bis bald...
Thomas

[zeras]

Nur mal so.
Was würde ChatGPT dazu sagen?

[himitsu]

Warum immer wieder neue Threads,
https://www.delphipraxis.net/213934-...ppt-nicht.html
https://www.delphipraxis.net/213935-...-new-post.html
https://www.delphipraxis.net/213937-...-new-post.html
anstatt das eigentliche Problem endlich zu lösen?
https://www.delphipraxis.net/213929-...ml#post1528456

[Olli73]

Probier Mal

BlockRead(bcFile,Instructions[0],FSize); anstatt

BlockRead(bcFile,Instructions,FSize);

[Olli73]

Zitat von Olli73:

Probier Mal

BlockRead(bcFile,Instructions[0],FSize); anstatt

BlockRead(bcFile,Instructions,FSize);

Hattest du das eigentlich Mal ausprobiert?

[paule32.jk]

nein, noch nicht.
Ich hatte in der Zwischenzeit mit einen Pascal-Compiler sowie AsmJit gewerkelt.
Danke für Deinen Vorschlag !