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

* Patch from Peter Mugaas to support use of CTypes unit

Browse Source 
git-svn-id: trunk@4771 -
This commit is contained in:
michael 2006-10-02 20:51:24 +00:00
parent 2f0ce31751
commit 9a36c6d7a6
2 changed files with 48 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
utils/h2pas/h2pas.pas
View File

@ -261,12 +261,10 @@ program h2pas;
var i : Integer;
begin
IsACType := True;
WriteLn('IsACType '+s);
for i := 0 to MAX_CTYPESARRAY do
begin
if s = CTypesArray[i] then
begin
WriteLn('IsACType True');
Exit;
end;
end;
@ -887,6 +885,14 @@ program h2pas;
t_id :
begin
if pointerprefix then
if UseCtypesUnit then
begin
if not IsACType(p^.p) then
begin
PTypeList.Add('P'+p^.str);
end;
end
else
PTypeList.Add('P'+p^.str);
if p^.intname then
write(outfile,p^.p)
@ -922,14 +928,21 @@ program h2pas;
end;
if not pointerwritten then
begin
if in_args then
begin
write(outfile,'P');
pointerprefix:=true;
end
if in_args then
begin
if UseCTypesUnit and (IsACType(p^.p1^.p)=False) then
write(outfile,'P')
else
write(outfile,'^');
write(outfile,'p');
pointerprefix:=true;
end
else
begin
if UseCTypesUnit and (IsACType(p^.p1^.p)=False) then
write(outfile,'^')
else
write(outfile,'p');
end;
write_type_specifier(outfile,p^.p1);
pointerprefix:=false;
end;
@ -940,7 +953,8 @@ program h2pas;
(p^.p2^.typ=t_id) then
begin
if pointerprefix then
PTypeList.Add('P'+p^.p2^.str);
if UseCTypesUnit and (IsACType( p^.p2^.p )=False) then
PTypeList.Add('P'+p^.p2^.str);
write(outfile,p^.p2^.p);
end
else
@ -1030,7 +1044,8 @@ program h2pas;
(p^.p1=nil) and (p^.p2^.typ=t_id) then
begin
if pointerprefix then
PTypeList.Add('P'+p^.p2^.str);
if UseCTypesUnit and (IsACType(p^.p2^.str)=false) then
PTypeList.Add('P'+p^.p2^.str);
write(outfile,TypeName(p^.p2^.p));
end
else

28
utils/h2pas/h2pas.y
View File

@ -257,12 +257,10 @@ program h2pas;
var i : Integer;
begin
IsACType := True;
WriteLn('IsACType '+s);
for i := 0 to MAX_CTYPESARRAY do
begin
if s = CTypesArray[i] then
begin
WriteLn('IsACType True');
Exit;
end;
end;
@ -883,6 +881,14 @@ program h2pas;
t_id :
begin
if pointerprefix then
if UseCtypesUnit then
begin
if not IsACType(p^.p) then
begin
PTypeList.Add('P'+p^.str);
end;
end
else
PTypeList.Add('P'+p^.str);
if p^.intname then
write(outfile,p^.p)
@ -920,11 +926,19 @@ program h2pas;
begin
if in_args then
begin
write(outfile,'P');
if UseCTypesUnit and (IsACType(p^.p1^.p)=False) then
write(outfile,'P')
else
write(outfile,'p');
pointerprefix:=true;
end
else
write(outfile,'^');
begin
if UseCTypesUnit and (IsACType(p^.p1^.p)=False) then
write(outfile,'^')
else
write(outfile,'p');
end;
write_type_specifier(outfile,p^.p1);
pointerprefix:=false;
end;
@ -935,7 +949,8 @@ program h2pas;
(p^.p2^.typ=t_id) then
begin
if pointerprefix then
PTypeList.Add('P'+p^.p2^.str);
if UseCTypesUnit and (IsACType( p^.p2^.p )=False) then
PTypeList.Add('P'+p^.p2^.str);
write(outfile,p^.p2^.p);
end
else
@ -1025,7 +1040,8 @@ program h2pas;
(p^.p1=nil) and (p^.p2^.typ=t_id) then
begin
if pointerprefix then
PTypeList.Add('P'+p^.p2^.str);
if UseCTypesUnit and (IsACType(p^.p2^.str)=false) then
PTypeList.Add('P'+p^.p2^.str);
write(outfile,TypeName(p^.p2^.p));
end
else