| 1042 | |
| 1043 | #ifndef SING_NDEBUG |
| 1044 | void checkall() |
| 1045 | { |
| 1046 | idhdl hh=basePack->idroot; |
| 1047 | while (hh!=NULL) |
| 1048 | { |
| 1049 | omCheckAddr(hh); |
| 1050 | omCheckAddr((ADDRESS)IDID(hh)); |
| 1051 | if (RingDependend(IDTYP(hh))) |
| 1052 | { |
| 1053 | Print("%s typ %d in Top (should be in ring)\n",IDID(hh),IDTYP(hh)); |
| 1054 | } |
| 1055 | hh=IDNEXT(hh); |
| 1056 | } |
| 1057 | hh=basePack->idroot; |
| 1058 | while (hh!=NULL) |
| 1059 | { |
| 1060 | if (IDTYP(hh)==PACKAGE_CMD) |
| 1061 | { |
| 1062 | idhdl h2=NULL; |
| 1063 | if (IDPACKAGE(hh)!=NULL) |
| 1064 | h2=IDPACKAGE(hh)->idroot; |
| 1065 | if (IDPACKAGE(hh)!=basePack) |
| 1066 | { |
| 1067 | while (h2!=NULL) |
| 1068 | { |
| 1069 | omCheckAddr(h2); |
| 1070 | omCheckAddr((ADDRESS)IDID(h2)); |
| 1071 | if (RingDependend(IDTYP(h2))) |
| 1072 | { |
| 1073 | Print("%s typ %d in %s (should be in ring)\n",IDID(h2),IDTYP(h2),IDID(hh)); |
| 1074 | } |
| 1075 | h2=IDNEXT(h2); |
| 1076 | } |
| 1077 | } |
| 1078 | } |
| 1079 | hh=IDNEXT(hh); |
| 1080 | } |
| 1081 | } |
| 1082 | #endif |
| 1083 | |
| 1084 | extern "C" |
no test coverage detected