paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-08 14:59:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix a typo to hopefully fix the build

Browse Source 
git-svn-id: trunk@36312 -
This commit is contained in:
Károly Balogh 2017-05-23 21:13:00 +00:00
parent c79342030e
commit dd01b7ca8b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ngenutil.pas
View File

@ -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;

2
compiler/optloadmodifystore.pas
View File

@ -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}