git-svn-id: https://spexeah.com:8443/svn/Asuro@1319 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

2020-07-18 21:01:29 +00:00
parent 6b6129b769
commit c7c49f24d9
5 changed files with 61 additions and 91 deletions
--- a/src/include/util.pas
+++ b/src/include/util.pas
@ -267,6 +267,7 @@ begin
     switchendian:= (lo(b) SHL 4) OR hi(b);
 end;

+//Was broken, now does nothing.
 procedure psleep(t : uint16);
 var
    t1, t2 : uint16;
@ -275,6 +276,7 @@ begin
    t1:= BDA^.Ticks;
    t2:= BDA^.Ticks;
    while t2-t1 < t do begin
+        break;
        t2:= BDA^.Ticks;
        if t2 < t1 then break;
    end;