| changeset 3407 | dcc129c4352e |
| parent 3369 | c7289e42f0ee |
| child 4363 | e944cc43f7a4 |
| 3406:f4bdebced042 | 3407:dcc129c4352e |
|---|---|
33 {$IFDEF DEBUGFILE} |
33 {$IFDEF DEBUGFILE} |
34 procedure DumpBuffer; |
34 procedure DumpBuffer; |
35 {$ENDIF} |
35 {$ENDIF} |
36 |
36 |
37 implementation |
37 implementation |
38 uses uMisc{$IFDEF DEBUGFILE},uConsole{$ENDIF}; |
38 uses uMisc; |
39 |
39 |
40 var cirbuf: array[0..63] of Longword; |
40 var cirbuf: array[0..63] of Longword; |
41 n: byte; |
41 n: byte; |
42 |
42 |
43 function GetNext: Longword; |
43 function GetNext: Longword; |