;Da die Anzahl der bergabeparameter unbekannt ist, mu die Funktion
;umgehend mittels FAR-JUMP angesprungen werden.
;In BP ist das ohne den Umweg ber externen Assembler unmglich, da BP
;um exportierte Funktionen generell einen Rahmen herumbaut.
;Zum direkten "Durchpipen" (sprungfrei) fehlt die Mglichkeit, in Assembler
;ein Symbol unter einem anderen Namen zu im- oder exportieren,
;aber mglicherweise geht's unter Windows schon prinzipiell nicht.
ideal
model tpascal
P386
extrn pipe_SEP:far, pipe_AEF:far, ExitP:DWord
public set_entry_point,mexAtExitFcn
CODESEG
proc set_entry_point far
jmp pipe_SEP
endp
proc mexAtExitFcn far
push ds
push @data
pop ds
cmp [word HIGH ExitP],0
jz @@skip
call [ExitP]
@@skip: pop ds
jmp pipe_AEF
endp
end
Vorgefundene Kodierung: UTF-8 | 0
|