* fix constant parsing which gave an error when constants were used

compiler/ra386att.pas

@@ -954,6 +954,7 @@ Begin
         end;
       AS_ID:
         Begin
+          hs:='';
           tempstr:=actasmpattern;
           prevtok:=prevasmtoken;
           consume(AS_ID);
@@ -964,7 +965,6 @@ Begin
            end
           else
            begin
-             hs:='';
              if is_locallabel(tempstr) then
               begin
                 CreateLocalLabel(tempstr,hl,false);
@@ -2099,7 +2099,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.82  2000-06-14 19:02:41  peter
+  Revision 1.83  2000-06-15 18:07:07  peter
+    * fix constant parsing which gave an error when constants were used
+
+  Revision 1.82  2000/06/14 19:02:41  peter
     * fixed TYPE with records and fields
     * added TYPE support for ATT reader else it wouldn't be possible to
       get the size of a type/variable

compiler/ra386int.pas

@@ -844,6 +844,7 @@ Begin
         end;
       AS_ID:
         Begin
+          hs:='';
           tempstr:=actasmpattern;
           prevtok:=prevasmtoken;
           consume(AS_ID);
@@ -854,7 +855,6 @@ Begin
            end
           else
            begin
-             hs:='';
              if is_locallabel(tempstr) then
               begin
                 CreateLocalLabel(tempstr,hl,false);
@@ -1899,7 +1899,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.73  2000-06-14 19:02:41  peter
+  Revision 1.74  2000-06-15 18:07:08  peter
+    * fix constant parsing which gave an error when constants were used
+
+  Revision 1.73  2000/06/14 19:02:41  peter
     * fixed TYPE with records and fields
     * added TYPE support for ATT reader else it wouldn't be possible to
       get the size of a type/variable