Переглянути джерело

* use tai_const.Create_int_code/dataptr(0) in tai_const.Create_nil_code/dataptr

git-svn-id: trunk@28725 -
nickysn 10 роки тому
батько
коміт
366dc179b6
1 змінених файлів з 2 додано та 24 видалено
  1. 2 24
      compiler/aasmtai.pas

+ 2 - 24
compiler/aasmtai.pas

@@ -1750,35 +1750,13 @@ implementation
 
 
     constructor tai_const.Create_nil_codeptr;
     constructor tai_const.Create_nil_codeptr;
       begin
       begin
-        inherited Create;
-        typ:=ait_const;
-{$ifdef i8086}
-        if current_settings.x86memorymodel in x86_far_code_models then
-          consttype:=aitconst_farptr
-        else
-{$endif i8086}
-          consttype:=aitconst_ptr;
-        sym:=nil;
-        endsym:=nil;
-        symofs:=0;
-        value:=0;
+        self.Create_int_codeptr(0);
       end;
       end;
 
 
 
 
     constructor tai_const.Create_nil_dataptr;
     constructor tai_const.Create_nil_dataptr;
       begin
       begin
-        inherited Create;
-        typ:=ait_const;
-{$ifdef i8086}
-        if current_settings.x86memorymodel in x86_far_data_models then
-          consttype:=aitconst_farptr
-        else
-{$endif i8086}
-          consttype:=aitconst_ptr;
-        sym:=nil;
-        endsym:=nil;
-        symofs:=0;
-        value:=0;
+        self.Create_int_dataptr(0);
       end;
       end;