{ $Id$ Copyright (c) 1993-98 by Florian Klaempfl Generate i386 assembler for load/assignment nodes This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. **************************************************************************** } unit cg386ld; interface uses tree; procedure secondload(var p : ptree); procedure secondassignment(var p : ptree); procedure secondfuncret(var p : ptree); procedure secondarrayconstruct(var p : ptree); implementation uses globtype,systems, cobjects,verbose,globals, symtable,aasm,types, hcodegen,temp_gen,pass_2, i386base,i386asm, cgai386,tgeni386,cg386cnv; {***************************************************************************** SecondLoad *****************************************************************************} procedure secondload(var p : ptree); var hregister : tregister; symtabletype : tsymtabletype; i : longint; hp : preference; s : pasmsymbol; popeax : boolean; begin simple_loadn:=true; reset_reference(p^.location.reference); case p^.symtableentry^.typ of { this is only for toasm and toaddr } absolutesym : begin p^.location.reference.symbol:=nil; if (pabsolutesym(p^.symtableentry)^.abstyp=toaddr) then begin if pabsolutesym(p^.symtableentry)^.absseg then p^.location.reference.segment:=R_FS; p^.location.reference.offset:=pabsolutesym(p^.symtableentry)^.address; end else p^.location.reference.symbol:=newasmsymbol(p^.symtableentry^.mangledname); end; varsym : begin hregister:=R_NO; { C variable } if (pvarsym(p^.symtableentry)^.var_options and vo_is_C_var)<>0 then begin p^.location.reference.symbol:=newasmsymbol(p^.symtableentry^.mangledname); end { DLL variable } else if (pvarsym(p^.symtableentry)^.var_options and vo_is_dll_var)<>0 then begin hregister:=getregister32; p^.location.reference.symbol:=newasmsymbol(p^.symtableentry^.mangledname); exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L,newreference(p^.location.reference),hregister))); p^.location.reference.symbol:=nil; p^.location.reference.base:=hregister; end { external variable } else if (pvarsym(p^.symtableentry)^.var_options and vo_is_external)<>0 then begin p^.location.reference.symbol:=newasmsymbol(p^.symtableentry^.mangledname); end { thread variable } else if (pvarsym(p^.symtableentry)^.var_options and vo_is_thread_var)<>0 then begin popeax:=not(R_EAX in unused); if popeax then exprasmlist^.concat(new(pai386,op_reg(A_PUSH,S_L,R_EAX))); p^.location.reference.symbol:=newasmsymbol(p^.symtableentry^.mangledname); exprasmlist^.concat(new(pai386,op_ref(A_PUSH,S_L,newreference(p^.location.reference)))); { the called procedure isn't allowed to change } { any register except EAX } emitcall('FPC_RELOCATE_THREADVAR'); reset_reference(p^.location.reference); p^.location.reference.base:=getregister32; emit_reg_reg(A_MOV,S_L,R_EAX,p^.location.reference.base); if popeax then exprasmlist^.concat(new(pai386,op_reg(A_POP,S_L,R_EAX))); end { normal variable } else begin symtabletype:=p^.symtable^.symtabletype; { in case it is a register variable: } if pvarsym(p^.symtableentry)^.reg<>R_NO then begin p^.location.loc:=LOC_CREGISTER; p^.location.register:=pvarsym(p^.symtableentry)^.reg; unused:=unused-[pvarsym(p^.symtableentry)^.reg]; end else begin { first handle local and temporary variables } if (symtabletype in [parasymtable,inlinelocalsymtable, inlineparasymtable,localsymtable]) then begin p^.location.reference.base:=procinfo.framepointer; p^.location.reference.offset:=pvarsym(p^.symtableentry)^.address+p^.symtable^.address_fixup; if (symtabletype in [localsymtable,inlinelocalsymtable]) then p^.location.reference.offset:=-p^.location.reference.offset; if (lexlevel>(p^.symtable^.symtablelevel)) then begin hregister:=getregister32; { make a reference } hp:=new_reference(procinfo.framepointer, procinfo.framepointer_offset); exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L,hp,hregister))); simple_loadn:=false; i:=lexlevel-1; while i>(p^.symtable^.symtablelevel) do begin { make a reference } hp:=new_reference(hregister,8); exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L,hp,hregister))); dec(i); end; p^.location.reference.base:=hregister; end; end else case symtabletype of unitsymtable,globalsymtable, staticsymtable : begin p^.location.reference.symbol:=newasmsymbol(p^.symtableentry^.mangledname); end; stt_exceptsymtable: begin p^.location.reference.base:=procinfo.framepointer; p^.location.reference.offset:=pvarsym(p^.symtableentry)^.address; end; objectsymtable: begin if (pvarsym(p^.symtableentry)^.properties and sp_static)<>0 then begin p^.location.reference.symbol:=newasmsymbol(p^.symtableentry^.mangledname); end else begin p^.location.reference.base:=R_ESI; p^.location.reference.offset:=pvarsym(p^.symtableentry)^.address; end; end; withsymtable: begin { make a reference } { symtable datasize field contains the offset of the temp stored } { hp:=new_reference(procinfo.framepointer, p^.symtable^.datasize); exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L,hp,hregister)));} if ptree(pwithsymtable(p^.symtable)^.withnode)^.islocal then begin p^.location.reference:=ptree(pwithsymtable(p^.symtable)^.withnode)^.withreference^; end else begin hregister:=getregister32; p^.location.reference.base:=hregister; exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L, newreference(ptree(pwithsymtable(p^.symtable)^.withnode)^.withreference^), hregister))); end; inc(p^.location.reference.offset,pvarsym(p^.symtableentry)^.address); end; end; end; { in case call by reference, then calculate. Open array is always an reference! } if (pvarsym(p^.symtableentry)^.varspez=vs_var) or is_open_array(pvarsym(p^.symtableentry)^.definition) or is_array_of_const(pvarsym(p^.symtableentry)^.definition) or ((pvarsym(p^.symtableentry)^.varspez=vs_const) and push_addr_param(pvarsym(p^.symtableentry)^.definition)) then begin simple_loadn:=false; if hregister=R_NO then hregister:=getregister32; {$ifdef OLDHIGH} if is_open_array(pvarsym(p^.symtableentry)^.definition) or is_open_string(pvarsym(p^.symtableentry)^.definition) then begin if (p^.location.reference.base=procinfo.framepointer) then begin highframepointer:=p^.location.reference.base; highoffset:=p^.location.reference.offset; end else begin highframepointer:=R_EDI; highoffset:=p^.location.reference.offset; exprasmlist^.concat(new(pai386,op_reg_reg(A_MOV,S_L, p^.location.reference.base,R_EDI))); end; end; {$endif} if p^.location.loc=LOC_CREGISTER then begin exprasmlist^.concat(new(pai386,op_reg_reg(A_MOV,S_L, p^.location.register,hregister))); p^.location.loc:=LOC_REFERENCE; end else begin exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L, newreference(p^.location.reference), hregister))); end; reset_reference(p^.location.reference); p^.location.reference.base:=hregister; end; end; end; procsym: begin if assigned(p^.left) then begin secondpass(p^.left); p^.location.loc:=LOC_MEM; gettempofsizereference(8,p^.location.reference); { load class instance address } case p^.left^.location.loc of LOC_CREGISTER, LOC_REGISTER: begin hregister:=p^.left^.location.register; ungetregister32(p^.left^.location.register); { such code is allowed ! CGMessage(cg_e_illegal_expression); } end; LOC_MEM, LOC_REFERENCE: begin hregister:=R_EDI; exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L, newreference(p^.left^.location.reference),R_EDI))); del_reference(p^.left^.location.reference); ungetiftemp(p^.left^.location.reference); end; else internalerror(26019); end; { store the class instance address } new(hp); hp^:=p^.location.reference; inc(hp^.offset,4); exprasmlist^.concat(new(pai386,op_reg_ref(A_MOV,S_L, R_EDI,hp))); { virtual method ? } if (pprocsym(p^.symtableentry)^.definition^.options and povirtualmethod)<>0 then begin new(hp); reset_reference(hp^); hp^.base:=hregister; { load vmt pointer } exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L, hp,R_EDI))); {$IfDef regallocfix} del_reference(hp^); {$EndIf regallocfix} { load method address } new(hp); reset_reference(hp^); hp^.base:=R_EDI; hp^.offset:=pprocsym(p^.symtableentry)^.definition^.extnumber*4+12; exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L, hp,R_EDI))); { ... and store it } exprasmlist^.concat(new(pai386,op_reg_ref(A_MOV,S_L, R_EDI,newreference(p^.location.reference)))); end else begin s:=newasmsymbol(pprocsym(p^.symtableentry)^.definition^.mangledname); exprasmlist^.concat(new(pai386,op_sym_ofs_ref(A_MOV,S_L,s,0, newreference(p^.location.reference)))); end; end else begin {!!!!! Be aware, work on virtual methods too } p^.location.reference.symbol:=newasmsymbol(pprocsym(p^.symtableentry)^.definition^.mangledname); end; end; typedconstsym : begin p^.location.reference.symbol:=newasmsymbol(p^.symtableentry^.mangledname); end; else internalerror(4); end; end; {***************************************************************************** SecondAssignment *****************************************************************************} procedure secondassignment(var p : ptree); var opsize : topsize; otlabel,hlabel,oflabel : pasmlabel; hregister : tregister; loc : tloc; r : preference; ai : pai386; begin otlabel:=truelabel; oflabel:=falselabel; getlabel(truelabel); getlabel(falselabel); { calculate left sides } if not(p^.concat_string) then secondpass(p^.left); if codegenerror then exit; case p^.left^.location.loc of LOC_REFERENCE : begin { in case left operator uses to register } { but to few are free then LEA } if (p^.left^.location.reference.base<>R_NO) and (p^.left^.location.reference.index<>R_NO) and (usablereg32objectdef) or not(pobjectdef(p^.right^.resulttype)^.isclass)) then begin { this would be a problem } if not(p^.left^.resulttype^.needs_inittable) then internalerror(3457); { increment source reference counter } new(r); reset_reference(r^); r^.symbol:=p^.right^.resulttype^.get_inittable_label; emitpushreferenceaddr(r^); emitpushreferenceaddr(p^.right^.location.reference); exprasmlist^.concat(new(pai386, op_sym(A_CALL,S_NO,newasmsymbol('FPC_ADDREF')))); { decrement destination reference counter } new(r); reset_reference(r^); r^.symbol:=p^.left^.resulttype^.get_inittable_label; emitpushreferenceaddr(r^); emitpushreferenceaddr(p^.left^.location.reference); exprasmlist^.concat(new(pai386, op_sym(A_CALL,S_NO,newasmsymbol('FPC_DECREF')))); end; {$ifdef regallocfix} concatcopy(p^.right^.location.reference, p^.left^.location.reference,p^.left^.resulttype^.size,true,false); ungetiftemp(p^.right^.location.reference); {$Else regallocfix} concatcopy(p^.right^.location.reference, p^.left^.location.reference,p^.left^.resulttype^.size,false,false); ungetiftemp(p^.right^.location.reference); {$endif regallocfix} end; end; {$ifdef SUPPORT_MMX} LOC_CMMXREGISTER, LOC_MMXREGISTER: begin if loc=LOC_CMMXREGISTER then exprasmlist^.concat(new(pai386,op_reg_reg(A_MOVQ,S_NO, p^.right^.location.register,p^.left^.location.register))) else exprasmlist^.concat(new(pai386,op_reg_ref(A_MOVQ,S_NO, p^.right^.location.register,newreference(p^.left^.location.reference)))); end; {$endif SUPPORT_MMX} LOC_REGISTER, LOC_CREGISTER : begin case p^.right^.resulttype^.size of 1 : opsize:=S_B; 2 : opsize:=S_W; 4 : opsize:=S_L; 8 : opsize:=S_L; end; { simplified with op_reg_loc } if loc=LOC_CREGISTER then begin exprasmlist^.concat(new(pai386,op_reg_reg(A_MOV,opsize, p^.right^.location.register, p^.left^.location.register))); {$IfDef regallocfix} ungetregister(p^.right^.location.register); {$EndIf regallocfix} end else Begin exprasmlist^.concat(new(pai386,op_reg_ref(A_MOV,opsize, p^.right^.location.register, newreference(p^.left^.location.reference)))); {$IfDef regallocfix} ungetregister(p^.right^.location.register); del_reference(p^.left^.location.reference); {$EndIf regallocfix} end; if is_64bitint(p^.right^.resulttype) then begin { simplified with op_reg_loc } if loc=LOC_CREGISTER then exprasmlist^.concat(new(pai386,op_reg_reg(A_MOV,opsize, p^.right^.location.registerhigh, p^.left^.location.registerhigh))) else begin r:=newreference(p^.left^.location.reference); inc(r^.offset,4); exprasmlist^.concat(new(pai386,op_reg_ref(A_MOV,opsize, p^.right^.location.registerhigh,r))); end; end; {exprasmlist^.concat(new(pai386,op_reg_loc(A_MOV,opsize, p^.right^.location.register, p^.left^.location))); } end; LOC_FPU : begin if loc<>LOC_REFERENCE then internalerror(10010) else floatstore(pfloatdef(p^.left^.resulttype)^.typ, p^.left^.location.reference); end; LOC_JUMP : begin getlabel(hlabel); emitlab(truelabel); if loc=LOC_CREGISTER then exprasmlist^.concat(new(pai386,op_const_reg(A_MOV,S_B, 1,p^.left^.location.register))) else exprasmlist^.concat(new(pai386,op_const_ref(A_MOV,S_B, 1,newreference(p^.left^.location.reference)))); {exprasmlist^.concat(new(pai386,op_const_loc(A_MOV,S_B, 1,p^.left^.location)));} emitjmp(C_None,hlabel); emitlab(falselabel); if loc=LOC_CREGISTER then exprasmlist^.concat(new(pai386,op_reg_reg(A_XOR,S_B, p^.left^.location.register, p^.left^.location.register))) else begin exprasmlist^.concat(new(pai386,op_const_ref(A_MOV,S_B, 0,newreference(p^.left^.location.reference)))); {$IfDef regallocfix} del_reference(p^.left^.location.reference); {$EndIf regallocfix} end; emitlab(hlabel); end; LOC_FLAGS : begin if loc=LOC_CREGISTER then emit_flag2reg(p^.right^.location.resflags,p^.left^.location.register) else begin ai:=new(pai386,op_ref(A_Setcc,S_B,newreference(p^.left^.location.reference))); ai^.SetCondition(flag_2_cond[p^.right^.location.resflags]); exprasmlist^.concat(ai); end; {$IfDef regallocfix} del_reference(p^.left^.location.reference); {$EndIf regallocfix} end; end; freelabel(truelabel); freelabel(falselabel); truelabel:=otlabel; falselabel:=oflabel; end; {***************************************************************************** SecondFuncRet *****************************************************************************} procedure secondfuncret(var p : ptree); var hr : tregister; hp : preference; pp : pprocinfo; hr_valid : boolean; begin reset_reference(p^.location.reference); hr_valid:=false; if @procinfo<>pprocinfo(p^.funcretprocinfo) then begin hr:=getregister32; hr_valid:=true; hp:=new_reference(procinfo.framepointer, procinfo.framepointer_offset); exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L,hp,hr))); pp:=procinfo.parent; { walk up the stack frame } while pp<>pprocinfo(p^.funcretprocinfo) do begin hp:=new_reference(hr, pp^.framepointer_offset); exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L,hp,hr))); pp:=pp^.parent; end; p^.location.reference.base:=hr; end else p^.location.reference.base:=procinfo.framepointer; p^.location.reference.offset:=procinfo.retoffset; if ret_in_param(p^.retdef) then begin if not hr_valid then hr:=getregister32; exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L,newreference(p^.location.reference),hr))); p^.location.reference.base:=hr; p^.location.reference.offset:=0; end; end; {***************************************************************************** SecondArrayConstruct *****************************************************************************} const vtInteger = 0; vtBoolean = 1; vtChar = 2; vtExtended = 3; vtString = 4; vtPointer = 5; vtPChar = 6; vtObject = 7; vtClass = 8; vtWideChar = 9; vtPWideChar = 10; vtAnsiString = 11; vtCurrency = 12; vtVariant = 13; vtInterface = 14; vtWideString = 15; vtInt64 = 16; procedure secondarrayconstruct(var p : ptree); var hp : ptree; href : treference; lt : pdef; vaddr : boolean; vtype : longint; begin if not p^.cargs then begin reset_reference(p^.location.reference); { Allocate always a temp, also if no elements are required, to ensure that location is valid (PFV) } if parraydef(p^.resulttype)^.highrange=-1 then gettempofsizereference(8,p^.location.reference) else gettempofsizereference((parraydef(p^.resulttype)^.highrange+1)*8,p^.location.reference); href:=p^.location.reference; end; hp:=p; while assigned(hp) do begin if assigned(hp^.left) then begin secondpass(hp^.left); if codegenerror then exit; { find the correct vtype value } vtype:=$ff; vaddr:=false; lt:=hp^.left^.resulttype; case lt^.deftype of enumdef, orddef : begin if (lt^.deftype=enumdef) or is_integer(lt) then vtype:=vtInteger else if is_boolean(lt) then vtype:=vtBoolean else if (lt^.deftype=orddef) and (porddef(lt)^.typ=uchar) then vtype:=vtChar; end; floatdef : begin vtype:=vtExtended; vaddr:=true; end; procvardef, pointerdef : begin if is_pchar(lt) then vtype:=vtPChar else vtype:=vtPointer; end; classrefdef : vtype:=vtClass; objectdef : begin vtype:=vtObject; end; stringdef : begin if is_shortstring(lt) then begin vtype:=vtString; vaddr:=true; end else if is_ansistring(lt) then vtype:=vtAnsiString; end; end; if vtype=$ff then internalerror(14357); { write C style pushes or an pascal array } if p^.cargs then begin if vaddr then begin emit_to_reference(hp^.left); emit_push_lea_loc(hp^.left^.location); end else emit_push_loc(hp^.left^.location); end else begin { update href to the vtype field and write it } exprasmlist^.concat(new(pai386,op_const_ref(A_MOV,S_L, vtype,newreference(href)))); inc(href.offset,4); { write changing field update href to the next element } if vaddr then begin emit_to_reference(hp^.left); emit_lea_loc_ref(hp^.left^.location,href); end else emit_mov_loc_ref(hp^.left^.location,href); inc(href.offset,4); end; end; { load next entry } hp:=hp^.right; end; end; end. { $Log$ Revision 1.60 1999-05-31 12:42:43 peter * fixed crash with empty array constructor Revision 1.59 1999/05/27 19:44:14 peter * removed oldasm * plabel -> pasmlabel * -a switches to source writing automaticly * assembler readers OOPed * asmsymbol automaticly external * jumptables and other label fixes for asm readers Revision 1.58 1999/05/23 18:42:02 florian * better error recovering in typed constants * some problems with arrays of const fixed, some problems due my previous - the location type of array constructor is now LOC_MEM - the pushing of high fixed - parameter copying fixed - zero temp. allocation removed * small problem in the assembler writers fixed: ref to nil wasn't written correctly Revision 1.57 1999/05/21 13:54:51 peter * NEWLAB for label as symbol Revision 1.56 1999/05/17 23:51:38 peter * with temp vars now use a reference with a persistant temp instead of setting datasize Revision 1.55 1999/05/17 21:57:04 florian * new temporary ansistring handling Revision 1.54 1999/05/12 00:19:43 peter * removed R_DEFAULT_SEG * uniform float names Revision 1.53 1999/05/06 09:05:16 peter * generic write_float and str_float * fixed constant float conversions Revision 1.52 1999/05/01 13:24:10 peter * merged nasm compiler * old asm moved to oldasm/ Revision 1.51 1999/04/28 06:01:55 florian * changes of Bruessel: + message handler can now take an explicit self * typinfo fixed: sometimes the type names weren't written * the type checking for pointer comparisations and subtraction and are now more strict (was also buggy) * small bug fix to link.pas to support compiling on another drive * probable bug in popt386 fixed: call/jmp => push/jmp transformation didn't count correctly the jmp references + threadvar support * warning if ln/sqrt gets an invalid constant argument Revision 1.50 1999/04/16 13:42:26 jonas * more regalloc fixes (still not complete) Revision 1.49 1999/04/13 18:57:48 florian * classes which contain ansistring get unnecessary calls to addref/decref when they are assigned, fixed Revision 1.48 1999/04/09 15:48:47 jonas * added fix for missing register deallocation (-dregallocfix) Revision 1.47 1999/03/31 13:55:07 peter * assembler inlining working for ag386bin Revision 1.46 1999/03/24 23:16:52 peter * fixed bugs 212,222,225,227,229,231,233 Revision 1.45 1999/02/25 21:02:28 peter * ag386bin updates + coff writer Revision 1.44 1999/02/22 02:15:12 peter * updates for ag386bin Revision 1.43 1999/01/27 00:13:54 florian * "procedure of object"-stuff fixed Revision 1.42 1999/01/21 22:10:40 peter * fixed array of const * generic platform independent high() support Revision 1.41 1999/01/20 10:20:18 peter * don't make localvar copies for assembler procedures Revision 1.40 1998/12/30 13:41:07 peter * released valuepara Revision 1.39 1998/12/19 00:23:45 florian * ansistring memory leaks fixed Revision 1.38 1998/12/11 00:02:51 peter + globtype,tokens,version unit splitted from globals Revision 1.37 1998/12/10 09:47:17 florian + basic operations with int64/qord (compiler with -dint64) + rtti of enumerations extended: names are now written Revision 1.36 1998/12/04 10:18:06 florian * some stuff for procedures of object added * bug with overridden virtual constructors fixed (reported by Italo Gomes) Revision 1.35 1998/11/30 09:43:04 pierre * some range check bugs fixed (still not working !) + added DLL writing support for win32 (also accepts variables) + TempAnsi for code that could be used for Temporary ansi strings handling Revision 1.34 1998/11/28 16:20:48 peter + support for dll variables Revision 1.33 1998/11/27 14:50:33 peter + open strings, $P switch support Revision 1.32 1998/11/26 09:53:36 florian * for classes no init/final. code is necessary, fixed Revision 1.31 1998/11/20 15:35:54 florian * problems with rtti fixed, hope it works Revision 1.30 1998/11/18 17:45:24 peter * fixes for VALUEPARA Revision 1.29 1998/11/18 15:44:11 peter * VALUEPARA for tp7 compatible value parameters Revision 1.28 1998/11/17 11:32:44 peter * optimize str:='' in H+ mode + -! to test ansistrings Revision 1.27 1998/11/16 15:35:39 peter * rename laod/copystring -> load/copyshortstring * fixed int-bool cnv bug + char-ansistring conversion Revision 1.26 1998/11/10 10:09:10 peter * va_list -> array of const Revision 1.25 1998/11/05 12:02:35 peter * released useansistring * removed -Sv, its now available in fpc modes Revision 1.24 1998/10/14 08:47:14 pierre * bugs in secondfuncret for result in subprocedures removed Revision 1.23 1998/10/06 17:16:44 pierre * some memory leaks fixed (thanks to Peter for heaptrc !) Revision 1.22 1998/10/01 09:22:53 peter * fixed value openarray * ungettemp of arrayconstruct Revision 1.21 1998/09/28 11:07:39 peter + floatdef support for array of const Revision 1.20 1998/09/24 14:26:03 peter * updated for new tvarrec Revision 1.19 1998/09/23 17:49:59 peter * high(arrayconstructor) is now correct * procvardef support for variant record Revision 1.18 1998/09/23 09:58:48 peter * first working array of const things Revision 1.17 1998/09/20 18:00:19 florian * small compiling problems fixed Revision 1.16 1998/09/20 17:46:48 florian * some things regarding ansistrings fixed Revision 1.15 1998/09/17 09:42:16 peter + pass_2 for cg386 * Message() -> CGMessage() for pass_1/pass_2 Revision 1.14 1998/09/14 10:43:50 peter * all internal RTL functions start with FPC_ Revision 1.13 1998/09/04 12:24:24 florian * bug0159 fixed Revision 1.12 1998/09/04 11:55:17 florian * problem with -Or fixed Revision 1.11 1998/09/03 16:03:14 florian + rtti generation * init table generation changed Revision 1.10 1998/08/21 14:08:40 pierre + TEST_FUNCRET now default (old code removed) works also for m68k (at least compiles) Revision 1.9 1998/08/20 09:26:37 pierre + funcret setting in underproc testing compile with _dTEST_FUNCRET Revision 1.8 1998/08/10 14:49:48 peter + localswitches, moduleswitches, globalswitches splitting Revision 1.7 1998/07/30 13:30:33 florian * final implemenation of exception support, maybe it needs some fixes :) Revision 1.6 1998/07/26 21:58:57 florian + better support for switch $H + index access to ansi strings added + assigment of data (records/arrays) containing ansi strings Revision 1.5 1998/07/24 22:16:54 florian * internal error 10 together with array access fixed. I hope that's the final fix. Revision 1.4 1998/06/11 13:58:45 peter * fixed too long line Revision 1.3 1998/06/09 16:01:35 pierre + added procedure directive parsing for procvars (accepted are popstack cdecl and pascal) + added C vars with the following syntax var C calias 'true_c_name';(can be followed by external) reason is that you must add the Cprefix which is target dependent Revision 1.2 1998/06/08 13:13:34 pierre + temporary variables now in temp_gen.pas unit because it is processor independent * mppc68k.bat modified to undefine i386 and support_mmx (which are defaults for i386) Revision 1.1 1998/06/05 17:44:12 peter * splitted cgi386 }