diff options
| -rw-r--r-- | compiler/i386/csopt386.pas | 13 | ||||
| -rw-r--r-- | compiler/systems/t_emx.pas | 2 | ||||
| -rw-r--r-- | compiler/systems/t_watcom.pas | 4 | ||||
| -rw-r--r-- | compiler/x86/agx86int.pas | 2 | ||||
| -rw-r--r-- | compiler/x86/rgx86.pas | 8 |
5 files changed, 14 insertions, 15 deletions
diff --git a/compiler/i386/csopt386.pas b/compiler/i386/csopt386.pas index bb2d4d3a58..ce36e63f8e 100644 --- a/compiler/i386/csopt386.pas +++ b/compiler/i386/csopt386.pas @@ -69,9 +69,9 @@ end; function modifiesConflictingMemLocation(p1: tai; supreg: tsuperregister; c: tregContent; var regsStillValid: tregset; onlymem: boolean; var invalsmemwrite: boolean): boolean; var - p, hp: taicpu; + p: taicpu; tmpRef: treference; - r,regCounter: tsuperregister; + regCounter: tsuperregister; opCount: longint; dummy: boolean; begin @@ -231,8 +231,7 @@ function CheckSequence(p: tai; var prev: tai; supreg: tsuperregister; var Found: var regsNotRead, regsStillValid : tregset; checkingPrevSequences, - passedFlagsModifyingInstr, - invalsmemwrite : boolean; + passedFlagsModifyingInstr : boolean; function getPrevSequence(p: tai; supreg: tsuperregister; currentPrev: tai; var newPrev: tai): tsuperregister; @@ -1423,7 +1422,7 @@ function ReplaceReg(asml: TAsmList; orgsupreg, newsupreg: tsuperregister; p, { where newsupreg was replaced by orgsupreg } var endP, hp: tai; - removeLast, sequenceEnd, newRegModified, orgRegRead, + removeLast, newRegModified, orgRegRead, stateChanged, readStateChanged: Boolean; {$ifdef replaceregdebug} l: longint; @@ -1683,7 +1682,7 @@ procedure loadcseregs(asml: TAsmList; const reginfo: toptreginfo; curseqend, pre var regsloaded: tregset; regloads, reguses: array[RS_EAX..RS_EDI] of tai; - regcounter, substreg: tsuperregister; + regcounter: tsuperregister; hp, hp2: tai; insertpos, insertoptinfo, prevseq_next: tai; i: longint; @@ -1835,7 +1834,7 @@ procedure doCSE(asml: TAsmList; First, Last: tai; findPrevSeqs, doSubOpts: boole two different sequences} var cnt, cnt2, {cnt3,} orgNrofMods: longint; p, hp1, hp2, prevSeq: tai; - hp3, hp4: tai; + hp4: tai; hp5 : tai; reginfo: toptreginfo; memreg: tregister; diff --git a/compiler/systems/t_emx.pas b/compiler/systems/t_emx.pas index a85b7f5a78..3e0d81136b 100644 --- a/compiler/systems/t_emx.pas +++ b/compiler/systems/t_emx.pas @@ -156,7 +156,6 @@ procedure write_ar(const name:string;size:longint); var ar:ar_hdr; {PackTime is platform independent} time:TSystemTime; - dummy:word; numtime:longint; tmp:string[19]; begin @@ -456,7 +455,6 @@ var AppTypeStr, StripStr: string[40]; RsrcStr : string; - DS,NS,ES : string; OutName: string; begin if not(cs_link_nolink in current_settings.globalswitches) then diff --git a/compiler/systems/t_watcom.pas b/compiler/systems/t_watcom.pas index 381f0ccdb1..bcf92d24fc 100644 --- a/compiler/systems/t_watcom.pas +++ b/compiler/systems/t_watcom.pas @@ -69,9 +69,9 @@ end; Function TLinkerWatcom.WriteResponseFile(isdll:boolean) : Boolean; Var linkres : TLinkRes; - i : longint; + {i : longint;} s : string; - linklibc : boolean; + {linklibc : boolean;} begin WriteResponseFile:=False; diff --git a/compiler/x86/agx86int.pas b/compiler/x86/agx86int.pas index 227f142994..94176edb51 100644 --- a/compiler/x86/agx86int.pas +++ b/compiler/x86/agx86int.pas @@ -958,6 +958,7 @@ implementation comment : '; '; ); +{$ifdef x86_64} as_x86_64_masm_info : tasminfo = ( id : as_x86_64_masm; @@ -969,6 +970,7 @@ implementation labelprefix : '@@'; comment : '; '; ); +{$endif x86_64} initialization {$ifdef x86_64} diff --git a/compiler/x86/rgx86.pas b/compiler/x86/rgx86.pas index 83cec13987..0bc85cb76a 100644 --- a/compiler/x86/rgx86.pas +++ b/compiler/x86/rgx86.pas @@ -296,9 +296,9 @@ implementation procedure trgx86fpu.saveusedfpuregisters(list: TAsmList; var saved : tpushedsavedfpu; const s: tcpuregisterset); - var + { var r : tregister; - hr : treference; + hr : treference; } begin used_in_proc:=used_in_proc+s; @@ -332,11 +332,11 @@ implementation procedure trgx86fpu.restoreusedfpuregisters(list : TAsmList; const saved : tpushedsavedfpu); - +{ var r,r2 : tregister; hr : treference; - +} begin {$warning TODO firstsavefpureg} (* |