Переглянути джерело

Merged revisions 426-427 via svnmerge from
/trunk

git-svn-id: branches/fixes_2_0@475 -

peter 20 роки тому
батько
коміт
87480cec79
2 змінених файлів з 2 додано та 9 видалено
  1. 0 7
      compiler/nmem.pas
  2. 2 2
      tests/webtbs/tw4010.pp

+ 0 - 7
compiler/nmem.pas

@@ -449,13 +449,6 @@ implementation
          if codegenerror then
           exit;
 
-         { we should allow loc_mem for @string }
-         if not(left.expectloc in [LOC_CREFERENCE,LOC_REFERENCE]) then
-           begin
-             aktfilepos:=left.fileinfo;
-             CGMessage(parser_e_illegal_expression);
-           end;
-
          registersint:=left.registersint;
          registersfpu:=left.registersfpu;
 {$ifdef SUPPORT_MMX}

+ 2 - 2
tests/webtbs/tw4010.pp

@@ -2,12 +2,12 @@
 { Submitted by "Adrian" on  2005-05-23 }
 { e-mail: [email protected] }
 
-{ $mode objfpc}
+{$mode objfpc}
 program Bug;
 
 type
   TDynamicByteArray = array of byte;
-  
+
 function MaxByte(const ar: array of byte): Integer;
 var
   i: Integer;