kolibrios/programs/develop/cmm/errors.cpp
GerdtR 6bd5a354f5 Added source files C--.
git-svn-id: svn://kolibrios.org@6446 a494cfbc-eb01-0410-851d-a64ba20cac60
2016-06-13 02:07:22 +00:00

1052 lines
23 KiB
C++
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

#define _ERRORS_
#include "tok.h"
void warningprint(char *str,int line,int file);
WARNACT wact[WARNCOUNT]={
warningprint,1,warningprint,1,warningprint,1,warningprint,1,warningprint,1,
warningprint,1,warningprint,1,warningprint,1,warningprint,1,warningprint,1,
warningprint,1,warningprint,1,warningprint,1,warningprint,1,warningprint,1};
int maxerrors = 16; // number of errors to stop at
void warningprint(char *str,int line,int file);
unsigned char mapfile=FALSE;
FILE *hmap=NULL;
char shorterr[]="SHORT jump distance too large";
char buferr[128];
/* ================== error messages start =========================== */
void FindStopTok()
{
// while(tok!=tk_eof&&itok2.type!=tp_stopper/*tok2!=tk_semicolon&&tok2!=tk_camma*/){
do{
nexttok();
}while(tok!=tk_eof&&itok2.type!=tp_stopper&&itok.type!=tp_stopper/*tok2!=tk_semicolon&&tok2!=tk_camma*/);
// }
}
void SkipBlock2()
{
cha=cha2;
inptr=inptr2;
SkipBlock();
cha2=cha;
inptr=inptr2;
linenum2=linenumber;
FindStopTok();
}
void FindEndLex()
{
while(tok2!=tk_semicolon&&tok!=tk_eof)nexttok();
}
void preerror(char *str) /* error on currentline with line number and file name */
{
preerror3(str,linenumber);
}
void preerror3(char *str,unsigned int line,unsigned int file)//error message at a different than current line
{
if(error<maxerrors){
error++;
sprintf((char *)string3,"%s(%d)#%d> %s.\n",startfileinfo==NULL?"":(startfileinfo+file)->filename,line,error,str);
printf((char *)string3);
if(errfile.file==NULL)errfile.file=fopen(errfile.name,"w+t");
if(errfile.file!=NULL)fprintf(errfile.file,(char *)string3);
}
else exit(e_toomanyerrors);
}
void internalerror (char *str)// serious internal compiler error message
{
char buf[200];
sprintf(buf,"*** SERIOUS COMPILER INTERNAL ERROR ***\n>%s",str);
preerror(buf);
printf("STRING:%s\nIDNAME:%s\n",string,itok.name);
printf("TOK:%d SEGM:%d POST:%d RM:%d number:%ld\n",tok,itok.segm,itok.post,itok.rm,itok.number);
printf("STRING2:%s\nIDNAME2:%s\n",string2,itok2.name);
printf("TOK2:%d SEGM2:%d POST2:%d RM2:%d number2:%ld\n",tok2,itok2.segm,itok2.post,itok2.rm,itok2.number);
printf("Out position:%04X\n",outptr);
exit(e_internalerror);
}
char *getnumoperand(int type,char *name)
{
switch(type){
case 0:
return "";
case 1:
strcpy(buferr,"1-st ");
break;
case 2:
strcpy(buferr,"2-nd ");
break;
case 3:
strcpy(buferr,"3-rd ");
break;
default:
sprintf(buferr,"%d-th ",type%256);
break;
}
strcat(buferr,name);
return buferr;
}
void expected (char ch)
{
char holdstr[80];
sprintf(holdstr,"'%c' expected",ch);
preerror(holdstr);
}
void numexpected(int type)
{
char buf[40];
sprintf(buf,"%snumber expected",getnumoperand(type,"operand "));
preerror(buf);
}
void varexpected(int type)
{
char buf[45];
sprintf(buf,"%svariable expected",getnumoperand(type,"operand "));
preerror(buf);
}
void stringexpected()
{
preerror("string expected");
}
void valueexpected()
{
preerror("value expected");
}
void wordvalexpected()
{
preerror("word value expected");
}
void dwordvalexpected()
{
preerror("dword value expected");
}
void qwordvalexpected()
{
preerror("qword value expected");
}
void codeexpected()
{
preerror("assembly opcode expected");
}
void operatorexpected()
{
preerror("operator identifier expected");
}
void unexpectedeof()
{
preerror("unexpected END OF FILE");
}
void swaperror()
{
preerror("invalid or incompatable swap item");
}
void notexternfun()
{
preerror("Do not insert extern function");
}
void idalreadydefined()
{
char holdstr[80];
sprintf(holdstr,"identifier '%s' already defined",itok.name);
preerror(holdstr);
FindStopTok();
// nexttok();
}
void jumperror(unsigned int line,char *type)
{
char smalltype[IDLENGTH];
char buf[80];
strcpy(smalltype,type);
strlwr(smalltype);
sprintf(buf,"'%s' jump distance too large, use '%s'",type,smalltype);
preerror3(buf,line);
}
void unknowncompop()
{
preerror("unknown comparison operator");
}
void maxoutputerror()
{
preerror("maximum output code size exceeded");
exit( e_outputtoobig );
}
void unableopenfile(char *name)
{
char holdstr[256];
sprintf(holdstr,"unable to open file '%s'",name);
preerror(holdstr);
}
void shortjumptoolarge()
{
preerror(shorterr);
}
void thisundefined(char *str,int next)
{
char holdstr[80];
sprintf(holdstr,"'%s' undefined",str);
preerror(holdstr);
if(next)FindStopTok();
}
void datatype_expected(int type)
{
char buf[45];
sprintf(buf,"%smemory variable expected",getnumoperand(type,"operand "));
preerror(buf);
FindStopTok();
}
void illegalfloat()
{
preerror("illegal use of float point");
}
void tobigpost()
{
preerror("maximum size of post variables exceeded");
postsize=0xFFFF;
}
void unuseableinput()
{
preerror("unuseable input");
FindStopTok();
}
void ManyLogicCompare()
{
preerror("to many use logic compare");
}
void ZeroMassiv()
{
preerror("size massiv unknown or zero");
}
void maxdataerror()
{
preerror("maximum output data size exceeded");
exit( e_outputtoobig );
}
void errorreadingfile(char *name)
{
char buf[256];
sprintf(buf,"error reading from file '%s'",name);
preerror(buf);
}
void badinfile(char *name)
{
char buf[256];
sprintf(buf,"bad input file '%s'",name);
preerror(buf);
}
void edpip(int num)
{
char buf[64];
// preerror("error declare parameters in function");
sprintf(buf,"error declare %sparameters in function",getnumoperand(num,""));
preerror(buf);
}
void CompareOr()
{
preerror("compare logic OR or AND to big distance");
}
void dynamiclabelerror()
{
preerror("global labels illegal within dynamic functions");
}
void OnlyComFile()
{
preerror("this option only for COM output files");
}
void redeclare(char *name)
{
char buf[120];
sprintf(buf,"error redeclare function \"%s\"",name);
preerror(buf);
}
void retvoid()
{
preerror("function has return type of void");
}
void extraparam(char *name)
{
char buf[120];
sprintf(buf,"extra parameter in function %s",name);
preerror(buf);
}
void blockerror()
{
preerror("illegal syntax within [ ]");
}
void block16_32error()
{
preerror("only one of 16 or 32 bit allowed within [ ]");
}
void notstructname()
{
preerror("unique struct name expected");
}
void badtoken()
{
char buf[80];
if(displaytokerrors){
sprintf(buf,"tokenizer: bad character value - '%c'",cha);
preerror(buf);
}
}
void expectederror(char *str)
{
char holdstr[80];
if(displaytokerrors){
sprintf(holdstr,"%s expected",str);
preerror(holdstr);
}
}
void declareanonim()
{
preerror("Error declare anonimus union");
}
void declareunion()
{
preerror("Error declare union");
}
/*
void not_union_static()
{
preerror("'static' not use in 'union'");
} */
void segoperror()
{
preerror("only '=' or '><' operands valid with segment register");
}
void segbyteerror()
{
preerror("segment registers can not be used in byte or char math");
}
void regmathoperror()
{
preerror("invalid operation for non-AX register math");
}
void begmathoperror()
{
preerror("invalid operation for non-AL register math");
}
void negregerror()
{
preerror("negative non-constant invalid for non-AX register math");
}
void regbyteerror()
{
preerror("byte or char operands invalid for non-AX register math");
}
void begworderror()
{
preerror("specified 16 bit operand invalid for non-AL register math");
}
void regshifterror()
{
preerror("only CL or 1 valid for non AX or AL register bit shifting");
}
void regmatherror()
{
preerror("invalid operand for non-AX register math");
}
void DevideZero()
{
preerror("impossible to divide into ZERO");
}
void wordnotoper()
{
preerror("word or int operands invalid for non-EAX register math");
}
void regexpected(int type)
{
char buf[50];
sprintf(buf,"%sword register expected",getnumoperand(type,"operand "));
preerror(buf);
}
void bytevalexpected(int type)
{
char buf[50];
sprintf(buf,"%sbyte value expected",getnumoperand(type,"operand "));
preerror(buf);
}
void shortjumperror()
{
preerror("invalid operand for SHORT jump");
}
void invalidfarjumpitem()
{
preerror("invalid operand for FAR jump");
}
void invalidfarcallitem()
{
preerror("invalid operand for FAR call");
}
void begexpected(int type)
{
char buf[50];
sprintf(buf,"%sbyte register expected",getnumoperand(type,"operand "));
preerror(buf);
}
void reg32expected(int type)
{
char buf[50];
sprintf(buf,"%s32 bit register expected",getnumoperand(type,"operand "));
preerror(buf);
}
void reg32regexpected(int type)
{
char buf[50];
sprintf(buf,"%s16 or 32 bit register expected",getnumoperand(type,"operand "));
preerror(buf);
}
void regBXDISIBPexpected()
{
preerror("use only one of BX, DI, SI or BP register");
}
void bytedxexpected()
{
preerror("byte constant or DX expected");
}
void axalexpected()
{
preerror("EAX, AX or AL expected");
}
void invalidoperand(int type)
{
char buf[25];
sprintf(buf,"%sinvalid",getnumoperand(type,"operand "));
preerror(buf);
}
void mmxregexpected(int type)
{
char buf[50];
sprintf(buf,"%sMMX register expected",getnumoperand(type,"operand "));
preerror(buf);
}
void xmmregexpected(int type)
{
char buf[50];
sprintf(buf,"%sXMM register expected",getnumoperand(type,"operand "));
preerror(buf);
}
void xmmregorvarexpected(int type)
{
char buf[60];
sprintf(buf,"%sXMM register or memory varible expected",getnumoperand(type,"operand "));
preerror(buf);
}
void mmxregordwordexpected(int type)
{
char buf[60];
sprintf(buf,"%sMMX register or memory varible expected",getnumoperand(type,"operand "));
preerror(buf);
}
void clornumberexpected()
{
preerror("CL or constant expected");
}
void fpuvarexpected(int type)
{
char buf[70];
sprintf(buf,"%sexpected FPU register|long|dword|float var",getnumoperand(type,"operand "));
preerror(buf);
}
void fpustakexpected(int type)
{
char buf[40];
sprintf(buf,"%sexpected FPU register",getnumoperand(type,"operand "));
preerror(buf);
}
void fpu0expected()
{
preerror("2-nd expected only st(0) fpu register");
}
void fpustdestroed()
{
preerror("FPU register more 6 destroed");
}
void errstruct()
{
preerror("illegal use of struct");
}
void tegnotfound()
{
preerror("tag struct not found");
}
void ErrWrite()
{
//fprintf(stderr,"unable to write output file.\n");
printf("unable to write output file.\n");
}
void ErrReadStub()
{
//fprintf(stderr,"unable to read stubfile\n");
printf("unable to read stubfile\n");
}
void InvOperComp()
{
preerror("invalid operation for compare");
}
void mmxormem(int type)
{
char buf[60];
sprintf(buf,"%sexpected mmx register or memory variable",getnumoperand(type,"operand "));
preerror(buf);
}
void reg32orword(int type)
{
char buf[60];
sprintf(buf,"%s32 bit register or word variable expected",getnumoperand(type,"operand "));
preerror(buf);
}
void undefclass(char *name)
{
char buf[30+IDLENGTH];
sprintf(buf,"Base class '%s' not defined",name);
preerror(buf);
}
void unknowntype()
{
preerror("unknown type");
}
void destrdestreg()
{
preerror("destroyed destination register");
}
void unknownstruct (char *name,char *sname)
{
char buf[IDLENGTH*2+30];
sprintf(buf,"unknown member '%s' in struct '%s'",name,sname);
preerror(buf);
}
void unknowntagstruct(char *name)
{
char buf[IDLENGTH+16];
sprintf(buf,"unknown tag '%s'",name);
preerror(buf);
}
void unknownobj(char *name)
{
char buf[IDLENGTH+32];
sprintf(buf,"unknown object for member '%s'",name);
preerror(buf);
}
void q();
void unknownpragma(char *name)
{
char buf[IDLENGTH+32];
sprintf(buf,"unknown parametr for #pragma %s",name);
preerror(buf);
}
/*-----------------08.08.00 22:49-------------------
<20><EFBFBD><E0A5A4><EFBFBD><E0A5A6><EFBFBD><EFBFBD><EFBFBD>
--------------------------------------------------*/
void warningoptnum()
{
if(wact[0].usewarn)wact[0].fwarn("Optimize numerical expressions",linenumber,currentfileinfo);
}
void warningreg(char *str2)
{
char buf[50];
if(wact[1].usewarn){
sprintf(buf,"%s has been used by compiler",str2);
wact[1].fwarn(buf,linenumber,currentfileinfo);
}
}
void warningjmp(char *str2,int line,int file)
{
char buf[50];
if(wact[2].usewarn){
sprintf(buf,"Short operator '%s' may be used",str2);
wact[2].fwarn(buf,line,file);
}
}
void warningstring()
{
if(wact[3].usewarn){
sprintf((char *)string2,"String \"%s\" repeated",string3);
wact[3].fwarn((char *)string2,linenumber,currentfileinfo);
}
}
void warningexpand()
{
if(wact[4].usewarn)wact[4].fwarn("Expansion variable",linenumber,currentfileinfo);
}
void warningretsign()
{
if(wact[5].usewarn)wact[5].fwarn("Signed value returned",linenumber,currentfileinfo);
}
void warningprint(char *str,unsigned int line,unsigned int file)
{
if(warning==TRUE){
//if(wartype.name!=NULL&&wartype.file==stdout){
// if((wartype.file=fopen(wartype.name,"w+t"))==NULL)wartype.file=stdout;
//}
//fprintf(wartype.file,"%s(%d)> Warning! %s.\n",startfileinfo==NULL?"":(startfileinfo+file)->filename,line,str);
printf("%s(%d)> Warning! %s.\n",startfileinfo==NULL?"":(startfileinfo+file)->filename,line,str);
}
}
void warningdefined(char *name)
{
char buf[IDLENGTH+30];
if(wact[6].usewarn){
sprintf(buf,"'%s' defined above, therefore skipped",name);
wact[6].fwarn(buf,linenumber,currentfileinfo);
}
}
void warningnotused(char *name,int type)
{
char buf[IDLENGTH+40];
char *typenames[]={"Variable","Structure","Function","Local variable",
"Parameter variable","Local structure"};
if(wact[7].usewarn){
sprintf(buf,"%s '%s' possible not used",(char *)typenames[type],name);
wact[7].fwarn(buf,linenumber,currentfileinfo);
}
}
void warningusenotintvar(char *name)
{
char buf[IDLENGTH+50];
if(wact[8].usewarn){
sprintf(buf,"Non-initialized variable '%s' may have been used",name);
wact[8].fwarn(buf,linenumber,currentfileinfo);
}
}
void warningdestroyflags()
{
if(wact[9].usewarn)wact[9].fwarn("Return flag was destroyed",linenumber,currentfileinfo);
}
void warningunreach()
{
if(wact[10].usewarn)wact[10].fwarn("Code may not be executable",linenumber,currentfileinfo);
}
void warninline()
{
if(wact[11].usewarn)wact[11].fwarn("Don't use local/parametric values in inline functions",linenumber,currentfileinfo);
}
void warnsize()
{
if(wact[12].usewarn)wact[12].fwarn("Sources size exceed destination size",linenumber,currentfileinfo);
}
void waralreadinit(char *reg)
{
#ifdef BETTA
char buf[IDLENGTH+50];
sprintf(buf,"Register %s already initialized",reg);
warningprint(buf,linenumber,currentfileinfo);
#endif
}
void waralreadinitreg(char *reg,char *reg2)
{
#ifdef BETTA
char buf[IDLENGTH+50];
sprintf(buf,"Register %s same as %s",reg,reg2);
warningprint(buf,linenumber,currentfileinfo);
#endif
}
void warpragmapackpop()
{
if(wact[13].usewarn)wact[13].fwarn("Pragma pack pop with no matching pack push",linenumber,currentfileinfo);
}
void missingpar(char *name)
{
char buf[120];
if(wact[14].usewarn){
sprintf(buf,"Missing parameter in function %s",name);
wact[14].fwarn(buf,linenumber,currentfileinfo);
}
// preerror(buf);
}
void warreplasevar(char *name)
{
char buf[120];
// if(usewarn[14]){
if(displaytokerrors){
sprintf(buf,"Variable %s is replased on constant",name);
warningprint(buf,linenumber,currentfileinfo);
}
// }
// preerror(buf);
}
void waralreadinitvar(char *name,unsigned int num)
{
char buf[120];
// if(usewarn[14]){
if(displaytokerrors){
sprintf(buf,"Variable %s already initialized by constant %d",name,num);
warningprint(buf,linenumber,currentfileinfo);
}
// }
// preerror(buf);
}
void warcompneqconst()
{
warningprint("Comparison not equal constant. Skipped code",linenumber,currentfileinfo);
}
void warcompeqconst()
{
warningprint("Comparison equal constant. Skipped compare",linenumber,currentfileinfo);
}
void warpointerstruct()
{
warningprint("Compiler not support pointers on structure",linenumber,currentfileinfo);
}
void warESP()
{
warningprint("ESP has ambiguous value",linenumber,currentfileinfo);
}
/* ***************** map file *************** */
void OpenMapFile()
{
char buf[256];
sprintf(buf,"%s.map",rawfilename);
hmap=fopen(buf,"w+t");
}
char *GetRetType(int type,int flag)
{
char *retcode;
if(flag&f_interrupt)return "";
switch(type){
case tk_bytevar:
case tk_byte:
retcode="byte ";
break;
case tk_charvar:
case tk_char:
retcode="char ";
break;
case tk_wordvar:
case tk_word:
retcode="word ";
break;
case tk_longvar:
case tk_long:
retcode="long ";
break;
case tk_dwordvar:
case tk_dword:
retcode="dword ";
break;
case tk_doublevar:
case tk_double:
retcode="double ";
break;
case tk_fpust:
retcode="fpust ";
break;
case tk_floatvar:
case tk_float:
retcode="float ";
break;
case tk_qwordvar:
case tk_qword:
retcode="qword ";
break;
case tk_void:
retcode="void ";
break;
/* case tk_intvar:
case tk_int:
retcode="int ";
break;*/
case tk_structvar:
retcode="struct";
break;
default:
retcode="int ";
break;
}
return retcode;;
}
char *GetTypeProc(int flag)
{
char *retcode;
char *t;
string2[0]=0;
if(flag&f_interrupt)return "interrupt";
if(flag&f_far)strcat((char *)string2,"far ");
if(flag&f_extern)strcat((char *)string2,"extern ");
if(flag&f_export)strcat((char *)string2,"_export ");
if(flag&f_inline)strcat((char *)string2,"inline ");
if(flag&f_static)strcat((char *)string2,"static ");
if(flag&f_retproc){
t="";
switch(((flag&f_retproc)>>8)+tk_overflowflag-1){
case tk_overflowflag:
t="OVERFLOW ";
break;
case tk_notoverflowflag:
t="NOTOVERFLOW ";
break;
case tk_carryflag:
t="CARRYFLAG ";
break;
case tk_notcarryflag:
t="NOTCARRYFLAG ";
break;
case tk_zeroflag:
t="ZEROFLAG ";
break;
case tk_notzeroflag:
t="NOTZEROFLAG ";
break;
case tk_minusflag:
t="MINUSFLAG ";
break;
case tk_plusflag:
t="PLUSFLAG ";
break;
}
strcat((char *)string2,t);
}
switch(flag&f_typeproc){
case tp_pascal:
t="pascal ";
break;
case tp_cdecl:
t="cdecl ";
break;
case tp_stdcall:
t="stdcall ";
break;
case tp_fastcall:
t="fastcall ";
break;
}
strcat((char *)string2,t);
return (char *)string2;
}
char *GetFunParam(unsigned char c,unsigned char c2,unsigned char c3)
{
switch(c){
case 'B':
if(c2>=0x30&&c2<=0x37)return begs[c2-0x30];
return "byte";
case 'W':
if(c2>=0x30&&c2<=0x37)return regs[0][c2-0x30];
return "word";
case 'D':
if(c2>=0x30&&c2<=0x37)return regs[1][c2-0x30];
return "dword";
case 'C': return "char";
case 'I': return "int";
case 'L': return "long";
case 'F': return "float";
case 'A': return "...";
case 'Q':
if(c2>=0x30&&c2<=0x37){
sprintf((char *)string2,"%s:%s",regs[1][c2-0x30],regs[1][c3-0x30]);
return (char *)string2;
}
return "qword";
case 'E': return "double";
case 'S':
if(c2>=0x30&&c2<=0x37){
sprintf((char *)string2,"st(%c)",c2);
return (char *)string2;
}
return "fpust";
case 'T': return "struct";
case 'U': return "void";
}
return "";;
}
char *GetName(char *name,int flag)
{
char *tn;
char iname[IDLENGTH];
strcpy(iname,name);
if((tn=strchr(iname,'@'))!=NULL)*tn=0;
if(flag&fs_constructor)sprintf((char *)string3,"%s::%s",iname,iname);
else if(flag&fs_destructor)sprintf((char *)string3,"%s::~%s",iname,iname);
else if(flag&f_classproc)sprintf((char *)string3,"%s::%s",searchteg->name,iname);
else strcpy((char *)string3,iname);
return (char *)string3;
}
char *GetSizeVar(int type,int adr)
{
char *reg;
char *sign;
if(type==tp_postvar||type==tp_gvar)return "DS:???";
if(am32){
if(ESPloc)reg="ESP";
else reg="EBP";
}
else reg="BP";
if(adr<0)sign="";
else sign="+";
sprintf((char *)string2,"%s%s%d",reg,sign,adr);
return (char *)string2;
}
void GetRangeUsed(char *buf,localinfo *ptr)
{
if(ptr->count==0)buf[0]=0;
else if(ptr->count==1)sprintf(buf,"%d",ptr->usedfirst);
else sprintf(buf,"%d-%d",ptr->usedfirst,ptr->usedlast);
}
void mapfun(int line)
{
treelocalrec *ftlr;
struct localrec *ptr;
int i,fheader;
char buf[32];
if(hmap==NULL)OpenMapFile();
if(hmap){
fprintf(hmap,"\n%s%s%s(",GetTypeProc(itok.flag),GetRetType(itok.rm,itok.flag),GetName(itok.name,itok.flag));
for(i=0;;i++){
unsigned char c=string[i];
if(c==0)break;
if(c>=0x30&&c<=0x37)continue;
if(i)fputc(',',hmap);
unsigned char c2=string[i+1];
unsigned char c3=string[i+2];
fputs(GetFunParam(c,c2,c3),hmap);
}
fputc(')',hmap);
fprintf(hmap,"\nlocation: line %d-%d file %s",line,linenumber,startfileinfo==NULL?"":(startfileinfo+currentfileinfo)->filename);
fprintf(hmap,"\noffset=0x%X(%d)\tsize=0x%X(%d)",itok.number,itok.number,itok.size,itok.size);
}
fheader=0;
for(ftlr=btlr;ftlr!=NULL;ftlr=ftlr->next){
for(ptr=ftlr->lrec;ptr!=NULL;ptr=ptr->rec.next){
i=ptr->rec.type;
if(i==tp_postvar||i==tp_gvar||i==tp_localvar||i==tp_paramvar){
if(!fheader){
fputs("\nType Address Used Count Size Name",hmap);
fputs("\n----------------------------------------------",hmap);
fheader=TRUE;
}
GetRangeUsed(buf,&ptr->li);
fprintf(hmap,"\n%-8s%-10s%-12s%-4d%-8d",GetRetType(ptr->rec.rectok,0),GetSizeVar(ptr->rec.type,ptr->rec.recnumber),buf,ptr->li.count,ptr->rec.recsize);
if(ptr->rec.npointr)for(i=ptr->rec.npointr;i>0;i--)fputc('*',hmap);
fputs(ptr->rec.recid,hmap);
}
}
}
fputs("\n",hmap);
}