paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-09 10:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation

Browse Source 
git-svn-id: trunk@11381 -
This commit is contained in:
florian 2008-07-13 18:16:53 +00:00
parent d672700a59
commit f443132f3c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/avr/raavrgas.pas
View File

@ -104,8 +104,8 @@ Unit raavrgas;
procedure tavrattreader.ReadSym(oper : tavroperand);
var
tempstr, mangledname : string;
typesize,l,k : longint;
tempstr, mangledname : string;
typesize,l,k : aint;
begin
tempstr:=actasmpattern;
Consume(AS_ID);
@ -209,7 +209,7 @@ Unit raavrgas;
Procedure tavrattreader.BuildOperand(oper : tavroperand);
var
expr : string;
typesize,l : longint;
typesize,l : aint;
procedure AddLabelOperand(hl:tasmlabel);
@ -234,7 +234,7 @@ Unit raavrgas;
hasdot : boolean;
l,
toffset,
tsize : longint;
tsize : aint;
begin
if not(actasmtoken in [AS_DOT,AS_PLUS,AS_MINUS]) then
exit;