瀏覽代碼

* aint -> asizeint changes

git-svn-id: trunk@17018 -
florian 14 年之前
父節點
當前提交
5abdfb6f7e
共有 3 個文件被更改,包括 5 次插入5 次删除
  1. 3 3
      compiler/aasmtai.pas
  2. 1 1
      compiler/ncgutil.pas
  3. 1 1
      compiler/ptconst.pas

+ 3 - 3
compiler/aasmtai.pas

@@ -401,9 +401,9 @@ interface
        tai_datablock = class(tailineinfo)
           is_global : boolean;
           sym       : tasmsymbol;
-          size      : aint;
+          size      : asizeint;
           constructor Create(const _name : string;_size : aint);
-          constructor Create_global(const _name : string;_size : aint);
+          constructor Create_global(const _name : string;_size : asizeint);
           constructor ppuload(t:taitype;ppufile:tcompilerppufile);override;
           procedure ppuwrite(ppufile:tcompilerppufile);override;
           procedure derefimpl;override;
@@ -883,7 +883,7 @@ implementation
       end;
 
 
-    constructor tai_datablock.Create_global(const _name : string;_size : aint);
+    constructor tai_datablock.Create_global(const _name : string;_size : asizeint);
       begin
          inherited Create;
          typ:=ait_datablock;

+ 1 - 1
compiler/ncgutil.pas

@@ -2448,7 +2448,7 @@ implementation
 
     procedure insertbssdata(sym : tstaticvarsym);
       var
-        l : aint;
+        l : asizeint;
         varalign : shortint;
         storefilepos : tfileposinfo;
         list : TAsmList;

+ 1 - 1
compiler/ptconst.pas

@@ -171,7 +171,7 @@ implementation
       threc = record
         list   : tasmlist;
         origsym: tstaticvarsym;
-        offset:  aint;
+        offset:  asizeint;
       end;
 
     { this procedure reads typed constants }