equal
deleted
inserted
replaced
51 procedure WriteToConsole(s: shortstring); |
51 procedure WriteToConsole(s: shortstring); |
52 var Len: LongInt; |
52 var Len: LongInt; |
53 done: boolean; |
53 done: boolean; |
54 begin |
54 begin |
55 {$IFNDEF NOCONSOLE} |
55 {$IFNDEF NOCONSOLE} |
56 {$IFDEF ANDROID} |
56 AddFileLog('[Con] ' + s); |
|
57 {$IFDEF ANDROID} |
57 Log.__android_log_write(Log.Android_LOG_DEBUG, 'HW_Engine', ShortStringAsPChar('[Con]' + s)); |
58 Log.__android_log_write(Log.Android_LOG_DEBUG, 'HW_Engine', ShortStringAsPChar('[Con]' + s)); |
58 {$ELSE} |
59 {$ELSE} |
59 AddFileLog('[Con] ' + s); |
|
60 Write(stderr, s); |
60 Write(stderr, s); |
61 done:= false; |
61 done:= false; |
62 |
62 |
63 while not done do |
63 while not done do |
64 begin |
64 begin |