Inline Asm Problem

[JnZn558]

das is mein code, compiliere tut es, nur es kratz ab, und ich weiss net was falsch is. uebrigens hab ich delphi 2009

Delphi-Quellcode:

unit inlineasm;

interface

type

  TAsm = class
    m_strAsm: string;

  public
    constructor Create;
    property Text: string read m_strAsm;
  end;

implementation

  constructor TAsm.Create;
  begin
    asm
      push edx
      @str: db 'Hello World', $0
      lea edx, @str
      mov TAsm[eax].m_strAsm, edx
      pop edx
    end;
  end;

end.

[Medium]

Willste dir damit ne Medallie für die beste Fehlerbeschreibung 2010 verdienen?

[hoika]

Hallo,

wo genau stürzt er ab ?

Ich schätze mal, hier

mov TAsm[eax].m_strAsm, edx

TAsm.m_strAsm gibt es so nicht.
Bei m_strAsm handelt es sich nicht um eine Klassen-Variable.

Entweder das TAsm ganz weglassen,
oder falls es geht, durch Self ersetzen.

Die Zeiten von Assembler sind übrigens (fast) vorbei,

Und so mit String zu hantieren.
ist eh gefährlich.
Du weisst schon, dass ein String ein Zeiger (PChar) ist,
der "initialisiert" werden muss (SetLength).

Und wenn jetzt einer sagt, dass muss man nicht in Delphi,
wir reden hier von Assembler ...


Heiko

[himitsu]

@str: db 'Hello World', $0 - ergibt einen AnsiText also PAnsiChar
- String ist aber seit D2009 ein UnicodeString
- ein String hat eine bestimmte intere Struktur, welche viel mehr besitzt, als nur den Teil, welche rpraktischer Weise fast wie ein PChar aussieht.
Und diese Struktur hast du nicht mit erstellt, sondern du trägst einfach nur den PChar-Zeiger in den "String" ein
- selbst wenn du die Stringstruktur ordnungsgemäß erstellt hättest und der Text auch noch als Unicode vorhanden wäre, gäbe es immernoch ein Speicherleck, da ein eventuell vorher in m_strAsm liegender String nicht freigegeben würde.
- in EAX ist an soeiner Stelle nicht immer der Self-Pointer, vorallem nicht, da hierbei davor noch die Klasseninitialisierung durchgeführt wird, so daß TAsm[eax] vermutlich nicht auf Self zeigt.
[add]
- jupp, das von Neutral General genannte kommt dann auch noch mit dazu

Fazit: solange du keine Ahnung hast, was du da überhaupt machst und wie gewisse Datentypen intern arbeiten ... laß die Finger von sowas,
dazumal es hierbei garkeinen Grund gibt, sowas via ASM lösen zu wollen.

[Neutral General]

Ich denke mal das größte Problem ist, dass die Zeile

@str: db 'Hello World', $0 Vom Prozessor als Code ausgeführt wird. Und was für ein AssemblerCode sich hinter 'Hello World' versteckt weiß erstmal niemand

[JnZn558]

Zitat von Neutral General:

Ich denke mal das größte Problem ist, dass die Zeile

@str: db 'Hello World', $0 Vom Prozessor als Code ausgeführt wird. Und was für ein AssemblerCode sich hinter 'Hello World' versteckt weiß erstmal niemand

ich hatte auch mal gedacht, das problem tritt vl bei unicode auf, also hatte ich auch so geaendert

@str: dw 'Hello World', $0 aber leider weigert der compiler hier die arbeit

[himitsu]

Zitat von JnZn558:

@str: dw 'Hello World', $0 aber leider weigert der compiler hier die arbeit

Tja, dann mag halt DW diese Parameter einfach nicht?
einfache Lösung: gibt die Buchstaben einzeln an und wandle sie notfalls in "Integer"/Word um.

Aber egal, da der Rest des Codes sowieso nicht funktionieren kann.

[Namenloser]

Falls es daran liegt, hast du mal probiert, die entsprechende Stelle einfach mithilfe eines JMP-Befehls zu überspringen?

Delphi-Quellcode:

push edx
jmp @code
@str: db 'Hello World', $0
@code:
lea edx, @str
mov TAsm[eax].m_strAsm, edx
pop edx

Ansonsten würde es sicherlich helfen, einen Breakpoint zu setzen und im CPU-Fenster mit F7 durchzusteppen.

[gammatester]

Zitat von JnZn558:

Zitat von Neutral General:

Ich denke mal das größte Problem ist, dass die Zeile

@str: db 'Hello World', $0 Vom Prozessor als Code ausgeführt wird. Und was für ein AssemblerCode sich hinter 'Hello World' versteckt weiß erstmal niemand ;-)

ich hatte auch mal gedacht, das problem tritt vl bei unicode auf, also hatte ich auch so geaendert

@str: dw 'Hello World', $0 aber leider weigert der compiler hier die arbeit

Damit ist gemeint, daß die CPU die Bytes des Strings als OPCodes interpretiert. Die Mindestforderung für Nichtabsturz ist, daß Du einen Sprung über den String machst:

Delphi-Quellcode:

begin
    asm
      push edx
      jmp  @@skip
      @str: db 'Hello World', $0
    @@skip:
      lea edx, @str
      mov TAsm[eax].m_strAsm, edx
      pop edx
    end;
end;

[JnZn558]

Delphi-Quellcode:

unit inlineasm;

interface

type

  TAsm = class
    m_strAsm: string;

    function ShowText: AnsiString;
  public
    constructor Create;
    property Text: AnsiString read ShowText;
  end;

implementation

  constructor TAsm.Create;
  begin
  end;

  function TAsm.ShowText;
  begin
    asm
      push edx
      jmp  @@skip
      @str: db 'Hello World', $0
    @@skip:
      lea edx, @str
      mov TAsm[eax].m_strAsm, edx
      pop edx
    end;
  end;

end.

Delphi-Quellcode:

program Project;

uses SysUtils, Dialogs, inlineasm;

var
  Test: TAsm;
begin
  try
    Writeln('Text: ' + Test.Text); // hier soll der fehler sein, hier stopp debugger, und gibt mit I/O error 105
    Readln;
  except
    on E:Exception do
    Writeln(E.Classname, ': ', E.Message);
  end;
end.

Zitat:

Project Project.exe raised exception class EInOutError with message 'I/O error 105'.