12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676 |
- /*
- +----------------------------------------------------------------------+
- | PHP Version 7 |
- +----------------------------------------------------------------------+
- | Copyright (c) 1997-2018 The PHP Group |
- +----------------------------------------------------------------------+
- | This source file is subject to version 3.01 of the PHP license, |
- | that is bundled with this package in the file LICENSE, and is |
- | available through the world-wide-web at the following url: |
- | http://www.php.net/license/3_01.txt |
- | If you did not receive a copy of the PHP license and are unable to |
- | obtain it through the world-wide-web, please send a note to |
- | license@php.net so we can mail you a copy immediately. |
- +----------------------------------------------------------------------+
- | Authors: Felipe Pena <felipe@php.net> |
- | Authors: Joe Watkins <joe.watkins@live.co.uk> |
- | Authors: Bob Weinand <bwoebi@php.net> |
- +----------------------------------------------------------------------+
- */
- #include "zend.h"
- #include "zend_hash.h"
- #include "phpdbg.h"
- #include "phpdbg_bp.h"
- #include "phpdbg_utils.h"
- #include "phpdbg_opcode.h"
- #include "zend_globals.h"
- #include "ext/standard/php_string.h"
- ZEND_EXTERN_MODULE_GLOBALS(phpdbg)
- /* {{{ private api functions */
- static inline phpdbg_breakbase_t *phpdbg_find_breakpoint_file(zend_op_array*);
- static inline phpdbg_breakbase_t *phpdbg_find_breakpoint_symbol(zend_function*);
- static inline phpdbg_breakbase_t *phpdbg_find_breakpoint_method(zend_op_array*);
- static inline phpdbg_breakbase_t *phpdbg_find_breakpoint_opline(phpdbg_opline_ptr_t);
- static inline phpdbg_breakbase_t *phpdbg_find_breakpoint_opcode(zend_uchar);
- static inline phpdbg_breakbase_t *phpdbg_find_conditional_breakpoint(zend_execute_data *execute_data); /* }}} */
- /*
- * Note:
- * A break point must always set the correct id and type
- * A set breakpoint function must always map new points
- */
- static inline void _phpdbg_break_mapping(int id, HashTable *table) /* {{{ */
- {
- zend_hash_index_update_ptr(&PHPDBG_G(bp)[PHPDBG_BREAK_MAP], id, table);
- }
- /* }}} */
- #define PHPDBG_BREAK_MAPPING(id, table) _phpdbg_break_mapping(id, table)
- #define PHPDBG_BREAK_UNMAPPING(id) \
- zend_hash_index_del(&PHPDBG_G(bp)[PHPDBG_BREAK_MAP], (id))
- #define PHPDBG_BREAK_INIT(b, t) do {\
- memset(&b, 0, sizeof(b)); \
- b.id = PHPDBG_G(bp_count)++; \
- b.type = t; \
- b.disabled = 0;\
- b.hits = 0; \
- } while(0)
- static void phpdbg_file_breaks_dtor(zval *data) /* {{{ */
- {
- phpdbg_breakfile_t *bp = (phpdbg_breakfile_t*) Z_PTR_P(data);
- efree((char*)bp->filename);
- efree(bp);
- } /* }}} */
- static void phpdbg_class_breaks_dtor(zval *data) /* {{{ */
- {
- phpdbg_breakmethod_t *bp = (phpdbg_breakmethod_t *) Z_PTR_P(data);
- efree((char*)bp->class_name);
- efree((char*)bp->func_name);
- efree(bp);
- } /* }}} */
- static void phpdbg_opline_class_breaks_dtor(zval *data) /* {{{ */
- {
- zend_hash_destroy(Z_ARRVAL_P(data));
- efree(Z_ARRVAL_P(data));
- } /* }}} */
- static void phpdbg_opline_breaks_dtor(zval *data) /* {{{ */
- {
- phpdbg_breakopline_t *bp = (phpdbg_breakopline_t *) Z_PTR_P(data);
- if (bp->class_name) {
- efree((char*)bp->class_name);
- }
- if (bp->func_name) {
- efree((char*)bp->func_name);
- }
- efree(bp);
- } /* }}} */
- PHPDBG_API void phpdbg_reset_breakpoints(void) /* {{{ */
- {
- HashTable *table;
- ZEND_HASH_FOREACH_PTR(&PHPDBG_G(bp)[PHPDBG_BREAK_MAP], table) {
- phpdbg_breakbase_t *brake;
- ZEND_HASH_FOREACH_PTR(table, brake) {
- brake->hits = 0;
- } ZEND_HASH_FOREACH_END();
- } ZEND_HASH_FOREACH_END();
- } /* }}} */
- PHPDBG_API void phpdbg_export_breakpoints(FILE *handle) /* {{{ */
- {
- char *string;
- phpdbg_export_breakpoints_to_string(&string);
- fputs(string, handle);
- }
- /* }}} */
- PHPDBG_API void phpdbg_export_breakpoints_to_string(char **str) /* {{{ */
- {
- HashTable *table;
- zend_ulong id = 0L;
- *str = "";
- if (zend_hash_num_elements(&PHPDBG_G(bp)[PHPDBG_BREAK_MAP])) {
- phpdbg_notice("exportbreakpoint", "count=\"%d\"", "Exporting %d breakpoints", zend_hash_num_elements(&PHPDBG_G(bp)[PHPDBG_BREAK_MAP]));
- /* this only looks like magic, it isn't */
- ZEND_HASH_FOREACH_NUM_KEY_PTR(&PHPDBG_G(bp)[PHPDBG_BREAK_MAP], id, table) {
- phpdbg_breakbase_t *brake;
- ZEND_HASH_FOREACH_PTR(table, brake) {
- if (brake->id == id) {
- char *new_str = NULL;
- switch (brake->type) {
- case PHPDBG_BREAK_FILE: {
- zend_string *filename = php_addcslashes_str(((phpdbg_breakfile_t*)brake)->filename, strlen(((phpdbg_breakfile_t*)brake)->filename), "\\\"\n", 3);
- phpdbg_asprintf(&new_str,
- "%sbreak \"%s\":%lu\n", *str,
- ZSTR_VAL(filename),
- ((phpdbg_breakfile_t*)brake)->line);
- zend_string_release(filename);
- } break;
- case PHPDBG_BREAK_SYM: {
- phpdbg_asprintf(&new_str,
- "%sbreak %s\n", *str,
- ((phpdbg_breaksymbol_t*)brake)->symbol);
- } break;
- case PHPDBG_BREAK_METHOD: {
- phpdbg_asprintf(&new_str,
- "%sbreak %s::%s\n", *str,
- ((phpdbg_breakmethod_t*)brake)->class_name,
- ((phpdbg_breakmethod_t*)brake)->func_name);
- } break;
- case PHPDBG_BREAK_METHOD_OPLINE: {
- phpdbg_asprintf(&new_str,
- "%sbreak %s::%s#%llu\n", *str,
- ((phpdbg_breakopline_t*)brake)->class_name,
- ((phpdbg_breakopline_t*)brake)->func_name,
- ((phpdbg_breakopline_t*)brake)->opline_num);
- } break;
- case PHPDBG_BREAK_FUNCTION_OPLINE: {
- phpdbg_asprintf(&new_str,
- "%sbreak %s#%llu\n", *str,
- ((phpdbg_breakopline_t*)brake)->func_name,
- ((phpdbg_breakopline_t*)brake)->opline_num);
- } break;
- case PHPDBG_BREAK_FILE_OPLINE: {
- zend_string *filename = php_addcslashes_str(((phpdbg_breakopline_t*)brake)->class_name, strlen(((phpdbg_breakopline_t*)brake)->class_name), "\\\"\n", 3);
- phpdbg_asprintf(&new_str,
- "%sbreak \"%s\":#%llu\n", *str,
- ZSTR_VAL(filename),
- ((phpdbg_breakopline_t*)brake)->opline_num);
- zend_string_release(filename);
- } break;
- case PHPDBG_BREAK_OPCODE: {
- phpdbg_asprintf(&new_str,
- "%sbreak %s\n", *str,
- ((phpdbg_breakop_t*)brake)->name);
- } break;
- case PHPDBG_BREAK_COND: {
- phpdbg_breakcond_t *conditional = (phpdbg_breakcond_t*) brake;
- if (conditional->paramed) {
- switch (conditional->param.type) {
- case NUMERIC_FUNCTION_PARAM:
- phpdbg_asprintf(&new_str,
- "%sbreak at %s#%ld if %s\n",
- *str, conditional->param.str, conditional->param.num, conditional->code);
- break;
-
- case NUMERIC_METHOD_PARAM:
- phpdbg_asprintf(&new_str,
- "%sbreak at %s::%s#%ld if %s\n",
- *str, conditional->param.method.class, conditional->param.method.name, conditional->param.num, conditional->code);
- break;
-
- case ADDR_PARAM:
- phpdbg_asprintf(&new_str,
- "%sbreak at 0X%lx if %s\n",
- *str, conditional->param.addr, conditional->code);
- break;
-
- case STR_PARAM:
- phpdbg_asprintf(&new_str,
- "%sbreak at %s if %s\n", *str, conditional->param.str, conditional->code);
- break;
- case METHOD_PARAM:
- phpdbg_asprintf(&new_str,
- "%sbreak at %s::%s if %s\n", *str,
- conditional->param.method.class, conditional->param.method.name,
- conditional->code);
- break;
- case FILE_PARAM: {
- zend_string *filename = php_addcslashes_str(conditional->param.file.name, strlen(conditional->param.file.name), "\\\"\n", 3);
- phpdbg_asprintf(&new_str,
- "%sbreak at \"%s\":%lu if %s\n", *str,
- ZSTR_VAL(filename), conditional->param.file.line,
- conditional->code);
- zend_string_release(filename);
- } break;
- default: { /* do nothing */ } break;
- }
- } else {
- phpdbg_asprintf(&new_str, "%sbreak if %s\n", str, conditional->code);
- }
- } break;
- default: continue;
- }
- if ((*str)[0]) {
- efree(*str);
- }
- *str = new_str;
- }
- } ZEND_HASH_FOREACH_END();
- } ZEND_HASH_FOREACH_END();
- }
- if ((*str) && !(*str)[0]) {
- *str = NULL;
- }
- } /* }}} */
- PHPDBG_API void phpdbg_set_breakpoint_file(const char *path, size_t path_len, long line_num) /* {{{ */
- {
- php_stream_statbuf ssb;
- char realpath[MAXPATHLEN];
- const char *original_path = path;
- zend_bool pending = 0;
- zend_string *path_str;
- HashTable *broken, *file_breaks = &PHPDBG_G(bp)[PHPDBG_BREAK_FILE];
- phpdbg_breakfile_t new_break;
- if (!path_len) {
- if (VCWD_REALPATH(path, realpath)) {
- path = realpath;
- }
- }
- path_len = strlen(path);
- phpdbg_debug("file path: %s, resolved path: %s, was compiled: %d\n", original_path, path, zend_hash_str_exists(&PHPDBG_G(file_sources), path, path_len));
- if (!zend_hash_str_exists(&PHPDBG_G(file_sources), path, path_len)) {
- if (php_stream_stat_path(path, &ssb) == FAILURE) {
- if (original_path[0] == '/') {
- phpdbg_error("breakpoint", "type=\"nofile\" add=\"fail\" file=\"%s\"", "Cannot stat %s, it does not exist", original_path);
- return;
- }
- file_breaks = &PHPDBG_G(bp)[PHPDBG_BREAK_FILE_PENDING];
- path = original_path;
- path_len = strlen(path);
- pending = 1;
- } else if (!(ssb.sb.st_mode & (S_IFREG|S_IFLNK))) {
- phpdbg_error("breakpoint", "type=\"notregular\" add=\"fail\" file=\"%s\"", "Cannot set breakpoint in %s, it is not a regular file", path);
- return;
- } else {
- phpdbg_debug("File exists, but not compiled\n");
- }
- }
- path_str = zend_string_init(path, path_len, 0);
- if (!(broken = zend_hash_find_ptr(file_breaks, path_str))) {
- HashTable breaks;
- zend_hash_init(&breaks, 8, NULL, phpdbg_file_breaks_dtor, 0);
- broken = zend_hash_add_mem(file_breaks, path_str, &breaks, sizeof(HashTable));
- }
- if (!zend_hash_index_exists(broken, line_num)) {
- PHPDBG_BREAK_INIT(new_break, PHPDBG_BREAK_FILE);
- new_break.filename = estrndup(path, path_len);
- new_break.line = line_num;
- zend_hash_index_update_mem(broken, line_num, &new_break, sizeof(phpdbg_breakfile_t));
- PHPDBG_BREAK_MAPPING(new_break.id, broken);
- if (pending) {
- zend_string *file;
- ZEND_HASH_FOREACH_STR_KEY(&PHPDBG_G(file_sources), file) {
- HashTable *fileht;
- phpdbg_debug("Compare against loaded %s\n", file);
- if (!(pending = ((fileht = phpdbg_resolve_pending_file_break_ex(ZSTR_VAL(file), ZSTR_LEN(file), path_str, broken)) == NULL))) {
- new_break = *(phpdbg_breakfile_t *) zend_hash_index_find_ptr(fileht, line_num);
- break;
- }
- } ZEND_HASH_FOREACH_END();
- }
- if (pending) {
- PHPDBG_G(flags) |= PHPDBG_HAS_PENDING_FILE_BP;
- phpdbg_notice("breakpoint", "add=\"success\" id=\"%d\" file=\"%s\" line=\"%ld\" pending=\"pending\"", "Pending breakpoint #%d added at %s:%ld", new_break.id, new_break.filename, new_break.line);
- } else {
- PHPDBG_G(flags) |= PHPDBG_HAS_FILE_BP;
- phpdbg_notice("breakpoint", "add=\"success\" id=\"%d\" file=\"%s\" line=\"%ld\"", "Breakpoint #%d added at %s:%ld", new_break.id, new_break.filename, new_break.line);
- }
- } else {
- phpdbg_error("breakpoint", "type=\"exists\" add=\"fail\" file=\"%s\" line=\"%ld\"", "Breakpoint at %s:%ld exists", path, line_num);
- }
- zend_string_release(path_str);
- } /* }}} */
- PHPDBG_API HashTable *phpdbg_resolve_pending_file_break_ex(const char *file, uint32_t filelen, zend_string *cur, HashTable *fileht) /* {{{ */
- {
- phpdbg_debug("file: %s, filelen: %u, cur: %s, curlen %u, pos: %c, memcmp: %d\n", file, filelen, ZSTR_VAL(cur), ZSTR_LEN(cur), filelen > ZSTR_LEN(cur) ? file[filelen - ZSTR_LEN(cur) - 1] : '?', filelen > ZSTR_LEN(cur) ? memcmp(file + filelen - ZSTR_LEN(cur), ZSTR_VAL(cur), ZSTR_LEN(cur)) : 0);
- #ifdef _WIN32
- # define WIN32_PATH_CHECK file[filelen - ZSTR_LEN(cur) - 1] == '\\'
- #else
- # define WIN32_PATH_CHECK 0
- #endif
- if (((ZSTR_LEN(cur) < filelen && (file[filelen - ZSTR_LEN(cur) - 1] == '/' || WIN32_PATH_CHECK)) || filelen == ZSTR_LEN(cur)) && !memcmp(file + filelen - ZSTR_LEN(cur), ZSTR_VAL(cur), ZSTR_LEN(cur))) {
- phpdbg_breakfile_t *brake, new_brake;
- HashTable *master;
- PHPDBG_G(flags) |= PHPDBG_HAS_FILE_BP;
- if (!(master = zend_hash_str_find_ptr(&PHPDBG_G(bp)[PHPDBG_BREAK_FILE], file, filelen))) {
- HashTable new_ht;
- zend_hash_init(&new_ht, 8, NULL, phpdbg_file_breaks_dtor, 0);
- master = zend_hash_str_add_mem(&PHPDBG_G(bp)[PHPDBG_BREAK_FILE], file, filelen, &new_ht, sizeof(HashTable));
- }
- ZEND_HASH_FOREACH_PTR(fileht, brake) {
- new_brake = *brake;
- new_brake.filename = estrndup(file, filelen);
- PHPDBG_BREAK_UNMAPPING(brake->id);
- if (zend_hash_index_add_mem(master, brake->line, &new_brake, sizeof(phpdbg_breakfile_t))) {
- PHPDBG_BREAK_MAPPING(brake->id, master);
- }
- } ZEND_HASH_FOREACH_END();
- zend_hash_del(&PHPDBG_G(bp)[PHPDBG_BREAK_FILE_PENDING], cur);
- if (!zend_hash_num_elements(&PHPDBG_G(bp)[PHPDBG_BREAK_FILE_PENDING])) {
- PHPDBG_G(flags) &= ~PHPDBG_HAS_PENDING_FILE_BP;
- }
- phpdbg_debug("compiled file: %s, cur bp file: %s\n", file, cur);
- return master;
- }
- return NULL;
- } /* }}} */
- PHPDBG_API void phpdbg_resolve_pending_file_break(const char *file) /* {{{ */
- {
- HashTable *fileht;
- uint32_t filelen = strlen(file);
- zend_string *cur;
- phpdbg_debug("was compiled: %s\n", file);
- ZEND_HASH_FOREACH_STR_KEY_PTR(&PHPDBG_G(bp)[PHPDBG_BREAK_FILE_PENDING], cur, fileht) {
- phpdbg_debug("check bp: %s\n", cur);
- phpdbg_resolve_pending_file_break_ex(file, filelen, cur, fileht);
- } ZEND_HASH_FOREACH_END();
- } /* }}} */
- PHPDBG_API void phpdbg_set_breakpoint_symbol(const char *name, size_t name_len) /* {{{ */
- {
- char *lcname;
- if (*name == '\\') {
- name++;
- name_len--;
- }
- lcname = zend_str_tolower_dup(name, name_len);
- if (!zend_hash_str_exists(&PHPDBG_G(bp)[PHPDBG_BREAK_SYM], name, name_len)) {
- phpdbg_breaksymbol_t new_break;
- PHPDBG_G(flags) |= PHPDBG_HAS_SYM_BP;
- PHPDBG_BREAK_INIT(new_break, PHPDBG_BREAK_SYM);
- new_break.symbol = estrndup(name, name_len);
- zend_hash_str_update_mem(&PHPDBG_G(bp)[PHPDBG_BREAK_SYM], lcname, name_len, &new_break, sizeof(phpdbg_breaksymbol_t));
- phpdbg_notice("breakpoint", "add=\"success\" id=\"%d\" function=\"%s\"", "Breakpoint #%d added at %s", new_break.id, new_break.symbol);
- PHPDBG_BREAK_MAPPING(new_break.id, &PHPDBG_G(bp)[PHPDBG_BREAK_SYM]);
- } else {
- phpdbg_error("breakpoint", "type=\"exists\" add=\"fail\" function=\"%s\"", "Breakpoint exists at %s", name);
- }
- efree(lcname);
- } /* }}} */
- PHPDBG_API void phpdbg_set_breakpoint_method(const char *class_name, const char *func_name) /* {{{ */
- {
- HashTable class_breaks, *class_table;
- size_t class_len = strlen(class_name);
- size_t func_len = strlen(func_name);
- char *func_lcname, *class_lcname;
- if (*class_name == '\\') {
- class_name++;
- class_len--;
- }
- func_lcname = zend_str_tolower_dup(func_name, func_len);
- class_lcname = zend_str_tolower_dup(class_name, class_len);
- if (!(class_table = zend_hash_str_find_ptr(&PHPDBG_G(bp)[PHPDBG_BREAK_METHOD], class_lcname, class_len))) {
- zend_hash_init(&class_breaks, 8, NULL, phpdbg_class_breaks_dtor, 0);
- class_table = zend_hash_str_update_mem(&PHPDBG_G(bp)[PHPDBG_BREAK_METHOD], class_lcname, class_len, &class_breaks, sizeof(HashTable));
- }
- if (!zend_hash_str_exists(class_table, func_lcname, func_len)) {
- phpdbg_breakmethod_t new_break;
- PHPDBG_G(flags) |= PHPDBG_HAS_METHOD_BP;
- PHPDBG_BREAK_INIT(new_break, PHPDBG_BREAK_METHOD);
- new_break.class_name = estrndup(class_name, class_len);
- new_break.class_len = class_len;
- new_break.func_name = estrndup(func_name, func_len);
- new_break.func_len = func_len;
- zend_hash_str_update_mem(class_table, func_lcname, func_len, &new_break, sizeof(phpdbg_breakmethod_t));
- phpdbg_notice("breakpoint", "add=\"success\" id=\"%d\" method=\"%s::%s\"", "Breakpoint #%d added at %s::%s", new_break.id, class_name, func_name);
- PHPDBG_BREAK_MAPPING(new_break.id, class_table);
- } else {
- phpdbg_error("breakpoint", "type=\"exists\" add=\"fail\" method=\"%s::%s\"", "Breakpoint exists at %s::%s", class_name, func_name);
- }
- efree(func_lcname);
- efree(class_lcname);
- } /* }}} */
- PHPDBG_API void phpdbg_set_breakpoint_opline(zend_ulong opline) /* {{{ */
- {
- if (!zend_hash_index_exists(&PHPDBG_G(bp)[PHPDBG_BREAK_OPLINE], opline)) {
- phpdbg_breakline_t new_break;
- PHPDBG_G(flags) |= PHPDBG_HAS_OPLINE_BP;
- PHPDBG_BREAK_INIT(new_break, PHPDBG_BREAK_OPLINE);
- new_break.name = NULL;
- new_break.opline = opline;
- new_break.base = NULL;
- zend_hash_index_update_mem(&PHPDBG_G(bp)[PHPDBG_BREAK_OPLINE], opline, &new_break, sizeof(phpdbg_breakline_t));
- phpdbg_notice("breakpoint", "add=\"success\" id=\"%d\" opline=\"%#lx\"", "Breakpoint #%d added at %#lx", new_break.id, new_break.opline);
- PHPDBG_BREAK_MAPPING(new_break.id, &PHPDBG_G(bp)[PHPDBG_BREAK_OPLINE]);
- } else {
- phpdbg_error("breakpoint", "type=\"exists\" add=\"fail\" opline=\"%#lx\"", "Breakpoint exists at %#lx", opline);
- }
- } /* }}} */
- PHPDBG_API int phpdbg_resolve_op_array_break(phpdbg_breakopline_t *brake, zend_op_array *op_array) /* {{{ */
- {
- phpdbg_breakline_t opline_break;
- if (op_array->last <= brake->opline_num) {
- if (brake->class_name == NULL) {
- phpdbg_error("breakpoint", "type=\"maxoplines\" add=\"fail\" maxoplinenum=\"%d\" function=\"%s\" usedoplinenum=\"%ld\"", "There are only %d oplines in function %s (breaking at opline %ld impossible)", op_array->last, brake->func_name, brake->opline_num);
- } else if (brake->func_name == NULL) {
- phpdbg_error("breakpoint", "type=\"maxoplines\" add=\"fail\" maxoplinenum=\"%d\" file=\"%s\" usedoplinenum=\"%ld\"", "There are only %d oplines in file %s (breaking at opline %ld impossible)", op_array->last, brake->class_name, brake->opline_num);
- } else {
- phpdbg_error("breakpoint", "type=\"maxoplines\" add=\"fail\" maxoplinenum=\"%d\" method=\"%s::%s\" usedoplinenum=\"%ld\"", "There are only %d oplines in method %s::%s (breaking at opline %ld impossible)", op_array->last, brake->class_name, brake->func_name, brake->opline_num);
- }
- return FAILURE;
- }
- opline_break.disabled = 0;
- opline_break.hits = 0;
- opline_break.id = brake->id;
- opline_break.opline = brake->opline = (zend_ulong)(op_array->opcodes + brake->opline_num);
- opline_break.name = NULL;
- opline_break.base = brake;
- if (op_array->scope) {
- opline_break.type = PHPDBG_BREAK_METHOD_OPLINE;
- } else if (op_array->function_name) {
- opline_break.type = PHPDBG_BREAK_FUNCTION_OPLINE;
- } else {
- opline_break.type = PHPDBG_BREAK_FILE_OPLINE;
- }
- PHPDBG_G(flags) |= PHPDBG_HAS_OPLINE_BP;
- zend_hash_index_update_mem(&PHPDBG_G(bp)[PHPDBG_BREAK_OPLINE], opline_break.opline, &opline_break, sizeof(phpdbg_breakline_t));
- return SUCCESS;
- } /* }}} */
- PHPDBG_API void phpdbg_resolve_op_array_breaks(zend_op_array *op_array) /* {{{ */
- {
- HashTable *func_table = &PHPDBG_G(bp)[PHPDBG_BREAK_FUNCTION_OPLINE];
- HashTable *oplines_table;
- phpdbg_breakopline_t *brake;
- if (op_array->scope != NULL && !(func_table = zend_hash_find_ptr(&PHPDBG_G(bp)[PHPDBG_BREAK_METHOD_OPLINE], op_array->scope->name))) {
- return;
- }
- if (op_array->function_name == NULL) {
- if (!(oplines_table = zend_hash_find_ptr(&PHPDBG_G(bp)[PHPDBG_BREAK_FILE_OPLINE], op_array->filename))) {
- return;
- }
- } else if (!op_array->function_name || !(oplines_table = zend_hash_find_ptr(func_table, op_array->function_name))) {
- return;
- }
- ZEND_HASH_FOREACH_PTR(oplines_table, brake) {
- if (phpdbg_resolve_op_array_break(brake, op_array) == SUCCESS) {
- phpdbg_breakline_t *opline_break;
- zend_hash_internal_pointer_end(&PHPDBG_G(bp)[PHPDBG_BREAK_OPLINE]);
- opline_break = zend_hash_get_current_data_ptr(&PHPDBG_G(bp)[PHPDBG_BREAK_OPLINE]);
- phpdbg_notice("breakpoint", "add=\"success\" id=\"%d\" symbol=\"%s\" num=\"%ld\" opline=\"%#lx\"", "Breakpoint #%d resolved at %s%s%s#%ld (opline %#lx)",
- opline_break->id,
- brake->class_name ? brake->class_name : "",
- brake->class_name && brake->func_name ? "::" : "",
- brake->func_name ? brake->func_name : "",
- brake->opline_num,
- opline_break->opline);
- }
- } ZEND_HASH_FOREACH_END();
- } /* }}} */
- PHPDBG_API int phpdbg_resolve_opline_break(phpdbg_breakopline_t *new_break) /* {{{ */
- {
- HashTable *func_table = EG(function_table);
- zend_function *func;
- if (new_break->func_name == NULL) {
- if (EG(current_execute_data) == NULL) {
- if (PHPDBG_G(ops) != NULL && !memcmp(PHPDBG_G(ops)->filename, new_break->class_name, new_break->class_len)) {
- if (phpdbg_resolve_op_array_break(new_break, PHPDBG_G(ops)) == SUCCESS) {
- return SUCCESS;
- } else {
- return 2;
- }
- }
- return FAILURE;
- } else {
- zend_execute_data *execute_data = EG(current_execute_data);
- do {
- if (ZEND_USER_CODE(execute_data->func->common.type)) {
- zend_op_array *op_array = &execute_data->func->op_array;
- if (op_array->function_name == NULL && op_array->scope == NULL && new_break->class_len == ZSTR_LEN(op_array->filename) && !memcmp(ZSTR_VAL(op_array->filename), new_break->class_name, new_break->class_len)) {
- if (phpdbg_resolve_op_array_break(new_break, op_array) == SUCCESS) {
- return SUCCESS;
- } else {
- return 2;
- }
- }
- }
- } while ((execute_data = execute_data->prev_execute_data) != NULL);
- return FAILURE;
- }
- }
- if (new_break->class_name != NULL) {
- zend_class_entry *ce;
- if (!(ce = zend_hash_str_find_ptr(EG(class_table), zend_str_tolower_dup(new_break->class_name, new_break->class_len), new_break->class_len))) {
- return FAILURE;
- }
- func_table = &ce->function_table;
- }
- if (!(func = zend_hash_str_find_ptr(func_table, zend_str_tolower_dup(new_break->func_name, new_break->func_len), new_break->func_len))) {
- if (new_break->class_name != NULL && new_break->func_name != NULL) {
- phpdbg_error("breakpoint", "type=\"nomethod\" method=\"%s::%s\"", "Method %s doesn't exist in class %s", new_break->func_name, new_break->class_name);
- return 2;
- }
- return FAILURE;
- }
- if (func->type != ZEND_USER_FUNCTION) {
- if (new_break->class_name == NULL) {
- phpdbg_error("breakpoint", "type=\"internalfunction\" function=\"%s\"", "%s is not a user defined function, no oplines exist", new_break->func_name);
- } else {
- phpdbg_error("breakpoint", "type=\"internalfunction\" method=\"%s::%s\"", "%s::%s is not a user defined method, no oplines exist", new_break->class_name, new_break->func_name);
- }
- return 2;
- }
- if (phpdbg_resolve_op_array_break(new_break, &func->op_array) == FAILURE) {
- return 2;
- }
- return SUCCESS;
- } /* }}} */
- /* TODO ... method/function oplines need to be normalized (leading backslash, lowercase) and file oplines need to be resolved properly */
- PHPDBG_API void phpdbg_set_breakpoint_method_opline(const char *class, const char *method, zend_ulong opline) /* {{{ */
- {
- phpdbg_breakopline_t new_break;
- HashTable class_breaks, *class_table;
- HashTable method_breaks, *method_table;
- PHPDBG_BREAK_INIT(new_break, PHPDBG_BREAK_METHOD_OPLINE);
- new_break.func_len = strlen(method);
- new_break.func_name = estrndup(method, new_break.func_len);
- new_break.class_len = strlen(class);
- new_break.class_name = estrndup(class, new_break.class_len);
- new_break.opline_num = opline;
- new_break.opline = 0;
- switch (phpdbg_resolve_opline_break(&new_break)) {
- case FAILURE:
- phpdbg_notice("breakpoint", "pending=\"pending\" id=\"%d\" method=\"%::%s\" num=\"%ld\"", "Pending breakpoint #%d at %s::%s#%ld", new_break.id, new_break.class_name, new_break.func_name, opline);
- break;
- case SUCCESS:
- phpdbg_notice("breakpoint", "id=\"%d\" method=\"%::%s\" num=\"%ld\"", "Breakpoint #%d added at %s::%s#%ld", new_break.id, new_break.class_name, new_break.func_name, opline);
- break;
- case 2:
- return;
- }
- if (!(class_table = zend_hash_str_find_ptr(&PHPDBG_G(bp)[PHPDBG_BREAK_METHOD_OPLINE], new_break.class_name, new_break.class_len))) {
- zend_hash_init(&class_breaks, 8, NULL, phpdbg_opline_class_breaks_dtor, 0);
- class_table = zend_hash_str_update_mem(&PHPDBG_G(bp)[PHPDBG_BREAK_METHOD_OPLINE], new_break.class_name, new_break.class_len, &class_breaks, sizeof(HashTable));
- }
- if (!(method_table = zend_hash_str_find_ptr(class_table, new_break.func_name, new_break.func_len))) {
- zend_hash_init(&method_breaks, 8, NULL, phpdbg_opline_breaks_dtor, 0);
- method_table = zend_hash_str_update_mem(class_table, new_break.func_name, new_break.func_len, &method_breaks, sizeof(HashTable));
- }
- if (zend_hash_index_exists(method_table, opline)) {
- phpdbg_error("breakpoint", "type=\"exists\" method=\"%s\" num=\"%ld\"", "Breakpoint already exists for %s::%s#%ld", new_break.class_name, new_break.func_name, opline);
- efree((char*)new_break.func_name);
- efree((char*)new_break.class_name);
- PHPDBG_G(bp_count)--;
- return;
- }
- PHPDBG_G(flags) |= PHPDBG_HAS_METHOD_OPLINE_BP;
- PHPDBG_BREAK_MAPPING(new_break.id, method_table);
- zend_hash_index_update_mem(method_table, opline, &new_break, sizeof(phpdbg_breakopline_t));
- }
- /* }}} */
- PHPDBG_API void phpdbg_set_breakpoint_function_opline(const char *function, zend_ulong opline) /* {{{ */
- {
- phpdbg_breakopline_t new_break;
- HashTable func_breaks, *func_table;
- PHPDBG_BREAK_INIT(new_break, PHPDBG_BREAK_FUNCTION_OPLINE);
- new_break.func_len = strlen(function);
- new_break.func_name = estrndup(function, new_break.func_len);
- new_break.class_len = 0;
- new_break.class_name = NULL;
- new_break.opline_num = opline;
- new_break.opline = 0;
- switch (phpdbg_resolve_opline_break(&new_break)) {
- case FAILURE:
- phpdbg_notice("breakpoint", "pending=\"pending\" id=\"%d\" function=\"%s\" num=\"%ld\"", "Pending breakpoint #%d at %s#%ld", new_break.id, new_break.func_name, opline);
- break;
- case SUCCESS:
- phpdbg_notice("breakpoint", "id=\"%d\" function=\"%s\" num=\"%ld\"", "Breakpoint #%d added at %s#%ld", new_break.id, new_break.func_name, opline);
- break;
- case 2:
- return;
- }
- if (!(func_table = zend_hash_str_find_ptr(&PHPDBG_G(bp)[PHPDBG_BREAK_FUNCTION_OPLINE], new_break.func_name, new_break.func_len))) {
- zend_hash_init(&func_breaks, 8, NULL, phpdbg_opline_breaks_dtor, 0);
- func_table = zend_hash_str_update_mem(&PHPDBG_G(bp)[PHPDBG_BREAK_FUNCTION_OPLINE], new_break.func_name, new_break.func_len, &func_breaks, sizeof(HashTable));
- }
- if (zend_hash_index_exists(func_table, opline)) {
- phpdbg_error("breakpoint", "type=\"exists\" function=\"%s\" num=\"%ld\"", "Breakpoint already exists for %s#%ld", new_break.func_name, opline);
- efree((char*)new_break.func_name);
- PHPDBG_G(bp_count)--;
- return;
- }
- PHPDBG_BREAK_MAPPING(new_break.id, func_table);
- PHPDBG_G(flags) |= PHPDBG_HAS_FUNCTION_OPLINE_BP;
- zend_hash_index_update_mem(func_table, opline, &new_break, sizeof(phpdbg_breakopline_t));
- }
- /* }}} */
- PHPDBG_API void phpdbg_set_breakpoint_file_opline(const char *file, zend_ulong opline) /* {{{ */
- {
- phpdbg_breakopline_t new_break;
- HashTable file_breaks, *file_table;
- PHPDBG_BREAK_INIT(new_break, PHPDBG_BREAK_FILE_OPLINE);
- new_break.func_len = 0;
- new_break.func_name = NULL;
- new_break.class_len = strlen(file);
- new_break.class_name = estrndup(file, new_break.class_len);
- new_break.opline_num = opline;
- new_break.opline = 0;
- switch (phpdbg_resolve_opline_break(&new_break)) {
- case FAILURE:
- phpdbg_notice("breakpoint", "pending=\"pending\" id=\"%d\" file=\"%s\" num=\"%ld\"", "Pending breakpoint #%d at %s:%ld", new_break.id, new_break.class_name, opline);
- break;
- case SUCCESS:
- phpdbg_notice("breakpoint", "id=\"%d\" file=\"%s\" num=\"%ld\"", "Breakpoint #%d added at %s:%ld", new_break.id, new_break.class_name, opline);
- break;
- case 2:
- return;
- }
- if (!(file_table = zend_hash_str_find_ptr(&PHPDBG_G(bp)[PHPDBG_BREAK_FILE_OPLINE], new_break.class_name, new_break.class_len))) {
- zend_hash_init(&file_breaks, 8, NULL, phpdbg_opline_breaks_dtor, 0);
- file_table = zend_hash_str_update_mem(&PHPDBG_G(bp)[PHPDBG_BREAK_FILE_OPLINE], new_break.class_name, new_break.class_len, &file_breaks, sizeof(HashTable));
- }
- if (zend_hash_index_exists(file_table, opline)) {
- phpdbg_error("breakpoint", "type=\"exists\" file=\"%s\" num=\"%d\"", "Breakpoint already exists for %s:%ld", new_break.class_name, opline);
- efree((char*)new_break.class_name);
- PHPDBG_G(bp_count)--;
- return;
- }
- PHPDBG_BREAK_MAPPING(new_break.id, file_table);
- PHPDBG_G(flags) |= PHPDBG_HAS_FILE_OPLINE_BP;
- zend_hash_index_update_mem(file_table, opline, &new_break, sizeof(phpdbg_breakopline_t));
- }
- /* }}} */
- PHPDBG_API void phpdbg_set_breakpoint_opcode(const char *name, size_t name_len) /* {{{ */
- {
- phpdbg_breakop_t new_break;
- zend_ulong hash = zend_hash_func(name, name_len);
- if (zend_hash_index_exists(&PHPDBG_G(bp)[PHPDBG_BREAK_OPCODE], hash)) {
- phpdbg_error("breakpoint", "type=\"exists\" opcode=\"%s\"", "Breakpoint exists for %s", name);
- return;
- }
- PHPDBG_BREAK_INIT(new_break, PHPDBG_BREAK_OPCODE);
- new_break.hash = hash;
- new_break.name = estrndup(name, name_len);
- zend_hash_index_update_mem(&PHPDBG_G(bp)[PHPDBG_BREAK_OPCODE], hash, &new_break, sizeof(phpdbg_breakop_t));
- PHPDBG_G(flags) |= PHPDBG_HAS_OPCODE_BP;
- phpdbg_notice("breakpoint", "id=\"%d\" opcode=\"%s\"", "Breakpoint #%d added at %s", new_break.id, name);
- PHPDBG_BREAK_MAPPING(new_break.id, &PHPDBG_G(bp)[PHPDBG_BREAK_OPCODE]);
- } /* }}} */
- PHPDBG_API void phpdbg_set_breakpoint_opline_ex(phpdbg_opline_ptr_t opline) /* {{{ */
- {
- if (!zend_hash_index_exists(&PHPDBG_G(bp)[PHPDBG_BREAK_OPLINE], (zend_ulong) opline)) {
- phpdbg_breakline_t new_break;
- PHPDBG_G(flags) |= PHPDBG_HAS_OPLINE_BP;
- PHPDBG_BREAK_INIT(new_break, PHPDBG_BREAK_OPLINE);
- new_break.opline = (zend_ulong) opline;
- new_break.base = NULL;
- zend_hash_index_update_mem(&PHPDBG_G(bp)[PHPDBG_BREAK_OPLINE], (zend_ulong) opline, &new_break, sizeof(phpdbg_breakline_t));
- phpdbg_notice("breakpoint", "id=\"%d\" opline=\"%#lx\"", "Breakpoint #%d added at %#lx", new_break.id, new_break.opline);
- PHPDBG_BREAK_MAPPING(new_break.id, &PHPDBG_G(bp)[PHPDBG_BREAK_OPLINE]);
- } else {
- phpdbg_error("breakpoint", "type=\"exists\" opline=\"%#lx\"", "Breakpoint exists for opline %#lx", (zend_ulong) opline);
- }
- } /* }}} */
- static inline void phpdbg_create_conditional_break(phpdbg_breakcond_t *brake, const phpdbg_param_t *param, const char *expr, size_t expr_len, zend_ulong hash) /* {{{ */
- {
- phpdbg_breakcond_t new_break;
- uint32_t cops = CG(compiler_options);
- zval pv;
- switch (param->type) {
- case STR_PARAM:
- case NUMERIC_FUNCTION_PARAM:
- case METHOD_PARAM:
- case NUMERIC_METHOD_PARAM:
- case FILE_PARAM:
- case ADDR_PARAM:
- /* do nothing */
- break;
-
- default:
- phpdbg_error("eval", "type=\"invalidparameter\"", "Invalid parameter type for conditional breakpoint");
- return;
- }
- PHPDBG_BREAK_INIT(new_break, PHPDBG_BREAK_COND);
- new_break.hash = hash;
- if (param) {
- new_break.paramed = 1;
- phpdbg_copy_param(
- param, &new_break.param);
- if (new_break.param.type == FILE_PARAM ||
- new_break.param.type == NUMERIC_FILE_PARAM) {
- char realpath[MAXPATHLEN];
-
- if (VCWD_REALPATH(new_break.param.file.name, realpath)) {
- efree(new_break.param.file.name);
-
- new_break.param.file.name = estrdup(realpath);
- } else {
- phpdbg_error("eval", "type=\"invalidparameter\"", "Invalid file for conditional break %s", new_break.param.file.name);
- phpdbg_clear_param(&new_break.param);
- return;
- }
- }
- } else {
- new_break.paramed = 0;
- }
- cops = CG(compiler_options);
- CG(compiler_options) = ZEND_COMPILE_DEFAULT_FOR_EVAL;
- new_break.code = estrndup(expr, expr_len);
- new_break.code_len = expr_len;
- Z_STR(pv) = zend_string_alloc(expr_len + sizeof("return ;") - 1, 0);
- memcpy(Z_STRVAL(pv), "return ", sizeof("return ") - 1);
- memcpy(Z_STRVAL(pv) + sizeof("return ") - 1, expr, expr_len);
- Z_STRVAL(pv)[Z_STRLEN(pv) - 1] = ';';
- Z_STRVAL(pv)[Z_STRLEN(pv)] = '\0';
- Z_TYPE_INFO(pv) = IS_STRING;
- new_break.ops = zend_compile_string(&pv, "Conditional Breakpoint Code");
- zval_ptr_dtor_str(&pv);
- if (new_break.ops) {
- brake = zend_hash_index_update_mem(&PHPDBG_G(bp)[PHPDBG_BREAK_COND], hash, &new_break, sizeof(phpdbg_breakcond_t));
- phpdbg_notice("breakpoint", "id=\"%d\" expression=\"%s\" ptr=\"%p\"", "Conditional breakpoint #%d added %s/%p", brake->id, brake->code, brake->ops);
- PHPDBG_G(flags) |= PHPDBG_HAS_COND_BP;
- PHPDBG_BREAK_MAPPING(new_break.id, &PHPDBG_G(bp)[PHPDBG_BREAK_COND]);
- } else {
- phpdbg_error("compile", "expression=\"%s\"", "Failed to compile code for expression %s", expr);
- efree((char*)new_break.code);
- PHPDBG_G(bp_count)--;
- }
- CG(compiler_options) = cops;
- } /* }}} */
- PHPDBG_API void phpdbg_set_breakpoint_expression(const char *expr, size_t expr_len) /* {{{ */
- {
- zend_ulong expr_hash = zend_inline_hash_func(expr, expr_len);
- phpdbg_breakcond_t new_break;
- if (!zend_hash_index_exists(&PHPDBG_G(bp)[PHPDBG_BREAK_COND], expr_hash)) {
- phpdbg_create_conditional_break(
- &new_break, NULL, expr, expr_len, expr_hash);
- } else {
- phpdbg_error("breakpoint", "type=\"exists\" expression=\"%s\"", "Conditional break %s exists", expr);
- }
- } /* }}} */
- PHPDBG_API void phpdbg_set_breakpoint_at(const phpdbg_param_t *param) /* {{{ */
- {
- phpdbg_breakcond_t new_break;
- phpdbg_param_t *condition;
- zend_ulong hash = 0L;
- if (param->next) {
- condition = param->next;
- hash = zend_inline_hash_func(condition->str, condition->len);
- if (!zend_hash_index_exists(&PHPDBG_G(bp)[PHPDBG_BREAK_COND], hash)) {
- phpdbg_create_conditional_break(&new_break, param, condition->str, condition->len, hash);
- } else {
- phpdbg_notice("breakpoint", "type=\"exists\" arg=\"%s\"", "Conditional break %s exists at the specified location", condition->str);
- }
- }
- } /* }}} */
- static inline phpdbg_breakbase_t *phpdbg_find_breakpoint_file(zend_op_array *op_array) /* {{{ */
- {
- HashTable *breaks;
- phpdbg_breakbase_t *brake;
- #if 0
- phpdbg_debug("Op at: %.*s %d\n", ZSTR_LEN(op_array->filename), ZSTR_VAL(op_array->filename), (*EG(opline_ptr))->lineno);
- #endif
- /* NOTE: realpath resolution should have happened at compile time - no reason to do it here again */
- if (!(breaks = zend_hash_find_ptr(&PHPDBG_G(bp)[PHPDBG_BREAK_FILE], op_array->filename))) {
- return NULL;
- }
- if (EG(current_execute_data) && (brake = zend_hash_index_find_ptr(breaks, EG(current_execute_data)->opline->lineno))) {
- return brake;
- }
- return NULL;
- } /* }}} */
- static inline phpdbg_breakbase_t *phpdbg_find_breakpoint_symbol(zend_function *fbc) /* {{{ */
- {
- zend_op_array *ops;
- if (fbc->type != ZEND_USER_FUNCTION) {
- return NULL;
- }
- ops = (zend_op_array *) fbc;
- if (ops->scope) {
- /* find method breaks here */
- return phpdbg_find_breakpoint_method(ops);
- }
- if (ops->function_name) {
- phpdbg_breakbase_t *brake;
- zend_string *fname = zend_string_tolower(ops->function_name);
- brake = zend_hash_find_ptr(&PHPDBG_G(bp)[PHPDBG_BREAK_SYM], fname);
- zend_string_release(fname);
- return brake;
- } else {
- return zend_hash_str_find_ptr(&PHPDBG_G(bp)[PHPDBG_BREAK_SYM], ZEND_STRL("main"));
- }
- } /* }}} */
- static inline phpdbg_breakbase_t *phpdbg_find_breakpoint_method(zend_op_array *ops) /* {{{ */
- {
- HashTable *class_table;
- phpdbg_breakbase_t *brake = NULL;
- zend_string *class_lcname = zend_string_tolower(ops->scope->name);
- if ((class_table = zend_hash_find_ptr(&PHPDBG_G(bp)[PHPDBG_BREAK_METHOD], class_lcname))) {
- zend_string *lcname = zend_string_tolower(ops->function_name);
- brake = zend_hash_find_ptr(class_table, lcname);
- zend_string_release(lcname);
- }
- zend_string_release(class_lcname);
- return brake;
- } /* }}} */
- static inline phpdbg_breakbase_t *phpdbg_find_breakpoint_opline(phpdbg_opline_ptr_t opline) /* {{{ */
- {
- phpdbg_breakline_t *brake;
- if ((brake = zend_hash_index_find_ptr(&PHPDBG_G(bp)[PHPDBG_BREAK_OPLINE], (zend_ulong) opline)) && brake->base) {
- return (phpdbg_breakbase_t *)brake->base;
- }
- return (phpdbg_breakbase_t *) brake;
- } /* }}} */
- static inline phpdbg_breakbase_t *phpdbg_find_breakpoint_opcode(zend_uchar opcode) /* {{{ */
- {
- const char *opname = zend_get_opcode_name(opcode);
- if (!opname) {
- return NULL;
- }
- return zend_hash_index_find_ptr(&PHPDBG_G(bp)[PHPDBG_BREAK_OPCODE], zend_hash_func(opname, strlen(opname)));
- } /* }}} */
- static inline zend_bool phpdbg_find_breakpoint_param(phpdbg_param_t *param, zend_execute_data *execute_data) /* {{{ */
- {
- zend_function *function = execute_data->func;
- switch (param->type) {
- case NUMERIC_FUNCTION_PARAM:
- case STR_PARAM: {
- /* function breakpoint */
- if (function->type != ZEND_USER_FUNCTION) {
- return 0;
- }
- {
- const char *str = NULL;
- size_t len = 0L;
- zend_op_array *ops = (zend_op_array*)function;
- str = ops->function_name ? ZSTR_VAL(ops->function_name) : "main";
- len = ops->function_name ? ZSTR_LEN(ops->function_name) : strlen(str);
- if (len == param->len && memcmp(param->str, str, len) == SUCCESS) {
- return param->type == STR_PARAM || execute_data->opline - ops->opcodes == param->num;
- }
- }
- } break;
- case FILE_PARAM: {
- if (param->file.line == zend_get_executed_lineno()) {
- const char *str = zend_get_executed_filename();
- size_t lengths[2] = {strlen(param->file.name), strlen(str)};
- if (lengths[0] == lengths[1]) {
- return (memcmp(
- param->file.name, str, lengths[0]) == SUCCESS);
- }
- }
- } break;
- case NUMERIC_METHOD_PARAM:
- case METHOD_PARAM: {
- if (function->type != ZEND_USER_FUNCTION) {
- return 0;
- }
- {
- zend_op_array *ops = (zend_op_array*) function;
- if (ops->scope) {
- size_t lengths[2] = { strlen(param->method.class), ZSTR_LEN(ops->scope->name) };
- if (lengths[0] == lengths[1] && memcmp(param->method.class, ops->scope->name, lengths[0]) == SUCCESS) {
- lengths[0] = strlen(param->method.name);
- lengths[1] = ZSTR_LEN(ops->function_name);
- if (lengths[0] == lengths[1] && memcmp(param->method.name, ops->function_name, lengths[0]) == SUCCESS) {
- return param->type == METHOD_PARAM || (execute_data->opline - ops->opcodes) == param->num;
- }
- }
- }
- }
- } break;
- case ADDR_PARAM: {
- return ((zend_ulong)(phpdbg_opline_ptr_t)execute_data->opline == param->addr);
- } break;
- default: {
- /* do nothing */
- } break;
- }
- return 0;
- } /* }}} */
- static inline phpdbg_breakbase_t *phpdbg_find_conditional_breakpoint(zend_execute_data *execute_data) /* {{{ */
- {
- phpdbg_breakcond_t *bp;
- int breakpoint = FAILURE;
- ZEND_HASH_FOREACH_PTR(&PHPDBG_G(bp)[PHPDBG_BREAK_COND], bp) {
- zval retval;
- const zend_op *orig_opline = EG(current_execute_data)->opline;
- zend_function *orig_func = EG(current_execute_data)->func;
- zval *orig_retval = EG(current_execute_data)->return_value;
- if (((phpdbg_breakbase_t*)bp)->disabled) {
- continue;
- }
- if (bp->paramed) {
- if (!phpdbg_find_breakpoint_param(&bp->param, execute_data)) {
- continue;
- }
- }
- EG(no_extensions) = 1;
- zend_rebuild_symbol_table();
- zend_try {
- PHPDBG_G(flags) |= PHPDBG_IN_COND_BP;
- zend_execute(bp->ops, &retval);
- if (zend_is_true(&retval)) {
- breakpoint = SUCCESS;
- }
- } zend_end_try();
- EG(no_extensions) = 1;
- EG(current_execute_data)->opline = orig_opline;
- EG(current_execute_data)->func = orig_func;
- EG(current_execute_data)->return_value = orig_retval;
- PHPDBG_G(flags) &= ~PHPDBG_IN_COND_BP;
- if (breakpoint == SUCCESS) {
- break;
- }
- } ZEND_HASH_FOREACH_END();
- return (breakpoint == SUCCESS) ? ((phpdbg_breakbase_t *) bp) : NULL;
- } /* }}} */
- PHPDBG_API phpdbg_breakbase_t *phpdbg_find_breakpoint(zend_execute_data *execute_data) /* {{{ */
- {
- phpdbg_breakbase_t *base = NULL;
- if (!(PHPDBG_G(flags) & PHPDBG_IS_BP_ENABLED)) {
- return NULL;
- }
- /* conditions cannot be executed by eval()'d code */
- if (!(PHPDBG_G(flags) & PHPDBG_IN_EVAL) &&
- (PHPDBG_G(flags) & PHPDBG_HAS_COND_BP) &&
- (base = phpdbg_find_conditional_breakpoint(execute_data))) {
- goto result;
- }
- if ((PHPDBG_G(flags) & PHPDBG_HAS_FILE_BP) && (base = phpdbg_find_breakpoint_file(&execute_data->func->op_array))) {
- goto result;
- }
- if (PHPDBG_G(flags) & (PHPDBG_HAS_METHOD_BP|PHPDBG_HAS_SYM_BP)) {
- zend_op_array *op_array = &execute_data->func->op_array;
- /* check we are at the beginning of the stack, but after argument RECV */
- if (execute_data->opline == op_array->opcodes + op_array->num_args + !!(op_array->fn_flags & ZEND_ACC_VARIADIC)) {
- if ((base = phpdbg_find_breakpoint_symbol(execute_data->func))) {
- goto result;
- }
- }
- }
- if ((PHPDBG_G(flags) & PHPDBG_HAS_OPLINE_BP) && (base = phpdbg_find_breakpoint_opline((phpdbg_opline_ptr_t) execute_data->opline))) {
- goto result;
- }
- if ((PHPDBG_G(flags) & PHPDBG_HAS_OPCODE_BP) && (base = phpdbg_find_breakpoint_opcode(execute_data->opline->opcode))) {
- goto result;
- }
- return NULL;
- result:
- /* we return nothing for disable breakpoints */
- if (base->disabled) {
- return NULL;
- }
- return base;
- } /* }}} */
- PHPDBG_API void phpdbg_delete_breakpoint(zend_ulong num) /* {{{ */
- {
- HashTable *table;
- phpdbg_breakbase_t *brake;
- zend_string *strkey;
- zend_ulong numkey;
- if ((brake = phpdbg_find_breakbase_ex(num, &table, &numkey, &strkey))) {
- int type = brake->type;
- char *name = NULL;
- size_t name_len = 0L;
- switch (type) {
- case PHPDBG_BREAK_FILE:
- case PHPDBG_BREAK_METHOD:
- if (zend_hash_num_elements(table) == 1) {
- name = estrdup(brake->name);
- name_len = strlen(name);
- if (zend_hash_num_elements(&PHPDBG_G(bp)[type]) == 1) {
- PHPDBG_G(flags) &= ~(1<<(brake->type+1));
- }
- }
- break;
- default: {
- if (zend_hash_num_elements(table) == 1) {
- PHPDBG_G(flags) &= ~(1<<(brake->type+1));
- }
- }
- }
- switch (type) {
- case PHPDBG_BREAK_FILE_OPLINE:
- case PHPDBG_BREAK_FUNCTION_OPLINE:
- case PHPDBG_BREAK_METHOD_OPLINE:
- if (zend_hash_num_elements(&PHPDBG_G(bp)[PHPDBG_BREAK_OPLINE]) == 1) {
- PHPDBG_G(flags) &= PHPDBG_HAS_OPLINE_BP;
- }
- zend_hash_index_del(&PHPDBG_G(bp)[PHPDBG_BREAK_OPLINE], ((phpdbg_breakopline_t *) brake)->opline);
- }
- if (strkey) {
- zend_hash_del(table, strkey);
- } else {
- zend_hash_index_del(table, numkey);
- }
- switch (type) {
- case PHPDBG_BREAK_FILE:
- case PHPDBG_BREAK_METHOD:
- if (name) {
- zend_hash_str_del(&PHPDBG_G(bp)[type], name, name_len);
- efree(name);
- }
- break;
- }
- phpdbg_notice("breakpoint", "deleted=\"success\" id=\"%ld\"", "Deleted breakpoint #%ld", num);
- PHPDBG_BREAK_UNMAPPING(num);
- } else {
- phpdbg_error("breakpoint", "type=\"nobreakpoint\" deleted=\"fail\" id=\"%ld\"", "Failed to find breakpoint #%ld", num);
- }
- } /* }}} */
- PHPDBG_API void phpdbg_clear_breakpoints(void) /* {{{ */
- {
- zend_hash_clean(&PHPDBG_G(bp)[PHPDBG_BREAK_FILE]);
- zend_hash_clean(&PHPDBG_G(bp)[PHPDBG_BREAK_FILE_PENDING]);
- zend_hash_clean(&PHPDBG_G(bp)[PHPDBG_BREAK_SYM]);
- zend_hash_clean(&PHPDBG_G(bp)[PHPDBG_BREAK_OPLINE]);
- zend_hash_clean(&PHPDBG_G(bp)[PHPDBG_BREAK_METHOD_OPLINE]);
- zend_hash_clean(&PHPDBG_G(bp)[PHPDBG_BREAK_FUNCTION_OPLINE]);
- zend_hash_clean(&PHPDBG_G(bp)[PHPDBG_BREAK_FILE_OPLINE]);
- zend_hash_clean(&PHPDBG_G(bp)[PHPDBG_BREAK_OPCODE]);
- zend_hash_clean(&PHPDBG_G(bp)[PHPDBG_BREAK_METHOD]);
- zend_hash_clean(&PHPDBG_G(bp)[PHPDBG_BREAK_COND]);
- zend_hash_clean(&PHPDBG_G(bp)[PHPDBG_BREAK_MAP]);
- PHPDBG_G(flags) &= ~PHPDBG_BP_MASK;
- PHPDBG_G(bp_count) = 0;
- } /* }}} */
- PHPDBG_API void phpdbg_hit_breakpoint(phpdbg_breakbase_t *brake, zend_bool output) /* {{{ */
- {
- brake->hits++;
- if (output) {
- phpdbg_print_breakpoint(brake);
- }
- } /* }}} */
- PHPDBG_API void phpdbg_print_breakpoint(phpdbg_breakbase_t *brake) /* {{{ */
- {
- if (!brake)
- goto unknown;
- switch (brake->type) {
- case PHPDBG_BREAK_FILE: {
- phpdbg_notice("breakpoint", "id=\"%d\" file=\"%s\" line=\"%ld\" hits=\"%lu\"", "Breakpoint #%d at %s:%ld, hits: %lu",
- ((phpdbg_breakfile_t*)brake)->id,
- ((phpdbg_breakfile_t*)brake)->filename,
- ((phpdbg_breakfile_t*)brake)->line,
- ((phpdbg_breakfile_t*)brake)->hits);
- } break;
- case PHPDBG_BREAK_SYM: {
- phpdbg_notice("breakpoint", "id=\"%d\" function=\"%s\" file=\"%s\" line=\"%ld\" hits=\"%lu\"", "Breakpoint #%d in %s() at %s:%u, hits: %lu",
- ((phpdbg_breaksymbol_t*)brake)->id,
- ((phpdbg_breaksymbol_t*)brake)->symbol,
- zend_get_executed_filename(),
- zend_get_executed_lineno(),
- ((phpdbg_breakfile_t*)brake)->hits);
- } break;
- case PHPDBG_BREAK_OPLINE: {
- phpdbg_notice("breakpoint", "id=\"%d\" opline=\"%#lx\" file=\"%s\" line=\"%ld\" hits=\"%lu\"", "Breakpoint #%d in %#lx at %s:%u, hits: %lu",
- ((phpdbg_breakline_t*)brake)->id,
- ((phpdbg_breakline_t*)brake)->opline,
- zend_get_executed_filename(),
- zend_get_executed_lineno(),
- ((phpdbg_breakline_t*)brake)->hits);
- } break;
- case PHPDBG_BREAK_METHOD_OPLINE: {
- phpdbg_notice("breakpoint", "id=\"%d\" method=\"%s::%s\" num=\"%lu\" file=\"%s\" line=\"%ld\" hits=\"%lu\"", "Breakpoint #%d in %s::%s()#%lu at %s:%u, hits: %lu",
- ((phpdbg_breakopline_t*)brake)->id,
- ((phpdbg_breakopline_t*)brake)->class_name,
- ((phpdbg_breakopline_t*)brake)->func_name,
- ((phpdbg_breakopline_t*)brake)->opline_num,
- zend_get_executed_filename(),
- zend_get_executed_lineno(),
- ((phpdbg_breakopline_t*)brake)->hits);
- } break;
- case PHPDBG_BREAK_FUNCTION_OPLINE: {
- phpdbg_notice("breakpoint", "id=\"%d\" num=\"%lu\" function=\"%s\" file=\"%s\" line=\"%ld\" hits=\"%lu\"", "Breakpoint #%d in %s()#%lu at %s:%u, hits: %lu",
- ((phpdbg_breakopline_t*)brake)->id,
- ((phpdbg_breakopline_t*)brake)->func_name,
- ((phpdbg_breakopline_t*)brake)->opline_num,
- zend_get_executed_filename(),
- zend_get_executed_lineno(),
- ((phpdbg_breakopline_t*)brake)->hits);
- } break;
- case PHPDBG_BREAK_FILE_OPLINE: {
- phpdbg_notice("breakpoint", "id=\"%d\" num=\"%lu\" file=\"%s\" line=\"%ld\" hits=\"%lu\"", "Breakpoint #%d in #%lu at %s:%u, hits: %lu",
- ((phpdbg_breakopline_t*)brake)->id,
- ((phpdbg_breakopline_t*)brake)->opline_num,
- zend_get_executed_filename(),
- zend_get_executed_lineno(),
- ((phpdbg_breakopline_t*)brake)->hits);
- } break;
- case PHPDBG_BREAK_OPCODE: {
- phpdbg_notice("breakpoint", "id=\"%d\" opcode=\"%s\" file=\"%s\" line=\"%ld\" hits=\"%lu\"", "Breakpoint #%d in %s at %s:%u, hits: %lu",
- ((phpdbg_breakop_t*)brake)->id,
- ((phpdbg_breakop_t*)brake)->name,
- zend_get_executed_filename(),
- zend_get_executed_lineno(),
- ((phpdbg_breakop_t*)brake)->hits);
- } break;
- case PHPDBG_BREAK_METHOD: {
- phpdbg_notice("breakpoint", "id=\"%d\" method=\"%s::%s\" file=\"%s\" line=\"%ld\" hits=\"%lu\"", "Breakpoint #%d in %s::%s() at %s:%u, hits: %lu",
- ((phpdbg_breakmethod_t*)brake)->id,
- ((phpdbg_breakmethod_t*)brake)->class_name,
- ((phpdbg_breakmethod_t*)brake)->func_name,
- zend_get_executed_filename(),
- zend_get_executed_lineno(),
- ((phpdbg_breakmethod_t*)brake)->hits);
- } break;
- case PHPDBG_BREAK_COND: {
- if (((phpdbg_breakcond_t*)brake)->paramed) {
- char *param;
- phpdbg_notice("breakpoint", "id=\"%d\" location=\"%s\" eval=\"%s\" file=\"%s\" line=\"%ld\" hits=\"%lu\"", "Conditional breakpoint #%d: at %s if %s at %s:%u, hits: %lu",
- ((phpdbg_breakcond_t*)brake)->id,
- phpdbg_param_tostring(&((phpdbg_breakcond_t*)brake)->param, ¶m),
- ((phpdbg_breakcond_t*)brake)->code,
- zend_get_executed_filename(),
- zend_get_executed_lineno(),
- ((phpdbg_breakcond_t*)brake)->hits);
- if (param)
- free(param);
- } else {
- phpdbg_notice("breakpoint", "id=\"%d\" eval=\"%s\" file=\"%s\" line=\"%ld\" hits=\"%lu\"", "Conditional breakpoint #%d: on %s == true at %s:%u, hits: %lu",
- ((phpdbg_breakcond_t*)brake)->id,
- ((phpdbg_breakcond_t*)brake)->code,
- zend_get_executed_filename(),
- zend_get_executed_lineno(),
- ((phpdbg_breakcond_t*)brake)->hits);
- }
- } break;
- default: {
- unknown:
- phpdbg_notice("breakpoint", "id=\"\" file=\"%s\" line=\"%ld\" hits=\"%lu\"", "Unknown breakpoint at %s:%u",
- zend_get_executed_filename(),
- zend_get_executed_lineno());
- }
- }
- } /* }}} */
- PHPDBG_API void phpdbg_enable_breakpoint(zend_ulong id) /* {{{ */
- {
- phpdbg_breakbase_t *brake = phpdbg_find_breakbase(id);
- if (brake) {
- brake->disabled = 0;
- }
- } /* }}} */
- PHPDBG_API void phpdbg_disable_breakpoint(zend_ulong id) /* {{{ */
- {
- phpdbg_breakbase_t *brake = phpdbg_find_breakbase(id);
- if (brake) {
- brake->disabled = 1;
- }
- } /* }}} */
- PHPDBG_API void phpdbg_enable_breakpoints(void) /* {{{ */
- {
- PHPDBG_G(flags) |= PHPDBG_IS_BP_ENABLED;
- } /* }}} */
- PHPDBG_API void phpdbg_disable_breakpoints(void) { /* {{{ */
- PHPDBG_G(flags) &= ~PHPDBG_IS_BP_ENABLED;
- } /* }}} */
- PHPDBG_API phpdbg_breakbase_t *phpdbg_find_breakbase(zend_ulong id) /* {{{ */
- {
- HashTable *table;
- zend_string *strkey;
- zend_ulong numkey;
- return phpdbg_find_breakbase_ex(id, &table, &numkey, &strkey);
- } /* }}} */
- PHPDBG_API phpdbg_breakbase_t *phpdbg_find_breakbase_ex(zend_ulong id, HashTable **table, zend_ulong *numkey, zend_string **strkey) /* {{{ */
- {
- if ((*table = zend_hash_index_find_ptr(&PHPDBG_G(bp)[PHPDBG_BREAK_MAP], id))) {
- phpdbg_breakbase_t *brake;
- ZEND_HASH_FOREACH_KEY_PTR(*table, *numkey, *strkey, brake) {
- if (brake->id == id) {
- return brake;
- }
- } ZEND_HASH_FOREACH_END();
- }
- return NULL;
- } /* }}} */
- PHPDBG_API void phpdbg_print_breakpoints(zend_ulong type) /* {{{ */
- {
- phpdbg_xml("<breakpoints %r>");
- switch (type) {
- case PHPDBG_BREAK_SYM: if ((PHPDBG_G(flags) & PHPDBG_HAS_SYM_BP)) {
- phpdbg_breaksymbol_t *brake;
- phpdbg_out(SEPARATE "\n");
- phpdbg_out("Function Breakpoints:\n");
- ZEND_HASH_FOREACH_PTR(&PHPDBG_G(bp)[PHPDBG_BREAK_SYM], brake) {
- phpdbg_writeln("function", "id=\"%d\" name=\"%s\" disabled=\"%s\"", "#%d\t\t%s%s",
- brake->id, brake->symbol,
- ((phpdbg_breakbase_t *) brake)->disabled ? " [disabled]" : "");
- } ZEND_HASH_FOREACH_END();
- } break;
- case PHPDBG_BREAK_METHOD: if ((PHPDBG_G(flags) & PHPDBG_HAS_METHOD_BP)) {
- HashTable *class_table;
- phpdbg_out(SEPARATE "\n");
- phpdbg_out("Method Breakpoints:\n");
- ZEND_HASH_FOREACH_PTR(&PHPDBG_G(bp)[PHPDBG_BREAK_METHOD], class_table) {
- phpdbg_breakmethod_t *brake;
- ZEND_HASH_FOREACH_PTR(class_table, brake) {
- phpdbg_writeln("method", "id=\"%d\" name=\"%s::%s\" disabled=\"%s\"", "#%d\t\t%s::%s%s",
- brake->id, brake->class_name, brake->func_name,
- ((phpdbg_breakbase_t *) brake)->disabled ? " [disabled]" : "");
- } ZEND_HASH_FOREACH_END();
- } ZEND_HASH_FOREACH_END();
- } break;
- case PHPDBG_BREAK_FILE: if ((PHPDBG_G(flags) & PHPDBG_HAS_FILE_BP)) {
- HashTable *points;
- phpdbg_out(SEPARATE "\n");
- phpdbg_out("File Breakpoints:\n");
- ZEND_HASH_FOREACH_PTR(&PHPDBG_G(bp)[PHPDBG_BREAK_FILE], points) {
- phpdbg_breakfile_t *brake;
- ZEND_HASH_FOREACH_PTR(points, brake) {
- phpdbg_writeln("file", "id=\"%d\" name=\"%s\" line=\"%lu\" disabled=\"%s\"", "#%d\t\t%s:%lu%s",
- brake->id, brake->filename, brake->line,
- ((phpdbg_breakbase_t *) brake)->disabled ? " [disabled]" : "");
- } ZEND_HASH_FOREACH_END();
- } ZEND_HASH_FOREACH_END();
- } if ((PHPDBG_G(flags) & PHPDBG_HAS_PENDING_FILE_BP)) {
- HashTable *points;
- phpdbg_out(SEPARATE "\n");
- phpdbg_out("Pending File Breakpoints:\n");
- ZEND_HASH_FOREACH_PTR(&PHPDBG_G(bp)[PHPDBG_BREAK_FILE_PENDING], points) {
- phpdbg_breakfile_t *brake;
- ZEND_HASH_FOREACH_PTR(points, brake) {
- phpdbg_writeln("file", "id=\"%d\" name=\"%s\" line=\"%lu\" disabled=\"%s\" pending=\"pending\"", "#%d\t\t%s:%lu%s",
- brake->id, brake->filename, brake->line,
- ((phpdbg_breakbase_t *) brake)->disabled ? " [disabled]" : "");
- } ZEND_HASH_FOREACH_END();
- } ZEND_HASH_FOREACH_END();
- } break;
- case PHPDBG_BREAK_OPLINE: if ((PHPDBG_G(flags) & PHPDBG_HAS_OPLINE_BP)) {
- phpdbg_breakline_t *brake;
- phpdbg_out(SEPARATE "\n");
- phpdbg_out("Opline Breakpoints:\n");
- ZEND_HASH_FOREACH_PTR(&PHPDBG_G(bp)[PHPDBG_BREAK_OPLINE], brake) {
- const char *type;
- switch (brake->type) {
- case PHPDBG_BREAK_METHOD_OPLINE:
- type = "method";
- goto print_opline;
- case PHPDBG_BREAK_FUNCTION_OPLINE:
- type = "function";
- goto print_opline;
- case PHPDBG_BREAK_FILE_OPLINE:
- type = "method";
- print_opline: {
- if (brake->type == PHPDBG_BREAK_METHOD_OPLINE) {
- type = "method";
- } else if (brake->type == PHPDBG_BREAK_FUNCTION_OPLINE) {
- type = "function";
- } else if (brake->type == PHPDBG_BREAK_FILE_OPLINE) {
- type = "file";
- }
- phpdbg_writeln("opline", "id=\"%d\" num=\"%#lx\" type=\"%s\" disabled=\"%s\"", "#%d\t\t%#lx\t\t(%s breakpoint)%s",
- brake->id, brake->opline, type,
- ((phpdbg_breakbase_t *) brake)->disabled ? " [disabled]" : "");
- } break;
- default:
- phpdbg_writeln("opline", "id=\"%d\" num=\"%#lx\" disabled=\"%s\"", "#%d\t\t%#lx%s",
- brake->id, brake->opline,
- ((phpdbg_breakbase_t *) brake)->disabled ? " [disabled]" : "");
- break;
- }
- } ZEND_HASH_FOREACH_END();
- } break;
- case PHPDBG_BREAK_METHOD_OPLINE: if ((PHPDBG_G(flags) & PHPDBG_HAS_METHOD_OPLINE_BP)) {
- HashTable *class_table, *method_table;
- phpdbg_out(SEPARATE "\n");
- phpdbg_out("Method opline Breakpoints:\n");
- ZEND_HASH_FOREACH_PTR(&PHPDBG_G(bp)[PHPDBG_BREAK_METHOD_OPLINE], class_table) {
- ZEND_HASH_FOREACH_PTR(class_table, method_table) {
- phpdbg_breakopline_t *brake;
- ZEND_HASH_FOREACH_PTR(method_table, brake) {
- phpdbg_writeln("methodopline", "id=\"%d\" name=\"%s::%s\" num=\"%ld\" disabled=\"%s\"", "#%d\t\t%s::%s opline %ld%s",
- brake->id, brake->class_name, brake->func_name, brake->opline_num,
- ((phpdbg_breakbase_t *) brake)->disabled ? " [disabled]" : "");
- } ZEND_HASH_FOREACH_END();
- } ZEND_HASH_FOREACH_END();
- } ZEND_HASH_FOREACH_END();
- } break;
- case PHPDBG_BREAK_FUNCTION_OPLINE: if ((PHPDBG_G(flags) & PHPDBG_HAS_FUNCTION_OPLINE_BP)) {
- HashTable *function_table;
- phpdbg_out(SEPARATE "\n");
- phpdbg_out("Function opline Breakpoints:\n");
- ZEND_HASH_FOREACH_PTR(&PHPDBG_G(bp)[PHPDBG_BREAK_FUNCTION_OPLINE], function_table) {
- phpdbg_breakopline_t *brake;
- ZEND_HASH_FOREACH_PTR(function_table, brake) {
- phpdbg_writeln("functionopline", "id=\"%d\" name=\"%s\" num=\"%ld\" disabled=\"%s\"", "#%d\t\t%s opline %ld%s",
- brake->id, brake->func_name, brake->opline_num,
- ((phpdbg_breakbase_t *) brake)->disabled ? " [disabled]" : "");
- } ZEND_HASH_FOREACH_END();
- } ZEND_HASH_FOREACH_END();
- } break;
- case PHPDBG_BREAK_FILE_OPLINE: if ((PHPDBG_G(flags) & PHPDBG_HAS_FILE_OPLINE_BP)) {
- HashTable *file_table;
- phpdbg_out(SEPARATE "\n");
- phpdbg_out("File opline Breakpoints:\n");
- ZEND_HASH_FOREACH_PTR(&PHPDBG_G(bp)[PHPDBG_BREAK_FILE_OPLINE], file_table) {
- phpdbg_breakopline_t *brake;
- ZEND_HASH_FOREACH_PTR(file_table, brake) {
- phpdbg_writeln("fileopline", "id=\"%d\" name=\"%s\" num=\"%ld\" disabled=\"%s\"", "#%d\t\t%s opline %ld%s",
- brake->id, brake->class_name, brake->opline_num,
- ((phpdbg_breakbase_t *) brake)->disabled ? " [disabled]" : "");
- } ZEND_HASH_FOREACH_END();
- } ZEND_HASH_FOREACH_END();
- } break;
- case PHPDBG_BREAK_COND: if ((PHPDBG_G(flags) & PHPDBG_HAS_COND_BP)) {
- phpdbg_breakcond_t *brake;
- phpdbg_out(SEPARATE "\n");
- phpdbg_out("Conditional Breakpoints:\n");
- ZEND_HASH_FOREACH_PTR(&PHPDBG_G(bp)[PHPDBG_BREAK_COND], brake) {
- if (brake->paramed) {
- switch (brake->param.type) {
- case STR_PARAM:
- phpdbg_writeln("evalfunction", "id=\"%d\" name=\"%s\" eval=\"%s\" disabled=\"%s\"", "#%d\t\tat %s if %s%s",
- brake->id, brake->param.str, brake->code,
- ((phpdbg_breakbase_t *) brake)->disabled ? " [disabled]" : "");
- break;
- case NUMERIC_FUNCTION_PARAM:
- phpdbg_writeln("evalfunctionopline", "id=\"%d\" name=\"%s\" num=\"%ld\" eval=\"%s\" disabled=\"%s\"", "#%d\t\tat %s#%ld if %s%s",
- brake->id, brake->param.str, brake->param.num, brake->code,
- ((phpdbg_breakbase_t *) brake)->disabled ? " [disabled]" : "");
- break;
- case METHOD_PARAM:
- phpdbg_writeln("evalmethod", "id=\"%d\" name=\"%s::%s\" eval=\"%s\" disabled=\"%s\"", "#%d\t\tat %s::%s if %s%s",
- brake->id, brake->param.method.class, brake->param.method.name, brake->code,
- ((phpdbg_breakbase_t*)brake)->disabled ? " [disabled]" : "");
- break;
- case NUMERIC_METHOD_PARAM:
- phpdbg_writeln("evalmethodopline", "id=\"%d\" name=\"%s::%s\" num=\"%d\" eval=\"%s\" disabled=\"%s\"", "#%d\t\tat %s::%s#%ld if %s%s",
- brake->id, brake->param.method.class, brake->param.method.name, brake->param.num, brake->code,
- ((phpdbg_breakbase_t *) brake)->disabled ? " [disabled]" : "");
- break;
- case FILE_PARAM:
- phpdbg_writeln("evalfile", "id=\"%d\" name=\"%s\" line=\"%d\" eval=\"%s\" disabled=\"%s\"", "#%d\t\tat %s:%lu if %s%s",
- brake->id, brake->param.file.name, brake->param.file.line, brake->code,
- ((phpdbg_breakbase_t *) brake)->disabled ? " [disabled]" : "");
- break;
- case ADDR_PARAM:
- phpdbg_writeln("evalopline", "id=\"%d\" opline=\"%#lx\" eval=\"%s\" disabled=\"%s\"", "#%d\t\tat #%lx if %s%s",
- brake->id, brake->param.addr, brake->code,
- ((phpdbg_breakbase_t *) brake)->disabled ? " [disabled]" : "");
- break;
- default:
- phpdbg_error("eval", "type=\"invalidparameter\"", "Invalid parameter type for conditional breakpoint");
- return;
- }
- } else {
- phpdbg_writeln("eval", "id=\"%d\" eval=\"%s\" disabled=\"%s\"", "#%d\t\tif %s%s",
- brake->id, brake->code,
- ((phpdbg_breakbase_t *) brake)->disabled ? " [disabled]" : "");
- }
- } ZEND_HASH_FOREACH_END();
- } break;
- case PHPDBG_BREAK_OPCODE: if (PHPDBG_G(flags) & PHPDBG_HAS_OPCODE_BP) {
- phpdbg_breakop_t *brake;
- phpdbg_out(SEPARATE "\n");
- phpdbg_out("Opcode Breakpoints:\n");
- ZEND_HASH_FOREACH_PTR(&PHPDBG_G(bp)[PHPDBG_BREAK_OPCODE], brake) {
- phpdbg_writeln("opcode", "id=\"%d\" name=\"%s\" disabled=\"%s\"", "#%d\t\t%s%s",
- brake->id, brake->name,
- ((phpdbg_breakbase_t *) brake)->disabled ? " [disabled]" : "");
- } ZEND_HASH_FOREACH_END();
- } break;
- }
- phpdbg_xml("</breakpoints>");
- } /* }}} */
|