Adresse vom Label in Variable bekommen

uall@ogc · Verfasst: So 10.07.05 17:47

ich hab da auch mal nen problem

folgendes funktioniert ohen probleme:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure blub;
var p: pointer;
label a;
begin
  a:
  asm
    mov p, offset a
  end;
end;

das aber nicht, wie kann ich das obige OHNE asssembler hinbekommen

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure bla;
var p: pointer;
label a;
begin
  a:
  p := @a;
end;

und wehe einer sagt mir das man labels nicht benutzen soll, in dem fall gehts nicht anders

_________________
wer andern eine grube gräbt hat ein grubengrabgerät
- oder einfach zu viel zeit

maxk · Verfasst: So 10.07.05 18:05

Wenn es mit Assembler geht, warum willst du dann unbedingt was anderes nehmen?

Zitat:

und wehe einer sagt mir das man labels nicht benutzen soll, in dem fall gehts nicht anders

Du machst mich neugierig! Eigentlich habe ich bisher immer alles ohne Spaghettis hinbekommen

Ich würde übrigens mal behaupten, dass Delphi in ASM-Blocken weniger prüft, als in "normalem" Quellcode und sich deshalb weigert das Label als "Variable" zu sehen.

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

uall@ogc · Verfasst: So 10.07.05 18:13

ein Label an sich ist ja nur eine adresse im speicher
das assembler zeugst sieht danna uch kompiliert net anders aus als

mov [variablenaddresse], speicherstelle

also:

mov [0x00401234], 0x00405678

ich will halt nicht immer assembler teile rumhaben
das hat was mit exception handling zu tun und das ich ne adresse angeben muss die ich halt nicht kenne, sondern der compiler diese erst festlegt

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

var p: pointer;

procedure exceptionhandler;
begin
  asm
    jmp p
  end;  
end;

procedure bla;
label blub;
begin
  // code
  asm
    mov p, offset blub
  end;

  // exception

  blub:
  // code
end;

und im exceptionhandler kann ich selbst net auf label zugreifen, bzw darf es aus anderen gründen net so das das label lokal bleiben muss, da ich noch berechnungen mit p mache

_________________
wer andern eine grube gräbt hat ein grubengrabgerät
- oder einfach zu viel zeit

BenBE · Verfasst: So 10.07.05 21:19

Meine Tests mit dem Compiler (D7E) haben ergeben, dass Borland da wohl etwas geschlampthat. Wenn ich A als Label an einen Pointer zuweisen möchte, meint der Compiler ':' erwartet, aber (xy) gefunden. Wirst wohl um den ASM nicht drum rum kommen

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme