Shih-wei Liao | 77ed614 | 2010-04-07 12:21:42 -0700 | [diff] [blame] | 1 | /* |
Zonr Chang | 932648d | 2010-10-13 22:23:56 +0800 | [diff] [blame] | 2 | * Copyright 2010, The Android Open Source Project |
Shih-wei Liao | 77ed614 | 2010-04-07 12:21:42 -0700 | [diff] [blame] | 3 | * |
Zonr Chang | 932648d | 2010-10-13 22:23:56 +0800 | [diff] [blame] | 4 | * Licensed under the Apache License, Version 2.0 (the "License"); |
| 5 | * you may not use this file except in compliance with the License. |
| 6 | * You may obtain a copy of the License at |
| 7 | * |
| 8 | * http://www.apache.org/licenses/LICENSE-2.0 |
| 9 | * |
| 10 | * Unless required by applicable law or agreed to in writing, software |
| 11 | * distributed under the License is distributed on an "AS IS" BASIS, |
| 12 | * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. |
| 13 | * See the License for the specific language governing permissions and |
| 14 | * limitations under the License. |
Shih-wei Liao | 77ed614 | 2010-04-07 12:21:42 -0700 | [diff] [blame] | 15 | */ |
| 16 | |
Zonr Chang | 932648d | 2010-10-13 22:23:56 +0800 | [diff] [blame] | 17 | // Bitcode compiler (bcc) for Android: |
| 18 | // This is an eager-compilation JIT running on Android. |
| 19 | |
Shih-wei Liao | 77ed614 | 2010-04-07 12:21:42 -0700 | [diff] [blame] | 20 | #define LOG_TAG "bcc" |
| 21 | #include <cutils/log.h> |
| 22 | |
Logan | c439523 | 2010-11-27 18:54:17 +0800 | [diff] [blame] | 23 | #include "Compiler.h" |
| 24 | #include "Script.h" |
Shih-wei Liao | 77ed614 | 2010-04-07 12:21:42 -0700 | [diff] [blame] | 25 | |
Logan | c439523 | 2010-11-27 18:54:17 +0800 | [diff] [blame] | 26 | #include <bcc/bcc.h> |
Logan | 39a2ca5 | 2010-11-27 01:03:06 +0800 | [diff] [blame] | 27 | |
Shih-wei Liao | 7c5a5f7 | 2010-11-08 01:59:13 -0800 | [diff] [blame] | 28 | #include <utils/StopWatch.h> |
Shih-wei Liao | 77ed614 | 2010-04-07 12:21:42 -0700 | [diff] [blame] | 29 | |
Logan | e132399 | 2011-01-12 04:47:13 +0800 | [diff] [blame] | 30 | char const libbcc_build_time[24] = __DATE__ " " __TIME__; |
| 31 | |
Logan | 3c01aaa | 2011-01-01 01:40:39 +0800 | [diff] [blame] | 32 | namespace bcc { |
| 33 | class FuncLogger { |
| 34 | private: |
| 35 | char const *mFuncName; |
| 36 | |
| 37 | public: |
| 38 | FuncLogger(char const *name) : mFuncName(name) { |
Shih-wei Liao | 707a294 | 2011-01-03 23:08:20 +0800 | [diff] [blame] | 39 | // LOGI("---> BEGIN: libbcc [ %s ]\n", name); |
Logan | 3c01aaa | 2011-01-01 01:40:39 +0800 | [diff] [blame] | 40 | } |
| 41 | |
| 42 | ~FuncLogger() { |
Shih-wei Liao | 707a294 | 2011-01-03 23:08:20 +0800 | [diff] [blame] | 43 | // LOGI("---> END: libbcc [ %s ]\n", mFuncName); |
Logan | 3c01aaa | 2011-01-01 01:40:39 +0800 | [diff] [blame] | 44 | } |
| 45 | }; |
| 46 | |
| 47 | #define BCC_FUNC_LOGGER() bcc::FuncLogger XX__funcLogger(__FUNCTION__) |
| 48 | } // namespace bcc |
| 49 | |
Shih-wei Liao | 77ed614 | 2010-04-07 12:21:42 -0700 | [diff] [blame] | 50 | |
Logan | 39a2ca5 | 2010-11-27 01:03:06 +0800 | [diff] [blame] | 51 | namespace llvm { |
| 52 | class Module; |
Shih-wei Liao | 7c5a5f7 | 2010-11-08 01:59:13 -0800 | [diff] [blame] | 53 | } |
| 54 | |
Logan | 39a2ca5 | 2010-11-27 01:03:06 +0800 | [diff] [blame] | 55 | |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 56 | extern "C" BCCscript *bccCreateScript() { |
Logan | 3c01aaa | 2011-01-01 01:40:39 +0800 | [diff] [blame] | 57 | BCC_FUNC_LOGGER(); |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 58 | return new BCCscript(); |
| 59 | } |
Shih-wei Liao | 77ed614 | 2010-04-07 12:21:42 -0700 | [diff] [blame] | 60 | |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 61 | extern "C" BCCenum bccGetError(BCCscript *script) { |
Logan | 3c01aaa | 2011-01-01 01:40:39 +0800 | [diff] [blame] | 62 | BCC_FUNC_LOGGER(); |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 63 | return script->getError(); |
| 64 | } |
Shih-wei Liao | 77ed614 | 2010-04-07 12:21:42 -0700 | [diff] [blame] | 65 | |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 66 | extern "C" void bccDeleteScript(BCCscript *script) { |
Logan | 3c01aaa | 2011-01-01 01:40:39 +0800 | [diff] [blame] | 67 | BCC_FUNC_LOGGER(); |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 68 | delete script; |
| 69 | } |
Shih-wei Liao | 77ed614 | 2010-04-07 12:21:42 -0700 | [diff] [blame] | 70 | |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 71 | extern "C" void bccRegisterSymbolCallback(BCCscript *script, |
| 72 | BCCSymbolLookupFn pFn, |
| 73 | BCCvoid *pContext) { |
Logan | 3c01aaa | 2011-01-01 01:40:39 +0800 | [diff] [blame] | 74 | BCC_FUNC_LOGGER(); |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 75 | script->registerSymbolCallback(pFn, pContext); |
| 76 | } |
Shih-wei Liao | 77ed614 | 2010-04-07 12:21:42 -0700 | [diff] [blame] | 77 | |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 78 | extern "C" int bccReadModule(BCCscript *script, BCCvoid *module) { |
Logan | 3c01aaa | 2011-01-01 01:40:39 +0800 | [diff] [blame] | 79 | BCC_FUNC_LOGGER(); |
Logan | eaa0cc3 | 2010-12-29 01:04:20 +0800 | [diff] [blame] | 80 | return script->readModule(reinterpret_cast<llvm::Module*>(module)); |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 81 | } |
Shih-wei Liao | 77ed614 | 2010-04-07 12:21:42 -0700 | [diff] [blame] | 82 | |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 83 | extern "C" int bccReadBC(BCCscript *script, |
| 84 | const BCCchar *bitcode, |
Logan | b9b0416 | 2010-12-20 16:36:57 +0800 | [diff] [blame] | 85 | BCCint bitcodeSize, |
Logan | 9d54769 | 2011-01-06 05:26:34 +0800 | [diff] [blame] | 86 | long __DONT_USE_PARAM_1, |
| 87 | long __DONT_USE_PARAM_2, |
Shih-wei Liao | e6a1851 | 2010-12-09 12:38:10 -0800 | [diff] [blame] | 88 | const BCCchar *resName, |
| 89 | const BCCchar *cacheDir) { |
Logan | 3c01aaa | 2011-01-01 01:40:39 +0800 | [diff] [blame] | 90 | BCC_FUNC_LOGGER(); |
Logan | f30a671 | 2011-01-06 05:55:34 +0800 | [diff] [blame] | 91 | return script->readBC(bitcode, bitcodeSize, resName, cacheDir); |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 92 | } |
Zonr Chang | 932648d | 2010-10-13 22:23:56 +0800 | [diff] [blame] | 93 | |
Shih-wei Liao | 4079b59 | 2011-01-11 04:54:13 -0800 | [diff] [blame] | 94 | extern "C" int bccLinkBC(BCCscript *script, |
| 95 | const BCCchar *bitcode, |
| 96 | BCCint size) { |
Logan | 3c01aaa | 2011-01-01 01:40:39 +0800 | [diff] [blame] | 97 | BCC_FUNC_LOGGER(); |
Shih-wei Liao | 4079b59 | 2011-01-11 04:54:13 -0800 | [diff] [blame] | 98 | return script->linkBC(bitcode, size); |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 99 | } |
Shih-wei Liao | 77ed614 | 2010-04-07 12:21:42 -0700 | [diff] [blame] | 100 | |
Shih-wei Liao | f6267d1 | 2011-01-07 19:23:58 -0800 | [diff] [blame] | 101 | extern "C" int bccPrepareExecutable(BCCscript *script) { |
Logan | 3c01aaa | 2011-01-01 01:40:39 +0800 | [diff] [blame] | 102 | BCC_FUNC_LOGGER(); |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 103 | #if defined(__arm__) |
Shih-wei Liao | f6267d1 | 2011-01-07 19:23:58 -0800 | [diff] [blame] | 104 | android::StopWatch compileTimer("bcc: PrepareExecutable time"); |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 105 | #endif |
Logan | d80e65b | 2010-12-03 21:28:04 +0800 | [diff] [blame] | 106 | |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 107 | int result = script->prepareExecutable(); |
Logan | d80e65b | 2010-12-03 21:28:04 +0800 | [diff] [blame] | 108 | if (result) |
| 109 | script->setError(BCC_INVALID_OPERATION); |
| 110 | |
| 111 | return result; |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 112 | } |
Shih-wei Liao | 7c5a5f7 | 2010-11-08 01:59:13 -0800 | [diff] [blame] | 113 | |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 114 | extern "C" void bccGetScriptInfoLog(BCCscript *script, |
| 115 | BCCsizei maxLength, |
| 116 | BCCsizei *length, |
| 117 | BCCchar *infoLog) { |
Logan | 3c01aaa | 2011-01-01 01:40:39 +0800 | [diff] [blame] | 118 | BCC_FUNC_LOGGER(); |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 119 | LOGE("%s is deprecated. *********************************\n", __func__); |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 120 | } |
Shih-wei Liao | 77ed614 | 2010-04-07 12:21:42 -0700 | [diff] [blame] | 121 | |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 122 | extern "C" void bccGetScriptLabel(BCCscript *script, |
| 123 | const BCCchar *name, |
| 124 | BCCvoid **address) { |
Logan | 3c01aaa | 2011-01-01 01:40:39 +0800 | [diff] [blame] | 125 | BCC_FUNC_LOGGER(); |
Logan | eaa0cc3 | 2010-12-29 01:04:20 +0800 | [diff] [blame] | 126 | void *value = script->lookup(name); |
Shih-wei Liao | d6d488c | 2010-12-04 18:23:50 -0800 | [diff] [blame] | 127 | if (value) { |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 128 | *address = value; |
Shih-wei Liao | d6d488c | 2010-12-04 18:23:50 -0800 | [diff] [blame] | 129 | #if defined(USE_DISASSEMBLER_FILE) |
| 130 | LOGI("[GetScriptLabel] %s @ 0x%x", name, value); |
| 131 | #endif |
| 132 | } else { |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 133 | script->setError(BCC_INVALID_VALUE); |
Shih-wei Liao | d6d488c | 2010-12-04 18:23:50 -0800 | [diff] [blame] | 134 | } |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 135 | } |
Shih-wei Liao | 77ed614 | 2010-04-07 12:21:42 -0700 | [diff] [blame] | 136 | |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 137 | extern "C" void bccGetExportVars(BCCscript *script, |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 138 | BCCsizei *actualCount, |
| 139 | BCCsizei varListSize, |
| 140 | BCCvoid **varList) { |
Logan | 3c01aaa | 2011-01-01 01:40:39 +0800 | [diff] [blame] | 141 | BCC_FUNC_LOGGER(); |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 142 | |
| 143 | if (actualCount) { |
| 144 | *actualCount = static_cast<BCCsizei>(script->getExportVarCount()); |
| 145 | } |
| 146 | |
| 147 | if (varList) { |
| 148 | script->getExportVarList(static_cast<size_t>(varListSize), varList); |
Shih-wei Liao | d6d488c | 2010-12-04 18:23:50 -0800 | [diff] [blame] | 149 | |
| 150 | #if defined(USE_DISASSEMBLER_FILE) |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 151 | size_t count = script->getExportVarCount(); |
| 152 | LOGD("ExportVarCount = %lu\n", (unsigned long)count); |
| 153 | |
| 154 | if (count > varListSize) { |
| 155 | count = varListSize; |
Shih-wei Liao | d6d488c | 2010-12-04 18:23:50 -0800 | [diff] [blame] | 156 | } |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 157 | |
| 158 | for (size_t i = 0; i < count; ++i) { |
| 159 | LOGD("ExportVarList[%lu] = 0x%p\n", (unsigned long)i, varList[i]); |
| 160 | } |
Shih-wei Liao | d6d488c | 2010-12-04 18:23:50 -0800 | [diff] [blame] | 161 | #endif |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 162 | } |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 163 | } |
Shih-wei Liao | abd1e3d | 2010-04-28 01:47:00 -0700 | [diff] [blame] | 164 | |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 165 | extern "C" void bccGetExportFuncs(BCCscript *script, |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 166 | BCCsizei *actualCount, |
| 167 | BCCsizei funcListSize, |
| 168 | BCCvoid **funcList) { |
Logan | 3c01aaa | 2011-01-01 01:40:39 +0800 | [diff] [blame] | 169 | BCC_FUNC_LOGGER(); |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 170 | |
| 171 | if (actualCount) { |
| 172 | *actualCount = static_cast<BCCsizei>(script->getExportFuncCount()); |
| 173 | } |
| 174 | |
| 175 | if (funcList) { |
| 176 | script->getExportFuncList(static_cast<size_t>(funcListSize), funcList); |
Shih-wei Liao | d6d488c | 2010-12-04 18:23:50 -0800 | [diff] [blame] | 177 | |
| 178 | #if defined(USE_DISASSEMBLER_FILE) |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 179 | size_t count = script->getExportFuncCount(); |
| 180 | LOGD("ExportFuncCount = %lu\n", (unsigned long)count); |
| 181 | |
| 182 | if (count > funcListSize) { |
| 183 | count = funcListSize; |
Shih-wei Liao | d6d488c | 2010-12-04 18:23:50 -0800 | [diff] [blame] | 184 | } |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 185 | |
| 186 | for (size_t i = 0; i < count; ++i) { |
| 187 | LOGD("ExportFuncList[%lu] = 0x%p\n", (unsigned long)i, funcList[i]); |
| 188 | } |
Shih-wei Liao | d6d488c | 2010-12-04 18:23:50 -0800 | [diff] [blame] | 189 | #endif |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 190 | } |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 191 | } |
Shih-wei Liao | 6bfd542 | 2010-05-07 05:20:22 -0700 | [diff] [blame] | 192 | |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 193 | extern "C" void bccGetPragmas(BCCscript *script, |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 194 | BCCsizei *actualCount, |
| 195 | BCCsizei stringListSize, |
| 196 | BCCchar **stringList) { |
Logan | 3c01aaa | 2011-01-01 01:40:39 +0800 | [diff] [blame] | 197 | BCC_FUNC_LOGGER(); |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 198 | |
| 199 | if (actualCount) { |
| 200 | *actualCount = static_cast<BCCsizei>(script->getPragmaCount() * 2); |
| 201 | } |
| 202 | |
| 203 | if (stringList) { |
| 204 | size_t pragmaListSize = static_cast<size_t>(stringListSize) / 2; |
| 205 | |
| 206 | char const **buf = new (nothrow) char const *[pragmaListSize * 2]; |
| 207 | if (!buf) { |
| 208 | return; |
| 209 | } |
| 210 | |
| 211 | char const **keyList = buf; |
| 212 | char const **valueList = buf + pragmaListSize; |
| 213 | |
| 214 | script->getPragmaList(pragmaListSize, keyList, valueList); |
| 215 | |
| 216 | for (size_t i = 0; i < pragmaListSize; ++i) { |
| 217 | *stringList++ = const_cast<BCCchar *>(keyList[i]); |
| 218 | *stringList++ = const_cast<BCCchar *>(valueList[i]); |
| 219 | } |
| 220 | |
| 221 | delete [] buf; |
Shih-wei Liao | d6d488c | 2010-12-04 18:23:50 -0800 | [diff] [blame] | 222 | |
| 223 | #if defined(USE_DISASSEMBLER_FILE) |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 224 | size_t count = script->getPragmaCount(); |
| 225 | LOGD("PragmaCount = %lu\n", count); |
| 226 | |
| 227 | if (count > pragmaListSize) { |
| 228 | count = pragmaListSize; |
| 229 | } |
| 230 | |
| 231 | for (size_t i = 0; i < count; ++i) { |
| 232 | LOGD("Pragma[%lu] = (%s , %s)\n", |
| 233 | (unsigned long)i, stringList[2 * i], stringList[2 * i + 1]); |
| 234 | } |
Shih-wei Liao | d6d488c | 2010-12-04 18:23:50 -0800 | [diff] [blame] | 235 | #endif |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 236 | } |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 237 | } |
Shih-wei Liao | 77ed614 | 2010-04-07 12:21:42 -0700 | [diff] [blame] | 238 | |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 239 | extern "C" void bccGetFunctions(BCCscript *script, |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 240 | BCCsizei *actualCount, |
| 241 | BCCsizei funcNameListSize, |
| 242 | BCCchar **funcNameList) { |
Logan | 3c01aaa | 2011-01-01 01:40:39 +0800 | [diff] [blame] | 243 | BCC_FUNC_LOGGER(); |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 244 | |
| 245 | if (actualCount) { |
| 246 | *actualCount = static_cast<BCCsizei>(script->getFuncCount()); |
| 247 | } |
| 248 | |
| 249 | if (funcNameList) { |
| 250 | script->getFuncNameList(static_cast<size_t>(funcNameListSize), |
| 251 | const_cast<char const **>(funcNameList)); |
| 252 | } |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 253 | } |
Shih-wei Liao | 77ed614 | 2010-04-07 12:21:42 -0700 | [diff] [blame] | 254 | |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 255 | extern "C" void bccGetFunctionBinary(BCCscript *script, |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 256 | BCCchar *funcname, |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 257 | BCCvoid **base, |
| 258 | BCCsizei *length) { |
Logan | 3c01aaa | 2011-01-01 01:40:39 +0800 | [diff] [blame] | 259 | BCC_FUNC_LOGGER(); |
Logan | be79ada | 2011-01-13 01:33:45 +0800 | [diff] [blame^] | 260 | |
| 261 | size_t funcLength = 0; |
| 262 | script->getFuncBinary(funcname, base, &funcLength); |
| 263 | |
| 264 | if (length) { |
| 265 | *length = static_cast<BCCsizei>(funcLength); |
| 266 | } |
Logan | 3f3d31f | 2010-11-27 13:52:03 +0800 | [diff] [blame] | 267 | } |