Browse Source

* typo corrected

pierre 26 years ago
parent
commit
85808c8a54
1 changed files with 7 additions and 4 deletions
  1. 7 4
      compiler/ra386att.pas

+ 7 - 4
compiler/ra386att.pas

@@ -1801,18 +1801,18 @@ Begin
           commname:=actasmpattern;
           commname:=actasmpattern;
           Consume(AS_ID);
           Consume(AS_ID);
           Consume(AS_COMMA);
           Consume(AS_COMMA);
-          ConcatLocalBss(actasmpattern,BuildConstExpression(false,false));
+          ConcatLocalBss(commname,BuildConstExpression(false,false));
           if actasmtoken<>AS_SEPARATOR then
           if actasmtoken<>AS_SEPARATOR then
            Consume(AS_SEPARATOR);
            Consume(AS_SEPARATOR);
         end;
         end;
 
 
       AS_COMM:
       AS_COMM:
         Begin
         Begin
-          Consume(AS_LCOMM);
+          Consume(AS_COMM);
           commname:=actasmpattern;
           commname:=actasmpattern;
           Consume(AS_ID);
           Consume(AS_ID);
           Consume(AS_COMMA);
           Consume(AS_COMMA);
-          ConcatGlobalBss(actasmpattern,BuildConstExpression(false,false));
+          ConcatGlobalBss(commname,BuildConstExpression(false,false));
           if actasmtoken<>AS_SEPARATOR then
           if actasmtoken<>AS_SEPARATOR then
            Consume(AS_SEPARATOR);
            Consume(AS_SEPARATOR);
         end;
         end;
@@ -1882,7 +1882,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.48  1999-05-27 19:44:56  peter
+  Revision 1.49  1999-06-03 16:28:03  pierre
+   * typo corrected
+
+  Revision 1.48  1999/05/27 19:44:56  peter
     * removed oldasm
     * removed oldasm
     * plabel -> pasmlabel
     * plabel -> pasmlabel
     * -a switches to source writing automaticly
     * -a switches to source writing automaticly