equal
deleted
inserted
replaced
90 {$IFDEF DEBUGFILE} |
90 {$IFDEF DEBUGFILE} |
91 procedure DumpBuffer; |
91 procedure DumpBuffer; |
92 var i: LongInt; |
92 var i: LongInt; |
93 begin |
93 begin |
94 for i:= 0 to 63 do |
94 for i:= 0 to 63 do |
95 AddFileLog('[' + inttostr(i) + '] = ' + inttostr(cirbuf[i])) |
95 AddFileLog('[' + inttostr(i) + '] = ' + inttostr(cirbuf[i])) |
96 end; |
96 end; |
97 {$ENDIF} |
97 {$ENDIF} |
98 |
98 |
99 procedure init_uRandom; |
99 procedure init_uRandom; |
100 begin |
100 begin |
101 n:= 54; |
101 n:= 54; |
102 end; |
102 end; |
103 |
103 |
104 procedure free_uRandom; |
104 procedure free_uRandom; |
105 begin |
105 begin |
106 |
106 |