فهرست منبع

* niceified comments

olle 22 سال پیش
والد
کامیت
64fb522791
1فایلهای تغییر یافته به همراه22 افزوده شده و 12 حذف شده
  1. 22 12
      compiler/assemble.pas

+ 22 - 12
compiler/assemble.pas

@@ -82,39 +82,46 @@ 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.
-        }
+           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 then in the  directories
+           in the $PATH environment.}
         Function  FindAssembler:string;
+
         {# Actually does the call to the assembler file. Returns false
-           if the assembling of the file failed.
-        }
+           if the assembling of the file failed.}
         Function  CallAssembler(const command,para:string):Boolean;
+
         Function  DoAssemble:boolean;virtual;
         Procedure RemoveAsm;
         Procedure AsmFlush;
         Procedure AsmClear;
+
         {# Write a string to the assembler file }
         Procedure AsmWrite(const s:string);
+
         {# Write a string to the assembler file }
         Procedure AsmWritePChar(p:pchar);
+
         {# Write a string to the assembler file followed by a new line }
         Procedure AsmWriteLn(const s:string);
+
         {# Write a new line to the assembler file }
         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.
-        }
+           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
            to actually write all the different abstract assembler streams
-           by calling for each stream type, the @var(WriteTree) method.
-        }
+           by calling for each stream type, the @var(WriteTree) method.}
         procedure WriteAsmList;virtual;
       public
         Constructor Create(smart:boolean);override;
@@ -1607,7 +1614,10 @@ Implementation
 end.
 {
   $Log$
-  Revision 1.49  2003-01-10 21:49:00  marco
+  Revision 1.50  2003-03-10 18:16:00  olle
+    * niceified comments
+
+  Revision 1.49  2003/01/10 21:49:00  marco
    * more hasunix fixes
 
   Revision 1.48  2002/11/24 18:21:49  carl