paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Xtensa FreeRTOS: unified haltproc

Browse Source 
git-svn-id: trunk@46679 -
This commit is contained in:
florian 2020-08-24 21:02:09 +00:00
parent 03a0e6e82f
commit c73c98d995
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/freertos/xtensa/esp32.pp
View File

@ -75,11 +75,16 @@ unit esp32;
procedure _FPC_haltproc; public name '_haltproc';noreturn;
begin
printpchar('_haltproc called, going to deep sleep, exit code: $');
printdword(operatingsystem_result);
printpchar(#10);
while true do
esp_deep_sleep_start;
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;

2
rtl/freertos/xtensa/esp8266.pp
View File

@ -56,7 +56,7 @@ unit esp8266;
if operatingsystem_result <> 0 then
writeln('Runtime error ', operatingsystem_result);
writeln('_haltproc called...');
writeln('_haltproc called, exit code: ',operatingsystem_result);
flushOutput(TextRec(Output));
repeat
// Allow other tasks to run