| changeset 3295 | ced0ee8280ad |
| parent 3284 | 7ffd0e20ad08 |
| child 3369 | c7289e42f0ee |
| 3294:0faf8a2d6066 | 3295:ced0ee8280ad |
|---|---|
33 {$IFDEF DEBUGFILE} |
33 {$IFDEF DEBUGFILE} |
34 procedure DumpBuffer; |
34 procedure DumpBuffer; |
35 {$ENDIF} |
35 {$ENDIF} |
36 |
36 |
37 implementation |
37 implementation |
38 {$IFDEF DEBUGFILE} |
38 uses uMisc{$IFDEF DEBUGFILE},uConsole{$ENDIF}; |
39 uses uMisc, uConsole; |
39 |
40 {$ENDIF} |
|
41 var cirbuf: array[0..63] of Longword; |
40 var cirbuf: array[0..63] of Longword; |
42 n: byte; |
41 n: byte; |
43 |
42 |
44 function GetNext: Longword; |
43 function GetNext: Longword; |
45 begin |
44 begin |