2
0
Эх сурвалжийг харах

fix a typo to hopefully fix the build

git-svn-id: trunk@36312 -
Károly Balogh 8 жил өмнө
parent
commit
dd01b7ca8b

+ 1 - 1
compiler/ngenutil.pas

@@ -109,7 +109,7 @@ interface
       class procedure insertbssdata(sym : tstaticvarsym); virtual;
       class procedure insertbssdata(sym : tstaticvarsym); virtual;
 
 
       class function create_main_procdef(const name: string; potype:tproctypeoption; ps: tprocsym):tdef; virtual;
       class function create_main_procdef(const name: string; potype:tproctypeoption; ps: tprocsym):tdef; virtual;
-      class procedure InsertInitFinalTable;;
+      class procedure InsertInitFinalTable;
      protected
      protected
       class procedure InsertRuntimeInits(const prefix:string;list:TLinkedList;unitflag:cardinal); virtual;
       class procedure InsertRuntimeInits(const prefix:string;list:TLinkedList;unitflag:cardinal); virtual;
       class procedure InsertRuntimeInitsTablesTable(const prefix,tablename:string;unitflag:cardinal); virtual;
       class procedure InsertRuntimeInitsTablesTable(const prefix,tablename:string;unitflag:cardinal); virtual;

+ 1 - 1
compiler/optloadmodifystore.pas

@@ -25,7 +25,7 @@ unit optloadmodifystore;
 
 
 {$i fpcdefs.inc}
 {$i fpcdefs.inc}
 
 
-{$if defined(i386) or defined(x86_64)}
+{$if defined(i386) or defined(x86_64) or defined(m68k)}
   {$define enable_shl_shr_assign_x_y}
   {$define enable_shl_shr_assign_x_y}
 {$endif}
 {$endif}