Mercurial > projects > ldc
view dmd2/irstate.c @ 1493:7cca8cf730de
Increment the iterator before deleting redundant functions or globals in the StripExternals pass.
author | Christian Kamm <kamm incasoftware de> |
---|---|
date | Thu, 11 Jun 2009 21:48:10 +0200 |
parents | 638d16625da2 |
children |
line wrap: on
line source
// Compiler implementation of the D programming language // Copyright (c) 1999-2008 by Digital Mars // All Rights Reserved // written by Walter Bright // http://www.digitalmars.com #include <stdio.h> #include "irstate.h" IRState::IRState(IRState *irs, Statement *s) { prev = irs; statement = s; symbol = NULL; breakBlock = NULL; contBlock = NULL; switchBlock = NULL; defaultBlock = NULL; ident = NULL; ehidden = NULL; startaddress = NULL; if (irs) { m = irs->m; shidden = irs->shidden; sclosure = irs->sclosure; sthis = irs->sthis; blx = irs->blx; deferToObj = irs->deferToObj; } else { m = NULL; shidden = NULL; sclosure = NULL; sthis = NULL; blx = NULL; deferToObj = NULL; } } IRState::IRState(IRState *irs, Dsymbol *s) { prev = irs; statement = NULL; symbol = s; breakBlock = NULL; contBlock = NULL; switchBlock = NULL; defaultBlock = NULL; ident = NULL; ehidden = NULL; startaddress = NULL; if (irs) { m = irs->m; shidden = irs->shidden; sclosure = irs->sclosure; sthis = irs->sthis; blx = irs->blx; deferToObj = irs->deferToObj; } else { m = NULL; shidden = NULL; sclosure = NULL; sthis = NULL; blx = NULL; deferToObj = NULL; } } IRState::IRState(Module *m, Dsymbol *s) { prev = NULL; statement = NULL; this->m = m; symbol = s; breakBlock = NULL; contBlock = NULL; switchBlock = NULL; defaultBlock = NULL; ident = NULL; ehidden = NULL; shidden = NULL; sclosure = NULL; sthis = NULL; blx = NULL; deferToObj = NULL; startaddress = NULL; } block *IRState::getBreakBlock(Identifier *ident) { IRState *bc; for (bc = this; bc; bc = bc->prev) { if (ident) { if (bc->prev && bc->prev->ident == ident) return bc->breakBlock; } else if (bc->breakBlock) return bc->breakBlock; } return NULL; } block *IRState::getContBlock(Identifier *ident) { IRState *bc; for (bc = this; bc; bc = bc->prev) { if (ident) { if (bc->prev && bc->prev->ident == ident) return bc->contBlock; } else if (bc->contBlock) return bc->contBlock; } return NULL; } block *IRState::getSwitchBlock() { IRState *bc; for (bc = this; bc; bc = bc->prev) { if (bc->switchBlock) return bc->switchBlock; } return NULL; } block *IRState::getDefaultBlock() { IRState *bc; for (bc = this; bc; bc = bc->prev) { if (bc->defaultBlock) return bc->defaultBlock; } return NULL; } FuncDeclaration *IRState::getFunc() { IRState *bc; for (bc = this; bc->prev; bc = bc->prev) { } return (FuncDeclaration *)(bc->symbol); }