UEFI で Hello World を表示するには？

jiro 2019-05-26 22:03:41 No: 49758

OSのブートローダーを作成しようと思いUEFIでhello worldを表示させるプログラムをDELPHIに移植できないかと思い挑戦してみましたがだめでした。
以下のコードを直して出来上がるものか、それとも全然ダメかそれすらもよくわかりません。ご検討よろしくお願いいたします。
参考にしたのは
URL>>http://d.hatena.ne.jp/shina_ecc/20140819/1408434995

library BOOTX64;

{$SETPESUBSYSVERSION <10>}

const
EFI_SUCCESS = 0;

type
  EFI_STATUS = UInt64;
  EFI_HANDLE = Pointer;
  Pefi_protocol = ^EFI_SIMPLE_TEXT_OUTPUT_PROTOCOL;
  EFI_TEXT_STRING = function(This: Pefi_protocol; Str: PChar): EFI_STATUS; stdcall;

  EFI_SIMPLE_TEXT_OUTPUT_PROTOCOL = record
  public
    a: Pointer;
    OutputString: EFI_TEXT_STRING;
  end;

  EFI_SYSTEM_TABLE = record
  public
    a: array [0 .. 51] of Byte;
    ConsoleOutHandle: EFI_HANDLE;
    ConOut: Pefi_protocol;
  end;

function Efi_Main(ImageHandle: EFI_HANDLE;
  SystemTable: EFI_SYSTEM_TABLE): UInt64; stdcall;
begin
  SystemTable.ConOut^.OutputString(SystemTable.ConOut, 'hello, world');
  while True do;
  result := EFI_SUCCESS;
end;

exports
Efi_Main;

end.

通りすがり 2019-05-27 00:08:26 No: 49759

Efi_Mainの第2パラメータがポインタになってないのが気になりますね…

jiro 2019-05-27 02:24:10 No: 49760

アドバイスに感謝します
ただ、ご指摘の点も検討してみましたが解決には至りませんでした。
今後は解決済みを入れず様子を見守る展開になりそうです。
鋭意努力します。

目標はDELPHIによるスクラッチOSの作成ですからじっくり考えます。

通りすがり 2019-05-27 02:53:52 No: 49761

もう一つ気がついたところを(五月雨式で申し訳ない
EFI_SYSTEM_TABLEのメンバのアライメント、合ってますか？4バイトアライメントならaが要素数52でも不思議じゃないんですけど、
8バイトアライメントだとaが52でも56でも変わらないというか、実質56になっちゃってるのでは。こういう場合はpacked recordに
して、アライメントを全てコードで合わせるほうがいいと思います。あとSizeOfで最終的な構造体のサイズを取ってチェックしたほうが。
{$IF SizeOf(EFI_SYSTEM_TABLE) <> 68}
{$MESSAGE WARN 'SizeOf(EFI_SYSTEM_TABLE) is not 68'}
{$IFEND}
とかしておくとコンパイル時にチェックできていいですよ。

jiro 2019-05-27 07:19:58 No: 49762

packed修飾子にそのような仕組みがあったとはしりませんでした。私はOS自作の本を読んでいた関係でなんとかアラインメントをイメージできたので取り入れてみます。
元ネタのサイトでは
DLLを作成
OBJCOPYでSUBSYSTEMを１０
あとSTDCALLで関数を定義して
エントリポイントをEXPORTSでEfi_Mainにしてあります。
ポイントは抑えたのですが実際にはそれではできません。
（PACKEDを使うと配列が遅くなるというのだけ頭に入れてました。）

通りすがり 2019-05-29 19:33:55 No: 49763

(解決ではなく状況継続なら現状のソースを再提示しておかないと、これ以上の回答はつかないと思いますよ…