system.pas

delphi源代码分析源码

unit System;

interface

type
  TGUID = record
    D1: LongWord;
    D2: Word;
    D3: Word;
    D4: array[0..7] of Byte;
  end;

procedure _InitExe;
procedure _HandleFinally;
procedure _halt0;

implementation

{
  push ebp
  mov ebp,esp
  add esp,-$10
  mov eax,$00b81f5c // 传入单元初始化表地址
  call @InitExe     // 调模块初始化例程
}
procedure _InitExe;
asm
  // 取本调用的返回地址
  pop edx

  // 修正堆栈
  add esp, $10

  // 取原始的ebp
  pop ebp

  // 在栈上压入返回地址
  push edx
end;

procedure _HandleFinally;
asm
end;

procedure _halt0;
asm
end;

end.