diff --git a/compiler/assemble.pas b/compiler/assemble.pas index 02d4d4b3e8..5a86f6c720 100644 --- a/compiler/assemble.pas +++ b/compiler/assemble.pas @@ -66,7 +66,7 @@ interface end; {# This is the base class which should be overriden for each each - assembler writer. It is used to actually assembler a file, + assembler writer. It is used to actually assembler a file, and write the output to the assembler file. } TExternalAssembler=class(TAssembler) @@ -80,8 +80,8 @@ interface outbuf : array[0..AsmOutSize-1] of char; outfile : file; public - {# Returns the complete path and executable name of the assembler program. - + {# Returns the complete path and executable name of the assembler program. + It first tries looking in the UTIL directory if specified, otherwise it searches in the free pascal binary directory, in the current working directory and the in the directories in the $PATH environment. @@ -105,11 +105,11 @@ interface Procedure AsmLn; procedure AsmCreate(Aplace:tcutplace); procedure AsmClose; - {# This routine should be overriden for each assembler, it is used - to actually write the abstract assembler stream to file. + {# This routine should be overriden for each assembler, it is used + to actually write the abstract assembler stream to file. } procedure WriteTree(p:TAAsmoutput);virtual; - {# This routine should be overriden for each assembler, it is used + {# This routine should be overriden for each assembler, it is used to actually write all the different abstract assembler streams by calling for each stream type, the @var(WriteTree) method. } @@ -1094,10 +1094,10 @@ Implementation end; ait_symbol_end : begin - if target_info.target=target_i386_linux then + if target_info.target in [target_i386_linux,target_i386_beos] then begin - Tai_symbol(hp).sym.size:=objectalloc.sectionsize-Tai_symbol(hp).sym.address; - UsedAsmSymbolListInsert(Tai_symbol(hp).sym); + Tai_symbol_end(hp).sym.size:=objectalloc.sectionsize-Tai_symbol_end(hp).sym.address; + UsedAsmSymbolListInsert(Tai_symbol_end(hp).sym); end; end; ait_label : @@ -1581,7 +1581,10 @@ Implementation end. { $Log$ - Revision 1.32 2002-04-07 13:19:14 carl + Revision 1.33 2002-04-10 08:07:55 jonas + * fix for the ie9999 under Linux (patch from Peter) + + Revision 1.32 2002/04/07 13:19:14 carl + more documentation Revision 1.31 2002/04/04 19:05:54 peter diff --git a/compiler/i386/ag386att.pas b/compiler/i386/ag386att.pas index ed9f8bdd92..b77e461099 100644 --- a/compiler/i386/ag386att.pas +++ b/compiler/i386/ag386att.pas @@ -676,9 +676,9 @@ interface inc(symendcount); AsmWriteLn(s+':'); AsmWrite(#9'.size'#9); - AsmWrite(tai_symbol(hp).sym.name); + AsmWrite(tai_symbol_end(hp).sym.name); AsmWrite(', '+s+' - '); - AsmWriteLn(tai_symbol(hp).sym.name); + AsmWriteLn(tai_symbol_end(hp).sym.name); end; end; @@ -962,11 +962,14 @@ initialization RegisterAssembler(as_i386_as_info,T386ATTAssembler); RegisterAssembler(as_i386_as_aout_info,T386ATTAssembler); RegisterAssembler(as_i386_asw_info,T386ATTAssembler); - RegisterAssembler(as_i386_aswwdosx_info,T386ATTAssembler); + RegisterAssembler(as_i386_aswwdosx_info,T386ATTAssembler); end. { $Log$ - Revision 1.15 2002-04-04 19:06:06 peter + Revision 1.16 2002-04-10 08:07:55 jonas + * fix for the ie9999 under Linux (patch from Peter) + + Revision 1.15 2002/04/04 19:06:06 peter * removed unused units * use tlocation.size in cg.a_*loc*() routines