* better implementation of TProcedureParam.GetFlags that correctly handles a TParamFlags with a size > 1 even on big endian · bd8a7be17e - Gogs

* better implementation of TProcedureParam.GetFlags that correctly handles a TParamFlags with a size > 1 even on big endian

git-svn-id: trunk@35262 -

svenbarth 8 years ago

parent

ccf6504584

commit

bd8a7be17e

1 changed files with 1 additions and 1 deletions

Split View Show Diff Stats

						
							+ 1
							
							- 1
						
rtl/objpas/typinfo.pp
							 
								View File
							
				@@ -2408,7 +2408,7 @@ end;
			
				 function TProcedureParam.GetFlags: Byte;
			
				 begin
			
				-  Result := Byte(ParamFlags);
			
				+  Result := PByte(@ParamFlags)^;
			
				 end;
			
				 { TManagedField }