Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2024-12-22 07:30:54 +00:00
Code Issues Projects Releases Wiki Activity

Support the pause-on-errors feature for format checker messages.

Browse Source
This commit is contained in:
Stephen Heumann 2018-09-01 23:18:48 -05:00
parent ecff1e3479
commit 7493ffa76c
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Printf.pas
View File

@ -65,6 +65,9 @@ type
types = set of baseTypeEnum;
function KeyPress: boolean; extern; {in Scanner.asm}
function FormatClassify {fname: stringPtr): fmt_type};
{
@ -900,6 +903,13 @@ while head <> nil do begin
dispose(head);
head := args;
end;
{handle pauses}
if ((error_count <> 0) and wait) or KeyPress then begin
DrawHourglass;
while not KeyPress do {nothing};
ClearHourglass;
end; {if}
end; {FormatCheck}
end.