mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 19:10:30 +02:00
84 lines
2.3 KiB
ObjectPascal
84 lines
2.3 KiB
ObjectPascal
{******************************************************************************
|
|
Startup code for xtensa-esp8266 using ESP8266_RTOS_SDK V3.3
|
|
******************************************************************************}
|
|
{$IFNDEF FPC_DOTTEDUNITS}
|
|
unit esp8266;
|
|
{$ENDIF FPC_DOTTEDUNITS}
|
|
|
|
{$goto on}
|
|
{$macro on}
|
|
|
|
interface
|
|
|
|
implementation
|
|
|
|
{$IFDEF FPC_DOTTEDUNITS}
|
|
uses
|
|
EmbeddedApi.ConsoleIO,EmbeddedApi.HeapMGR;
|
|
{$ELSE FPC_DOTTEDUNITS}
|
|
uses
|
|
consoleio,heapmgr;
|
|
{$ENDIF FPC_DOTTEDUNITS}
|
|
|
|
var
|
|
_stack_top: record end; public name '_stack_top';
|
|
operatingsystem_result: longint; external name 'operatingsystem_result';
|
|
|
|
procedure PASCALMAIN; external name 'PASCALMAIN';
|
|
procedure putchar(c : AnsiChar);external;
|
|
function uart_rx_one_char(pRxChar: PAnsiChar): longint; external;
|
|
function __getreent : pointer;external;
|
|
procedure fflush(f : pointer);external;
|
|
procedure vTaskDelay(xTicksToDelay: uint32); external;
|
|
|
|
procedure flushOutput(var t : TextRec);
|
|
begin
|
|
fflush(ppointer(__getreent+8)^);
|
|
end;
|
|
|
|
procedure _FPC_haltproc; public name '_haltproc';
|
|
begin
|
|
writeln;
|
|
if operatingsystem_result <> 0 then
|
|
writeln('Runtime error ', operatingsystem_result);
|
|
|
|
writeln('_haltproc called, exit code: ',operatingsystem_result);
|
|
flushOutput(TextRec(Output));
|
|
repeat
|
|
// Allow other tasks to run
|
|
// Do not enter deep sleep, can lead to problems with flashing
|
|
vTaskDelay(1000);
|
|
until false;
|
|
end;
|
|
|
|
procedure app_main;public name 'app_main';
|
|
begin
|
|
PASCALMAIN;
|
|
_FPC_haltproc;
|
|
end;
|
|
|
|
function WriteChar(ACh: AnsiChar; AUserData: pointer): boolean;
|
|
begin
|
|
WriteChar:=true;
|
|
putchar(ACh);
|
|
end;
|
|
|
|
function ReadChar(var ACh: AnsiChar; AUserData: pointer): boolean;
|
|
begin
|
|
ReadChar := true;
|
|
ACh := #0;
|
|
repeat
|
|
uart_rx_one_char(@ACh); // check failure?
|
|
if ACh = #0 then
|
|
vTaskDelay(1);
|
|
until ACh <> #0;
|
|
end;
|
|
|
|
begin
|
|
OpenIO(Input, @WriteChar, @ReadChar, fmInput, nil);
|
|
OpenIO(Output, @WriteChar, @ReadChar, fmOutput, nil);
|
|
OpenIO(ErrOutput, @WriteChar, @ReadChar, fmOutput, nil);
|
|
OpenIO(StdOut, @WriteChar, @ReadChar, fmOutput, nil);
|
|
OpenIO(StdErr, @WriteChar, @ReadChar, fmOutput, nil);
|
|
end.
|