Browse Source

* quick $L+ hack

peter 27 years ago
parent
commit
0701cc9298
1 changed files with 5 additions and 2 deletions
  1. 5 2
      compiler/scanner.pas

+ 5 - 2
compiler/scanner.pas

@@ -1128,7 +1128,7 @@ for the last instruction of an include file !}
               skipspace;
               skipspace;
               Message1(scan_f_user_defined,readmessage);
               Message1(scan_f_user_defined,readmessage);
            end
            end
-         else if hs='L' then
+         else if (hs='L') and (c in [' ',#9]) then
            begin
            begin
               skipspace;
               skipspace;
               hs:='';
               hs:='';
@@ -2103,7 +2103,10 @@ for the last instruction of an include file !}
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.7  1998-04-10 15:39:48  florian
+  Revision 1.8  1998-04-16 12:07:55  peter
+    * quick $L+ hack
+
+  Revision 1.7  1998/04/10 15:39:48  florian
     * more fixes to get classes.pas compiled
     * more fixes to get classes.pas compiled
 
 
   Revision 1.6  1998/04/09 09:33:15  pierre
   Revision 1.6  1998/04/09 09:33:15  pierre