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

* compilation fixed

Browse Source 
git-svn-id: trunk@46685 -
This commit is contained in:
florian 2020-08-25 12:45:06 +00:00
parent 4739762790
commit 03b147eef8
1 changed files with 3 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -46,29 +46,10 @@ unit esp32;
function getchar : char;external;
function __getreent : pointer;external;
procedure fflush(f : pointer);external;
procedure vTaskDelay(xTicksToDelay: uint32); external;
procedure printpchar(p : pchar);
procedure flushOutput(var t : TextRec);
begin
while p^<>#0 do
begin
putchar(p^);
inc(p);
end;
fflush(ppointer(__getreent+8)^);
end;
procedure printdword(d : dword);
const
s = '0123456789ABCDEF';
var
i : longint;
begin
for i:=1 to 8 do
begin
putchar(s[(d and $f)+1]);
d:=d shr 4;
end;
fflush(ppointer(__getreent+8)^);
end;
@ -94,6 +75,7 @@ unit esp32;
_FPC_haltproc;
end;
function WriteChar(ACh: char; AUserData: pointer): boolean;
begin
WriteChar:=true;